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