Envoyer un email

[SPH]

marche po (j'ai mis mon login et mon password)

En fait, je me demande si SendMail marche avec w7 et w8...

[G-Rom]

oui, sous win7 ca marche, pas de raison que cela ne marche pas sous w8.

[Marc56]

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

Chez moi ça marche (je suis pas chez free, mais chez un autre en accès sans authentification)

Je suis sous Windows 8.1

PS. Il faut parfois quelques secondes (3 ou 4)

[SPH]

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

Enorme merci. Je ne peux pas le tester ce soir (zolpidem) mais demain

[SPH]

@Marc56 : ca maaaarche mais en mettant

Code : Tout sélectionner

Serveur$  = "smtp.orange.fr"

Yes

[venom]

Je confirme que ça fonctionne aussi sous windows 8.1





@++

[case]

sinon il y a ce site qui explique comment fonctionnent les protocoles du web
ça permet de comprendre ce qui se passe quand on envoie un mail par exemple (rubrique smtp)
http://www.iprelax.fr/