ich habe schon viel experimentiert mit SendMail und #PB_Mail_UseSSL:
Code: Alles auswählen
; PB 5.43LTS x86 and 64bit
InitNetwork()
If CreateMail(0, "mymail@mydomain.de", "The MailSubject")
SetMailBody(0, "This is the Mailbody")
AddMailRecipient(0, "Yourmail@anydomain.com", #PB_Mail_To)
; the email account and PW is real and for free use for any helpers of the Purebasic Forum
Result = SendMail(0, "smtp.strato.de", 465, #PB_Mail_Asynchronous | #PB_Mail_UseSSL, "sendmailstrato@registerdeutschlands.de", "#4711WBc")
; also Port 25 and 587 don't operate
Repeat
Progress = MailProgress(0)
Debug Progress
Delay(300)
Select progress
Case #PB_Mail_Connected
Debug "Connected"
Case #PB_Mail_Finished
Debug "Finished"
Case #PB_Mail_Error
Debug "error"
EndSelect
Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
If Progress = #PB_Mail_Finished
MessageRequester("Information", "Mail correctly sent !")
Else
MessageRequester("Error", "Can't sent the mail !")
EndIf
EndIf
Hat jemand eine Idee?