SendMail - 5.61 auf 5.70
Verfasst: 28.03.2019 15:29
Hallo,
weiß jemand, was sich geändert hat?
Unter 5.61 x64 wird korrekt versendet.
Unter 5.70 x64 nicht.
Danke!
weiß jemand, was sich geändert hat?
Unter 5.61 x64 wird korrekt versendet.
Unter 5.70 x64 nicht.
Code: Alles auswählen
;
; ------------------------------------------------------------
;
; PureBasic - Mail example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
InitNetwork()
If CreateMail(0, "absender@domainbeistrato.de", "Service - Mail Nachricht")
SetMailBody(0, "Zeile 1: Sicherung perfekt!" + #CRLF$ +
"dies ist die 2. Zeile-" + #CRLF$ +
"und dies ist die 3. Zeile")
; AddMailAttachment(0, "Geebee !" , "Data/Geebee2.bmp")
; AddMailAttachment(0, "World icon", "Data/world.png")
; Change the recipients to real one
;
AddMailRecipient(0, "empfaenger@nochnedomainbeistrato.de", #PB_Mail_To)
; AddMailRecipient(0, "test_cc@yourdomain.com", #PB_Mail_Cc)
; Set the SMTP server to use
;
Result = SendMail(0, "smtp.strato.de", 587, #PB_Mail_UseSSL ,"absender@domainbeistrato.de", "passwort" )
Repeat
Progress = MailProgress(0)
Delay(300)
Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
If Progress = #PB_Mail_Finished
MessageRequester("Information", "Mail korrekt versendet !")
Else
MessageRequester("Fehler", "Kann Mail nicht senden !")
EndIf
EndIf