PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Fonction emailenvoiemessage
Fonction emailenvoiemessage
Débuté par Alexis45140, 26 juin 2014 11:49 - 6 réponses
#1
Posté le 26 juin 2014 - 11:49
Salut a tous,
Donc voila je suis un petit peu novice sous windev et vu que je m'y met un peu j'ai voulu éssayer la fonction emailenvoiemessage mais en vain a chaque fois je met bien mon nom de compte etc mais rien a faire je ne recois rien et l'application plante donc je vous joins ci-dessous mon code.

//Ouverture d'une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "smtp.monfai.fr")
SI ErreurDétectée ALORS
Erreur()
RETOUR
FIN

//Remise à zéro des variables Email
EmailRAZ()

//Expéditeur du message
Email.Expéditeur = "456@def.fr"

//Destinataire(s) du message
Email.Destinataire[1] = "123@abc.fr"
Email.NbDestinataire = 1

//Pièces jointes
Email.NbAttache = 0


//Sujet et contenu du message
Email.Sujet = "Test"
Email.Message = "test"
Email.HTML = ""

//Envoi du message
EmailEnvoieMessage("SessionSMTP")
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
FIN

//Fermeture de la session SMTP
EmailFermeSession("SessionSMTP")


J'ai fait ce code avec l'assistant de la fonction emailenvoiemessage mais je ne comprend pas pourquoi sa ne fonctionne pas

Merci de vos futurs réponses.
#2
Posté le 26 juin 2014 - 11:59
Tu utilises qu'elle FAI pour le smtp ?
#3
Posté le 26 juin 2014 - 12:33
Bonjour,
J'utilise gmail ou je peut aussi utiliser outlook. Mais après je sais pas si il faut vraiment l'adresse fai comme sfr ou orange.
#4
Membre enregistré
1 935 messages
Popularité : +53 (65 votes)
Posté le 26 juin 2014 - 13:21
Bonjour,

Il semble que votre code ne soit pas conforme à la syntaxe.
Cf. doc http://doc.pcsoft.fr/fr-FR/index.awp?3032025
NomUser est une chaîne

NomUser = "monadresse@gmail.com"
// Envoi d'un email par le protocole SMTP Sécurisé
EmailChangeTimeOut(10) // 10 secondes pour le time out
// Utilisation d'un serveur SMTP sécurisé avec authentification
// Nécessaire en général pour utiliser un SMTP
// différent de celui du fournisseur d'accès Internet
SI EmailOuvreSessionSMTP(NomUser, "MotDePasse", ...
"smtp.gmail.com", 587, Faux, emailOptionSécuriséTLS) = Vrai ALORS
// Procédure permettant d'initialiser la structure email
Initialise_Email()
// Envoie l'email
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur()
FIN
EmailFermeSession(NomUser)
SINON
Erreur("Impossible d'établir la connexion", ErreurInfo(), ...
"En cas de Time Out, assurez-vous des paramètres du "+ ...
"""Pare-Feu"" sur le port utilisé (587)")
FIN


--
Bon dev.
Jean-Pierre
#5
Posté le 26 juin 2014 - 14:17
Bonjour Alexis

pour google, il faut ouvrir la session smtp en mode tls (paramètres
supplémentaires) et avec le bon port (de mémoire 587)

Cordialement


--
Fabrice Harari
Consultant WinDev, WebDev et WinDev Mobile International

NOUVEAU: WXShowroom.com est disponible : Montrez vos projets !
Plus d'information sur http://fabriceharari.com


On 6/26/2014 3:49 AM, Alexis45140 wrote:
Salut a tous, Donc voila je suis un petit peu novice sous windev et vu
que je m'y met un peu j'ai voulu éssayer la fonction emailenvoiemessage
mais en vain a chaque fois je met bien mon nom de compte etc mais rien a
faire je ne recois rien et l'application plante donc je vous joins
ci-dessous mon code.

//Ouverture d'une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "smtp.monfai.fr")
SI ErreurDétectée ALORS
Erreur()
RETOUR
FIN

//Remise à zéro des variables Email
EmailRAZ()

//Expéditeur du message
Email.Expéditeur = "456@def.fr"

//Destinataire(s) du message
Email.Destinataire[1] = "123@abc.fr"
Email.NbDestinataire = 1

//Pièces jointes
Email.NbAttache = 0


//Sujet et contenu du message
Email.Sujet = "Test"
Email.Message = "test"
Email.HTML = ""

//Envoi du message
EmailEnvoieMessage("SessionSMTP")
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
FIN

//Fermeture de la session SMTP
EmailFermeSession("SessionSMTP")


J'ai fait ce code avec l'assistant de la fonction emailenvoiemessage
mais je ne comprend pas pourquoi sa ne fonctionne pas

Merci de vos futurs réponses.
#6
Posté le 26 juin 2014 - 14:36
Merci a tous pour vos réponses je vais essayer sa et je vous tiens au courant.
#7
Posté le 26 juin 2014 - 15:25
Rien a faire, soit je suis très incompétent soit j'écrit mal le code mais pourtant j'ai changé mon code comme sa :

NomUser est une chaîne

NomUser = "a*****@gmail.com"
// Envoi d'un email par le protocole SMTP Sécurisé
EmailChangeTimeOut(10) // 10 secondes pour le time out
// Utilisation d'un serveur SMTP sécurisé avec authentification
// Nécessaire en général pour utiliser un SMTP
// différent de celui du fournisseur d'accès Internet
SI EmailOuvreSessionSMTP(NomUser, "*******", ...
"smtp.gmail.com", 587, Faux, emailOptionSécuriséTLS) = Vrai ALORS
// Procédure permettant d'initialiser la structure email
Initialise_Email()
// Envoie l'email
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur()
FIN
EmailFermeSession(NomUser)
SINON
Erreur("Impossible d'établir la connexion", ErreurInfo(), ...
"En cas de Time Out, assurez-vous des paramètres du "+ ...
"""Pare-Feu"" sur le port utilisé (587)")
FIN



Mais rien a faire, rien ne s'envoie, enfin je ne sais pas ou il faut que j'ajoute l'éxpediteur le sujet et le corps du message.

Après il y a un truc qui est bizzare, c'est que dans windev il faut se connecter à un compte alors que dans microsoft visual basic on peut envoyer l'email sans se connecter a un autre compte mail donc je me demande si il serait possible de faire pareille sur windev
→ Revenir à WINDEV 2024