E-mail versenden (SMTP)
Verfasst: 03.09.2008 21:12
Beitrag gelöscht
...und durch suchen spart man Boardplatz.Oliver1994 hat geschrieben: Durch probieren versteht man es besser! XD
...und durch suchen spart man Boardplatz.Oliver1994 hat geschrieben: Durch probieren versteht man es besser! XD
Code: Alles auswählen
;
; ------------------------------------------------------------
;
; PureBasic - Mail example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
InitNetwork()
OpenConsole()
If CreateMail(0, "fred@purebasic.com", "Hello !")
SetMailBody(0, "Hello "+Chr(10)+"This is a mail !")
AddMailAttachment(0, "My description", "c:\brook_3d.png")
AddMailAttachment(0, "My description 2", "c:\test.bmp")
AddMailRecipient(0, "test@yourdomain.com", #PB_Mail_To)
AddMailRecipient(0, "test2@yourdomain.com", #PB_Mail_Cc)
Result = SendMail(0, "smtp.free.fr", 25, 1)
Repeat
Debug MailProgress(0)
Delay(300)
Until MailProgress(0) = -3 Or MailProgress(0) = -2
Input()
EndIf
Hei ei ei, das hab ich ja noch gar nicht mitgekriegt, dass das jetzt nativ unterstützt wird.Volker Schmid hat geschrieben:Hallo,
Frisch aus der PureBasic Hilfe (<F1> drücken) rauskopiert: