Re: Envoyer un email
Publié : mer. 13/mai/2015 16:51
marche po (j'ai mis mon login et mon password)
En fait, je me demande si SendMail marche avec w7 et w8...
En fait, je me demande si SendMail marche avec w7 et w8...
Code : Tout sélectionner
InitNetwork()
De$ = "" ; --- Ton adresse Email (avec le @free.fr)
Pour$ = "" ; --- Celle du destinataire (ça peut être la même)
Sujet$ = "Ca va fonctionner cette fois ?"
Serveur$ = "smtp.free.fr"
If CreateMail(0, De$, Sujet$)
AddMailRecipient(0, Pour$, #PB_Mail_To)
Go = SendMail(0, Serveur$)
If Go
MessageRequester("Yeah!", "Message envoyé avec succès :-)", 64)
Else
MessageRequester("Argl!", "Il en veut pas de ton message :-/", 48)
EndIf
EndIf
Enorme merci. Je ne peux pas le tester ce soir (zolpidem) mais demainMarc56 a écrit :Si tu es chez free et que tu est connecté sur ta box, alors le smtp.free.fr est accessible directement sur le port 25
sans authentification (dixit l'aide en ligne chez free.fr)
Ce petit code doit fonctionner (tu as juste à remplir les deux premières variables)Code : Tout sélectionner
InitNetwork() De$ = "" ; --- Ton adresse Email (avec le @free.fr) Pour$ = "" ; --- Celle du destinataire (ça peut être la même) Sujet$ = "Ca va fonctionner cette fois ?" Serveur$ = "smtp.free.fr" If CreateMail(0, De$, Sujet$) AddMailRecipient(0, Pour$, #PB_Mail_To) Go = SendMail(0, Serveur$) If Go MessageRequester("Yeah!", "Message envoyé avec succès :-)", 64) Else MessageRequester("Argl!", "Il en veut pas de ton message :-/", 48) EndIf EndIf