Discussion :

[blimarck]

bonjour à tous,
j'ai besoin d'un coup de main. je souhaite envoyer un ou plusieurs mails avec via mes paramètres d'accès gmail, malheureusement je n'y parviens pas.
aidez moi a trouver la faille à cette procédure.
vous verrez joint en image le message d'erreur.
Merci pour votre aide !
NB: j'utilise WINDEV 17

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
34
35
36
37
38
39
PROCEDURE Proc_Mail(Subject,txt,Attache="",AdExpéditeur="monmail@gmail.com")  
SI InternetConnecté=Faux ALORS  
	RENVOYER Faux  
SINON
	Info("Vous avez Accès à internet !")
FIN  
 
User est une chaîne= "monmail@gmail.com" 
Password est une chaîne = "monpw"  
SessionSMTP est une EmailSessionSMTP  
SessionSMTP..AdresseServeur = "smtp.gmail.com"//"ssl://smtp.gmail.com"  
SessionSMTP..Nom = User  
SessionSMTP..MotDePasse = Password  
SessionSMTP..Port = 587 //465//25// 
SessionSMTP..Option = emailOptionSécuriséTLS  
Courriel est un objet Email  
Courriel..AdresseExpéditeur=AdExpéditeur  
Courriel..Expediteur= Societe.nom  
Courriel..Destinataire[1] = "Destinataire1@gmail.com"  
Courriel..Destinataire[2] = "Destinataire2@gmail.com"   
Courriel..Confidentialité=emailPrivé  
Courriel..Sujet = Subject//"text"//  
Courriel.HTML= txt //"je teste windev mail"// 
SI Taille(Attache)<>0 ALORS  
	Courriel..Attache[1].Nom= Attache  
	Courriel..Attache[1].Contenu=fChargeTexte(Attache)  
FIN  
SI EmailOuvreSession(SessionSMTP) = Vrai ALORS  
	SI PAS EmailEnvoieMessage(SessionSMTP,Courriel) ALORS  
		RENVOYER Faux  
	SINON
		Info("Mail envoyer avec succès !")
	FIN  
SINON  
	Erreur(ErreurInfo())
	//info("Echec !")
	RENVOYER Faux  
FIN  
RENVOYER Vrai