Mail-Lib - E-Mail versenden
Verfasst: 15.05.2010 20:39
Hallo,
ich hab grad ein Problem und ich verstehe grad nicht, warum das Versenden von EMails mit der Mail-Lib nicht funktioniert.
Ich möchte gerne eine E-Mail versenden:
Ich bekomme immer wieder die Meldung "Can't sent the mail !".
Die SMTP-Adresse ist laut Google "smtp.googlemail.com", also müsste das schon richtig sein, aber funktioniert leider nicht.
Ich hab auch schon den Code aus dem Code-Archiv getestet: http://www.purearea.net/pb/CodeArchiv/I ... endMail.pb
Funktioniert ebenfalls nicht und weiß nicht, woran es liegt.
Oder braucht man da einen eigenen Mail-Server?
Kann jemand mir weiterhelfen?
ich hab grad ein Problem und ich verstehe grad nicht, warum das Versenden von EMails mit der Mail-Lib nicht funktioniert.
Ich möchte gerne eine E-Mail versenden:
Code: Alles auswählen
EnableExplicit
Define Result
Define Progress
InitNetwork()
If CreateMail(0,"irgendeine@mail.de","TitelderMail")
SetMailBody(0,"Text der Mail")
AddMailRecipient(0,"email@gmail.com",#PB_Mail_To)
Result = SendMail(0,"smtp.googlemail.com",25,1)
Repeat
Progress = MailProgress(0)
Delay(300)
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
Die SMTP-Adresse ist laut Google "smtp.googlemail.com", also müsste das schon richtig sein, aber funktioniert leider nicht.
Ich hab auch schon den Code aus dem Code-Archiv getestet: http://www.purearea.net/pb/CodeArchiv/I ... endMail.pb
Funktioniert ebenfalls nicht und weiß nicht, woran es liegt.
Oder braucht man da einen eigenen Mail-Server?
Kann jemand mir weiterhelfen?