WD19 - envoi de mail avec smtp de gmail

La question :

bonjour

j'essaie d'utiliser le smtp de gmail avec le port 587 comme indiqué ici
:
https://support.google.com/a/answer/176600?hl=fr

or ça coince à la connexion au serveur au moment du
emailouvresessionsmtp.

je suis preneur d'un exmple qui fonctionne

merci pour pistes

titou44 chez libresurf.com

Poser votre question sur le forum Programmation

Les 2 réponses :

titou44 avait soumis l'idée :


bonjour

j'essaie d'utiliser le smtp de gmail avec le port 587 comme indiqué ici :
https://support.google.com/a/answer/176600?hl=fr

or ça coince à la connexion au serveur au moment du emailouvresessionsmtp.

je suis preneur d'un exmple qui fonctionne

merci pour pistes

titou44 chez libresurf.com


voici mon code (WD19). je ne vois pas ce qui merde.

===================================================

l_NomUser est une chaîne
l_mdp est une chaîne
l_serveur est une chaîne
l_port est une chaîne

l_NomUser =
l_mdp = "monmdp"
l_serveur = "smtp.gmail.com"
l_port = "587"

EmailRAZ()
Email.Expéditeur = l_NomUser
Email.AdresseExpéditeur = l_NomUser
Email.NbDestinataire = 1
Email.Priorité = emailPrioritéHaute
Email.Sujet = SansEspace("Test gmail")
Email.Message = SansEspace("texte test gmail")
Email.Destinataire[1] =

Email.AccuséRéception = Faux
Email.ConfirmationLecture = Faux

EmailChangeTimeOut(10)


SI EmailOuvreSessionSMTP(l_NomUser, l_mdp, l_serveur, l_port, Faux,
emailOptionSécuriséTLS) = Faux ALORS
Erreur("Impossible d'établir la connexion", ErreurInfo(errMessage),
....
"En cas de Time Out, assurez-vous des paramètres du "+ ...
"Pare-Feu sur le port utilisé (587)")
FinProgramme()
FIN

SI EmailEnvoieMessage(l_NomUser) = Faux ALORS
Erreur()
FIN
EmailFermeSession(l_NomUser)

Info("Envoyé")


=====================================

je pars directement dans le message d'erreur avec
ErreurInfo(errMessage) vide.

j'ai ajouté une règle dans le pare-feu pour ouvrir le flux sortant sur
le port 587
j'ai autorisé au niveau de gmail l'accès des applications moins
sécurisées.
j'ai mis le l_port en entier puis en chaine...

je sèche...

titou44 chez libresurf.com

titou44 avait énoncé :


titou44 avait soumis l'idée :


bonjour

j'essaie d'utiliser le smtp de gmail avec le port 587 comme indiqué ici :
https://support.google.com/a/answer/176600?hl=fr

or ça coince à la connexion au serveur au moment du emailouvresessionsmtp.

je suis preneur d'un exmple qui fonctionne

merci pour pistes

titou44 chez libresurf.com


voici mon code (WD19). je ne vois pas ce qui merde.

===================================================

l_NomUser est une chaîne
l_mdp est une chaîne
l_serveur est une chaîne
l_port est une chaîne

l_NomUser =
l_mdp = "monmdp"
l_serveur = "smtp.gmail.com"
l_port = "587"

EmailRAZ()
Email.Expéditeur = l_NomUser
Email.AdresseExpéditeur = l_NomUser
Email.NbDestinataire = 1
Email.Priorité = emailPrioritéHaute
Email.Sujet = SansEspace("Test gmail")
Email.Message = SansEspace("texte test gmail")
Email.Destinataire[1] =

Email.AccuséRéception = Faux
Email.ConfirmationLecture = Faux

EmailChangeTimeOut(10)


SI EmailOuvreSessionSMTP(l_NomUser, l_mdp, l_serveur, l_port, Faux,
emailOptionSécuriséTLS) = Faux ALORS
Erreur("Impossible d'établir la connexion", ErreurInfo(errMessage), ...
"En cas de Time Out, assurez-vous des paramètres du "+ ...
"Pare-Feu sur le port utilisé (587)")
FinProgramme()
FIN

SI EmailEnvoieMessage(l_NomUser) = Faux ALORS
Erreur()
FIN
EmailFermeSession(l_NomUser)

Info("Envoyé")


=====================================

je pars directement dans le message d'erreur avec ErreurInfo(errMessage)
vide.

j'ai ajouté une règle dans le pare-feu pour ouvrir le flux sortant sur le
port 587
j'ai autorisé au niveau de gmail l'accès des applications moins sécurisées.
j'ai mis le l_port en entier puis en chaine...

je sèche...

titou44 chez libresurf.com




je me reponds.
hier soir j'ai généré l'exe et j'ai laissé tomber.
ce matin, je lance l'exe et clique sur le bouton avec le code. et là
surprise ! mail envoyé via le smtp de gmail.

morale : je pense que côté gmail il y a un temps de latence avant que
tout se mette en place. a priori en heures.

donc le code fonctionne parfaitement...

titou44 chez libresurf.com

Poser votre question sur le forum Programmation

Questions similaires :

envoi d'email sécurisé SSL

bonjour dommage pour moi, je suis en version 19 Une autre idée ? Le 14/03/2016 10:13, phig a écrit : salut ! quelle version de WD ? depuis la version 20 OptionSSL le fait... [/color]

WD - envoi tabluation dans le presse papier

phig a formulé la demande : salut! faire du code navigateur qui détecte le tab dans la saisie du premier champs , qui cut et remplit le reste du formulaire ( c'est ce que je ferais) ?[/color] merci mais je ne suis pas maitre du code côté site. d'ailleurs je cherche une solution "générique"...

WD19 - fonctions téléphonie

Le 15/09/2015 18:29, titou44 a écrit : [/color] salut ! pour la composition, j'utilise telcomposeligne plutot que telcompose ( qui ne renvoie pas de idappel). je n'ai jamais utilisé teljoue, mais la doc dit qu'il faut un idappel. ca vient peut-être de la ? je vais tester de mon coté ( mais bon,...

[WD] comment pré-remplir un message avant son envoi en utilisant un Mailto ?

> // Envoi d'un message avec pièce jointe Bon, comme j'ai trouv�, je me r�ponds. En fait c'est du HTML donc voici un exemple : LanceAppliAssoci�e("mailto:"+"san@antonio.net"+"?subject="+"Notre ...

windev : envoi email - programmation optimum

bonjour quelle est la syntaxe optimum ? approche 1 : for n=1 to max emailouvresession emailenvoimessage emailfermesession end approche 2 : emailouvresession for n=1 to max emailenvoimessage end emailfermesession ce n'est pas clair dans la doc. sutout si max vaut des centaines merci pour aide à...