Bonjour à tous
je développe une application qui va permettre d'envoyer des mails aux différents agents de la structure
mais un message d'erreur apparait, et je ne comprends pas
![[Image: C:\Users\K YANICK K\Desktop]](http://tunidev.net/C:\Users\K YANICK K\Desktop)
voici mon code
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.gmail.com"
MaSession..MotDePasse = "xyanxxx01"
MaSession..Port=587
MaSession..Option = emailOptionSécuriséTLS
MaSession..Nom="yanickxxx@gmail.com"
EmailChangeTimeOut(30) //10 secondes pour le time out
SI EmailOuvreSession(MaSession) = Faux ALORS
Message("La connexion a échouée.")
Erreur("Impossible d'ouvrir la session SMTP.", ErreurInfo(), ...
"En cas de TimeOut, assurez-vous des paramètres du ""Pare-Feu"" sur le port utilisé ("+...
MaSession..Port+")")
RENVOYER Faux
FIN
Email.Expéditeur = "yanickxxx@gmail.com"
Email.Destinataire = "yanickxxx@gmail.com"
Email.Sujet="Erreur Log "+SAI_Objet
Email.Message= DateVersChaîne(DateSys())+ " " +HeureVersChaîne(HeureSys()) +RC+"ste"+RC+ SAI_Message
Email.NbAttache = 0
Email.NbDestinataire = 1 // Le nombre de destinataires
SI PAS EmailEnvoieMessage(MaSession) ALORS
Erreur("Erreur envoi : "+ ErreurInfo())
FIN
EmailFermeSession(MaSession)
Merci d'avance
je développe une application qui va permettre d'envoyer des mails aux différents agents de la structure
mais un message d'erreur apparait, et je ne comprends pas
voici mon code
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.gmail.com"
MaSession..MotDePasse = "xyanxxx01"
MaSession..Port=587
MaSession..Option = emailOptionSécuriséTLS
MaSession..Nom="yanickxxx@gmail.com"
EmailChangeTimeOut(30) //10 secondes pour le time out
SI EmailOuvreSession(MaSession) = Faux ALORS
Message("La connexion a échouée.")
Erreur("Impossible d'ouvrir la session SMTP.", ErreurInfo(), ...
"En cas de TimeOut, assurez-vous des paramètres du ""Pare-Feu"" sur le port utilisé ("+...
MaSession..Port+")")
RENVOYER Faux
FIN
Email.Expéditeur = "yanickxxx@gmail.com"
Email.Destinataire = "yanickxxx@gmail.com"
Email.Sujet="Erreur Log "+SAI_Objet
Email.Message= DateVersChaîne(DateSys())+ " " +HeureVersChaîne(HeureSys()) +RC+"ste"+RC+ SAI_Message
Email.NbAttache = 0
Email.NbDestinataire = 1 // Le nombre de destinataires
SI PAS EmailEnvoieMessage(MaSession) ALORS
Erreur("Erreur envoi : "+ ErreurInfo())
FIN
EmailFermeSession(MaSession)
Merci d'avance