Bonjour à tous,
J'essaie d'envoyer un mail à l'aide de Windev 7.5. Voici le code que j'entre :
Le problème est le suivant : il me met à l'éxécution : eMailEnvoieMessage a réussi mais je ne reçois aucun email sur mon compte hotmail!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 NomUser est une chaîne // Envoi d'un e-mail par le protocole SMTP SI EmailOuvreSession("stu153", "Password", "pop.student.fpms.ac.be","smtp.fpms.ac.be") = Vrai ALORS NomUser = "stu153" SINON NomUser = "" Erreur("Impossible d'établir la connexion"+ RC+... EmailMsgErreur(Email.Erreur)) FIN // Initialisation de la structure e-mail Email.Destinataire = "<test@hotmail.com>" Email.Expéditeur = "<test@student.fpms.ac.be>" Email.Message = "Test Auto eMail" Email.nbDestinataire = 1 // Envoie le mail SI PAS EmailEnvoieMessage(NomUser) ALORS Erreur("eMailEnvoieMessage a échoué '" + ErreurInfo(errMessage) + "'") SINON Info("eMailEnvoieMessage a réussi") FIN
Partager