envoi d'email sous windev 15

**mourad1987** · 21/03/2012, 23h35

je un problème au partie envoi mail je test ouverture de session est établir

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
// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.gmail.com"
MaSession..MotDePasse="pass"
MaSession..Port=587
MaSession..Nom="m@gmail.com"

SI EmailOuvreSession(MaSession) ALORS

	Info("connections établir")
SINON

	Erreur("Impossible d'établir la connexion"+RC+ErreurInfo(errMessage))
FIN



// Construction d'un email
MonMessage est un Email
MonMessage..Expediteur = "m@gmail.com"
Ajoute(MonMessage..Destinataire,"m1@yahoo.fr")
MonMessage..Message = "aloalaoalao"

// Envoi du message


SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
	Erreur("L'envoie de l'email a échoué ! verifiez l'adresse mail " )
SINON
Info("L'envoie de l'email a réussi")
FIN
EmailFermeSession(MaSession)
//////////////////////////////////////////////////////////////////////////////////

aider moi mes amis la msg affichier est en rouge windev 15

**miripesage** · 22/03/2012, 07h50

Bonjour,

Envoyé par mourad1987

je un problème au partie envoi mail je test ouverture de session est établir

// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.gmail.com"
MaSession..MotDePasse="pass"
MaSession..Port=587
MaSession..Nom="m@gmail.com"

SI EmailOuvreSession(MaSession) ALORS

Info("connections établir")
SINON

Erreur("Impossible d'établir la connexion"+RC+ErreurInfo(errMessage))
FIN

// Construction d'un email
MonMessage est un Email
MonMessage..Expediteur = "m@gmail.com"
Ajoute(MonMessage..Destinataire,"m1@yahoo.fr")
MonMessage..Message = "aloalaoalao"

// Envoi du message
EmailEnvoieMessage(MaSession,MonMessage)
EmailFermeSession(MaSession)
FIN
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
Erreur("L'envoie de l'email a échoué ! verifiez l'adresse mail " + ErreurInfo())

SINON
Info("L'envoie de l'email a réussi")
FIN
//EmailFermeSession(MaSession)
//////////////////////////////////////////////////////////////////////////////////
aider moi mes amis la msg affichier est en rouge windev 15

**nokwih** · 22/03/2012, 11h46

Hello, je ne vois pas de quoi cela peut venir comme cela ?!

De plus le code proposé par #miripesage ne changera, a première vu, aboslument rien !

Ce que je te conseil c'est de mettre des informations sumplémentaire pour ton déboguage comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
// Envoi du mail
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
Erreur("EmailEnvoieMessage a échoué '" + ErreurInfo(errMessage) + "'")
SINON
Info("EmailEnvoieMessage a réussi")
FIN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
// Suivi de l'email
SELON EmailEtat(MonMessage.IdentifiantMail)
CAS emailEnvoyé : Trace("L'email a été envoyé")
CAS emailEnAttente : Trace("Email en cours de traitement")
CAS emailErreur : Trace("Erreur : " + ErreurInfo(errMessage))
FIN

Voilà pour toi, donne nous plus de précision si ton problème persiste

**mnw.william** · 22/03/2012, 13h17

C'est exactement ce que miripesage a proposé, sauf que dans le code de mourad il manquait le code d'envoi de l'email en fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// Envoi du message
EmailEnvoieMessage(MaSession,MonMessage)
EmailFermeSession(MaSession)

**nokwih** · 22/03/2012, 13h54

Bien sur que non ?! le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS

ou

EmailEnvoieMessage(MaSession,MonMessage)

Exécute dans les deux cas la fonction EmailEnvoieMessage() !

**frenchsting** · 22/03/2012, 14h10

Je pense que la syntaxe générale est bonne. La question est :

est-ce que les paramètres fournis sont corrects (notamment user et mot de passe) ?
Est-il nécessaire de spécifier le port ?

**wimbish** · 22/03/2012, 14h12

Envoyé par mourad1987

je un problème au partie envoi mail je test ouverture de session est établir

A priori, le problème est à l'ouverture de session, pas sur l'envoi du Mail.

mourad1987 peut tu nous le confirmer?

**mourad1987** · 22/03/2012, 14h13

cv mon ma solution est abouti en fin

**nokwih** · 22/03/2012, 14h14

Tout a fait d'accords avec #frenchsting c'est pourquoi je lui est donnée des codes pour avoir plus d'information de débogage qu'il puisse savoir ce qui coince

Comme je l'ai dit dans le premier message "je ne vois pas de quoi cela peut venir comme cela ?!" et je confirme "le code proposé par #miripesage ne changera, a première vu, aboslument rien !"

**miripesage** · 22/03/2012, 14h39

