PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → [WD26] probleme avec le SMTP
[WD26] probleme avec le SMTP
Iniciado por Dergen, 26,oct. 2021 08:43 - 4 respuestas
Miembro registrado
329 mensajes
Popularité : +28 (32 votes)
Publicado el 26,octubre 2021 - 08:43
Bonjour,
Bonjour,

Depuis que je suis passé sur windev 26, ce bout de code qui fonctionnais sans problème avec les anciennes antérieur sur un serveur Windows 2008 R2, ne l'est plus avec la version 26.
le message d'erreur est le suivant :
Impossible de se connecter au serveur SMTP: Le mécanisme de sécurité du WLangage a détecté une Erreur système.


Version qui fonctionnais avec les version antérieurs de Windev.
monServeurSMTP est un emailSessionSMTP
monServeurSMTP..AdresseServeur = "smtp.office365.com"
monServeurSMTP..Nom = "monmail@maboite.fr"
monServeurSMTP..MotDePasse = "monmondepasse"
monServeurSMTP..Port = 587
monServeurSMTP..Option = emailOptionSécuriséTLS

monCourrier est un Email
monCourrier..Expediteur = "moi"
monCourrier..AdresseExpéditeur = monCourrier..Expediteur
monCourrier..Sujet = "test envoi de mail"
monCourrier..Message = "Ceci est un test"
monCourrier..HTML = monCourrier..Message

Ajoute(monCourrier..Destinataire, "mondestinataire@maboite.fr")

EmailChargeFichierAttaché(monCourrier, "monfichier")

EmailChangeTimeOut(60)
SI EmailOuvreSession(monServeurSMTP) ALORS
SI EmailEnvoieMessage(monServeurSMTP, monCourrier, emailOptionEncodeEntête) ALORS
LIB_Message.Valeur = "Message bien envoyé"
SINON
LIB_Message.Valeur = ChaîneConstruit("L'envoi de mail a échoué: %1", ErreurInfo(errMessage))
FIN

EmailFermeSession(monServeurSMTP)
SINON
LIB_Message.Valeur = ChaîneConstruit("Impossible de se connecter au serveur SMTP: %1", ErreurInfo(errMessage))
FIN


J'ai aussi essayé avec cette version du code, mais la aussi, même erreur:
monCourrier est un Email
monCourrier..Expediteur = "moi"
monCourrier..AdresseExpéditeur = monCourrier..Expediteur
monCourrier..Sujet = "test envoi de mail"
monCourrier..Message = "Ceci est un test"
monCourrier..HTML = monCourrier..Message

Ajoute(monCourrier..Destinataire, "mondestinataire@maboite.fr")

EmailChargeFichierAttaché(monCourrier, "monfichier")

EmailChangeTimeOut(60)

SI EmailOuvreSessionSMTP("monmail@maboite.fr", "monmondepasse", "smtp.office365.com", 587, Faux, emailOptionSécuriséTLS) ALORS
SI EmailEnvoieMessage("monmail@maboite.fr", monCourrier) ALORS
LIB_Message.Valeur = "Message bien envoyé"
SINON
LIB_Message.Valeur = ChaîneConstruit("L'envoi de mail a échoué: %1", ErreurInfo(errMessage))
FIN

EmailFermeSession("monmail@maboite.fr")
SINON
LIB_Message.Valeur = ChaîneConstruit("Impossible de se connecter au serveur SMTP: %1", ErreurInfo(errMessage))
FIN


Avez-vous une idée de ce qui provoque cette erreur ?

--
———————————————————————————————————
Ce qui se conçoit bien se code clairement et se relit facilement...

- Pastiche d’une citation de Nicolas Boileau -
Publicado el 26,octubre 2021 - 09:40
Bonjour,


J'ai lu sur
https://docs.microsoft.com/en-us/microsoft-365/compliance/tls-1.0-and-1.1-deprecation-for-office-365…
que Microsoft a décidé de désactiver le TLS 1.0 et 1.1 pour les
Microsoft 365 ... Il y a peut-être un patch du service technique pour ce
problème.

--
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Miembro registrado
329 mensajes
Popularité : +28 (32 votes)
Publicado el 26,octubre 2021 - 10:18
Merci, pour l'info.

Je vais activer TLS 1.2 sur mon serveur 2008 R2.

J'ai aussi fait un test avec un compte chez 1and1 qui a parfaitement fonctionné.

--
———————————————————————————————————
Ce qui se conçoit bien se code clairement et se relit facilement...

- Pastiche d’une citation de Nicolas Boileau -
Miembro registrado
19 mensajes
Publicado el 26,octubre 2021 - 17:02
Bonjour Dergen,
WTT participant confirme bel et bien ce qui se passe avec les serveurs SMTP de Outlook/Office/Hotmail. Nous vivons la même situation de notre côté.
Parfois ça fonctionne, parfois ça ne fonctionne pas. Tout dépend de lors de ta tentive, si "smtp.office365.com" te redirige vers un serveur qui est migré vers le TLS 1.2 obligatoire ou non.

Pour ma part j'ai ajouté cette ligne dans mon code avant toute tentative d'ouverture de session SMTP :

EmailParamètre(emailParamètreMode,1)


Depuis, ça fonctionne nickel.
Miembro registrado
92 mensajes
Publicado el 24,enero 2023 - 16:17
Maxime a écrit :
Bonjour Dergen,
WTT participant confirme bel et bien ce qui se passe avec les serveurs SMTP de Outlook/Office/Hotmail. Nous vivons la même situation de notre côté.
Parfois ça fonctionne, parfois ça ne fonctionne pas. Tout dépend de lors de ta tentive, si "smtp.office365.com" te redirige vers un serveur qui est migré vers le TLS 1.2 obligatoire ou non.

Pour ma part j'ai ajouté cette ligne dans mon code avant toute tentative d'ouverture de session SMTP :

EmailParamètre(emailParamètreMode,1)


Depuis, ça fonctionne nickel.



Bonjour ;

Juste pour vous dire Merci beaucoup cette ligne de code m'a sauvé ça marche super

Merci