irgendetwas mache ich noch falsch
Code: Alles auswählen
#include "dll.ch"
Function email_senden(cBody,csubject,cTo,cFrom,cPw,cSsl)
LOCAL cBlatDLLName := "BLAT.DLL", cParameter:="", nRueck:=0
cParameter := " -body " + Chr(34) + cbody + Chr(34)+ ;
" -subject " + Chr(34) + cSubject + Chr(34) + ;
" -to " + cTo + ;
" -server " + "smtp.server" + " -f " + cFrom + " -pw "+cPw+cSsl
nBlatDll := dllLoad(cBlatDLLName)
IF nBlatDll > 0
nRueck := DllCall(nBlatDll, DLL_STDCALL , "Send", cParameter) // *** Send muss genauso geschrieben werden.
ENDIF
Return Nil
wo liegt der Fehler ??