Le message(en mode smtp) n'est envoyer qu'après fermeture de la seesion! d'oû la rectification du code que j'ai proposé à Mourad.

**nokwih** · 22/03/2012, 15h31

Je comprends bien mais le retour de la fonction EmailEnvoieMessage est un boolèen qui est vrai si le message a été envoyé au serveur SMTP et faux dans le cas contraire !

Donc si il affiche le message d'erreur c'est que c'est sa connections SMTP qui n'est pas correct donc ton code n'y changera rien CQFD !

**miripesage** · 22/03/2012, 15h50

Envoyé par nokwih

Je comprends bien mais le retour de la fonction EmailEnvoieMessage est un boolèen qui est vrai si le message a été envoyé au serveur SMTP et faux dans le cas contraire !

Donc si il affiche le message d'erreur c'est que c'est sa connections SMTP qui n'est pas correct donc ton code n'y changera rien CQFD !

moi je comprend que la fonction EmailEnvoieMessage n'est executeée qu'après fermeture de la ssesion ! Donc elle ne renvoit rien

**nokwih** · 22/03/2012, 15h54

Ecoute ce que tu comprends c'est une chose, mais ce que dit la page d'aide sur la fonction ce n'est pas ce que je comprends, c'est ce que je sais ...

Envoyer un email en utilisant le protocole SMTP
<Résultat> = EmailEnvoieMessage(<Session> [, <Email>] [, <Options avancées>])
<Résultat> : Booléen
Vrai si le message a été envoyé au serveur SMTP,
Faux dans le cas contraire. Pour connaître le libellé de l'erreur, utilisez la fonction ErreurInfo avec la constante errMessage.

Source: http://doc.pcsoft.fr/fr-FR/?3032005

De plus les informations de débogage que j'ai donné vienne également de l'aide de PCSoft; http://doc.pcsoft.fr/fr-FR/?3032009&...letat-fonction

Donc ce que tu me dit c'est que tu sais mieux que PCSoft comment marche leur fonction ? Je ne dit pas que c'est impossible, mais peu probable >o<

**frenchsting** · 22/03/2012, 16h14

Pour l'avoir déjà pratiqué, ceci est juste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
// Composition du message
/....
// ouverture session
EmailOuvreSession(MaSession)
// envoi du message
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
  Erreur("L'envoi de l'email a échoué ! verifiez l'adresse mail " + ErreurInfo())
SINON
  Info("L'envoi de l'email a réussi") 
FIN
// fermeture session
EmailFermeSession(MaSession)

**mourad1987** · 28/03/2012, 13h50

je chercher comment ajouter a mon code pour envoie pièce joint

**frenchsting** · 28/03/2012, 14h09

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// ouverture session
Email.Attache[1] = NomDuFichierAjoindre
Email.NbAttache = 1

EmailOuvreSession(MaSession)

// envoi du message
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
  Erreur("L'envoi de l'email a échoué ! verifiez l'adresse mail " + ErreurInfo())
SINON
  Info("L'envoi de l'email a réussi") 
FIN
// fermeture session
EmailFermeSession(MaSession)

A tester. J'ai un doute sur le nbattache...

**mourad1987** · 29/03/2012, 10h02

// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.gmail.com"
MaSession..MotDePasse="mode passe"
MaSession..Port=587
MaSession..Nom="expéditeur@gmail.com"

SI EmailOuvreSession(MaSession) ALORS

Info("Connection établir")
SINON

Erreur("Impossible d'établir la connexion"+RC+ErreurInfo(errMessage))
FIN
///////

monAttache est un EmailAttache
MonMessage est un Email
sFichier est une chaîne="C:\Test\TEST.pdf"
MonMessage..Expediteur = "Expéditeur@gmail.com"
Ajoute(MonMessage..Destinataire,"destinateur@yahoo.fr")
MonMessage..Message = "mon Email"

monAttache..Nom=fExtraitChemin(sFichier,fFichier+fExtension)
monAttache..Contenu=fChargeTexte(sFichier)
//monAttache..ContentType="application/pdf"
monAttache..ContentDescription="Un document PDF"

// Ajout de la pièce jointe
Ajoute(MonMessage..Attache,monAttache)
// Envoi du message
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
Erreur("L'envoie de l'email a échoué ! verifiez l'adresse mail " )
SINON
Info("L'envoie de l'email a réussi")
FIN
EmailFermeSession(MaSession)

**frenchsting** · 29/03/2012, 13h33

Super si ça marche. Mets le topic en résolu alors.

Le emailnbattache n'existe pas en WD12. Je ne connaissais pas.

envoi d'email sous windev 15

WinDev

Discussions similaires

Partager

Partager