Hi Jan
irgendetwas mache ich noch falsch
hier der Punkt wo ich die Funktion aufrufe - war erstmal zum testen
Code: Alles auswählen
email_senden("import beendet","test","r.ramacher@sprinter-software.de","rolf.ramacher@freenet.de")
Code: Alles auswählen
#include "dll.ch"
Function email_senden(cBody,csubject,cTo,cFrom)
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
nBlatDll := dllLoad(cBlatDLLName)
IF nBlatDll > 0
nRueck := DllCall(nBlatDll, DLL_STDCALL , "Send", cParameter) // *** Send muss genauso geschrieben werden.
ENDIF
Return Nil