PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → Sending mail with Office 365
Sending mail with Office 365
Iniciado por philip, 11,jul. 2013 14:12 - 6 respuestas
Publicado el 11,julio 2013 - 14:12
Anyone trying to send an email with windev and office 365 ???


Here is the setup from office 365

//SMTP
//Server name: smtp.office365.com
//Port: 587
//Encryption method: TLS

The code that doesn't work.


gsuser is string = "philip@metrotile.eu"
gspassword is string = "password"

// Secured SMTP session
gSessionSMTP is EmailSMTPSession
gSessionSMTP..ServerAddress = "smtp.office365.com"
gSessionSMTP..Name = gsuser
gSessionSMTP..Password = gspassword
gSessionSMTP..Port = 587
gSessionSMTP..Option = emailOptionSecuredTLS
//gSessionSMTP..Option = emailOptionDefault

// Content of the email
AnEmail is Email//object
AnEmail..SenderAddress = "Philip Neven"
AnEmail..Sender = gsuser
AnEmail..Recipient[1] = "philip@metrotile.be"
AnEmail..Subject = "Sending an email from WinDev."
AnEmail..Message = "Sending an email from WinDev."

// Send the email
IF EmailStartSession(gSessionSMTP)=True THEN
IF EmailSendMessage(gSessionSMTP,AnEmail) = False THEN
Error("Failure sending the email.", ErrorInfo(errMessage))
END
ELSE
Error("Unable to establish the connection", ErrorInfo(errMessage))
END


Anuone?
Publicado el 30,agosto 2013 - 11:55
Hello,

We have the same problem .. ;(
Did you find the solution?

Thank you very much.
Publicado el 30,octubre 2013 - 11:02
Exactly the same problem ?

Did you find the solution ??
Publicado el 06,diciembre 2013 - 11:42
Hi,

I work with miss Gwennaelle Wit. Yes, the same problem, and we haven't found a solution at this time.

Everyone have an idea or a solution???

Please, need help !!!
Publicado el 24,junio 2014 - 14:41
Hello,

I have the same problem. Does anyone find a solution ?

I also tried to configure account in thunderbird. The account was ok, but i can't send a mail.

Maybe it's incompatible with a version of TLS ?!

Thx
Publicado el 08,mayo 2015 - 09:41
Hello,

J'ai utilisé avec succès le code suivant pour ouvrir une session SMTP sur Outlook365:

NomUser est une chaîne
MonMessage est un Email
NomUser = "XXX@XXX.com"

MonMessage.Expediteur = NomUser
Ajoute(MonMessage..Destinataire, "XYZ@XYZ.com")

// Envoi d'un email par le protocole SMTP Sécurisé
EmailChangeTimeOut(20) // 20 secondes pour le time out
SI EmailOuvreSessionSMTP(NomUser, "Scotch28", ...
"smtp.office365.com", 587, Faux, emailOptionSécuriséTLS) = Vrai ALORS
SI EmailEnvoieMessage(NomUser,MonMessage) = Faux ALORS
Erreur()
FIN
EmailFermeSession(NomUser)
SINON
Info("Impossible d'établir la connexion", ErreurInfo(), ...
"En cas de Time Out, assurez-vous des paramètres du "+ ...
"""Pare-Feu"" sur le port utilisé (587)")
FIN

Bon Dev
Bernard Vésy
Publicado el 14,mayo 2020 - 14:03
Bonjour,

j'ai lu votre intervention avec intérêt. Je fais dans mon développement exactement la même chose que vous.
Depuis mon PC de développement, tout fonctionne mais quand je fais tourner le module sur une machine du client, je reçois un timeout de la part du serveur SMTP (smtp.office365.com) à l'ouverture de la session. Avez-vous essayé sur une machine client?