Code: Alles auswählen
InitNetwork()
If CreateMail(1, "bla@blabla.de", "Huhu")
file.s=GetHomeDirectory()+"test.png"
AddMailAttachment(1, "Anhabngbeschreibung", file)
AddMailRecipient(1, "irgendwer@eMail.de", #PB_Mail_To) ;Empfänger
SetMailBody(1, "Hello !" + #CRLF$ + "This is a multi-" + #CRLF$ +"line mail !")
Result = SendMail(1, "smtp.strato.de", 587, #PB_Mail_UseSSL,"bla@blabla","blabla12345 )
EndIf
Dieser Code funktioniert soweit, nur wird leider der Body verschluckt und nicht gesendet.
Sende ich KEINEN Anhang, wird der Body gesendet.
Titel angepaßt
-- Andesdaf