Bonjour a tous, je n'arrive pas à envoyer un email a partir de ce code, un message d'erreur s'affiche : "Message non envoyé"
Pouvez vous m'aider svp ?
Merci
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
31
32
33
34 MonMessage est un Email MaSession est un emailSessionSMTP MaSession..Nom = "aminbh@hotmail.fr" MaSession..MotDePasse = "Password" MaSession..AdresseServeur = "smtp.live.com" MaSession..Port = 25 SI PAS EmailOuvreSession(MaSession) ALORS Erreur("impossible de connecté au serveur smtp") SINON FIN MonMessage..Expediteur = "aminbh@hotmail.fr" MonMessage..Sujet = "sujet" MonMessage..HTML = "" MonMessage..Message = "message" Ajoute(MonMessage..Destinataire,"aminbh@hotmail.fr") SI EmailEnvoieMessage(MaSession, MonMessage) = Faux ALORS Erreur("Message non envoyé.") SINON ToastAffiche("Message envoyé", toastCourt, ... cvMilieu, chCentre) FIN EmailFermeSession(MaSession)
Partager