Page 2 sur 2

Re: Envoyer un email

Publié : mer. 13/mai/2015 16:51
par SPH
marche po (j'ai mis mon login et mon password)

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

Re: Envoyer un email

Publié : mer. 13/mai/2015 17:39
par G-Rom
oui, sous win7 ca marche, pas de raison que cela ne marche pas sous w8.

Re: Envoyer un email

Publié : mer. 13/mai/2015 17:58
par 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)
:wink:

Re: Envoyer un email

Publié : mer. 13/mai/2015 23:16
par SPH
Marc56 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
Enorme merci. Je ne peux pas le tester ce soir (zolpidem) mais demain 8)

Re: Envoyer un email

Publié : jeu. 14/mai/2015 16:25
par SPH
@Marc56 : ca maaaarche mais en mettant

Code : Tout sélectionner

Serveur$  = "smtp.orange.fr"
:idea: :idea: :idea: Yes

Re: Envoyer un email

Publié : ven. 15/mai/2015 21:50
par venom
Je confirme que ça fonctionne aussi sous windows 8.1 :D





@++

Re: Envoyer un email

Publié : ven. 15/mai/2015 23:59
par 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/