bonjour à tous, j'ai un problème d'envoyer un email en cliquant un bouton ,
avec ces codes ci, ça affiche toujours "L'envoie de l'email a échoué ! "
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 // Ouverture d'une session SMTP MaSession est un EmailSessionSMTP MaSession..AdresseServeur = "smtp.gmail.com" MaSession..MotDePasse="********" MaSession..Nom="mon adresse gmail" SI EmailOuvreSession(MaSession) ALORS Info("Connection établir") SINON Erreur("Impossible d'établir la connexion"+RC+ErreurInfo(errMessage)) FIN MonMessage est un Email MonMessage..Expediteur = "wangtie.fr@gmail.com" MonMessage..Destinataire [1] = "wangtie02192004@sina.com" MonMessage..Sujet = "une commande" MonMessage..Message = "détail commande dans le fichier attché" // Envoi du message SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS Erreur("L'envoie de l'email a échoué ! " ) SINON Info("L'envoie de l'email a réussi") FIN EmailFermeSession(MaSession)
j'ai besoin de votre aide
merci d'avance
Partager