Discussion :

[taradoum]

Bonjour. Je developpe une application permettant d'envoyer le meme message aux clients avec des pieces jointes différentes.

Pour cela j'arrive à envoyer individuellent les mes messages aux clients grace à ce code:

Password est une chaîne = "mokondji"
NomUser est une chaîne="Administrateur"
SI EmailOuvreSessionSMTP(NomUser, Password, "............" , 255) = Vrai ALORS
Info("Connexion etabli")
// initialisation des mails
Email.AdresseExpéditeur="Service d'envoi automatique de relévé de compte"
Email.Expéditeur = "releveddtbcc@bcc...."
Email.Destinataire= SAI_destinataire
Email.NbDestinataire= 1
Email.Sujet=SAI_objet
Email.Message= SAI_message
Email.NbAttache=1
Email.Attache= "S:\Extraits\Encours\windevmobilemail.pdf"
EmailEnvoieMessage(NomUser)
SINON
// aie, y'a erreur afficher...
Erreur("Il y a une erreur")
// Envoie l'email
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur("L'envoi du message a échoué")
FIN
EmailFermeSession(NomUser)
FIN



Maintenant je veux envoyer ce message à plusieurs clients. Je recupère leurs adresse mail dans un base de données oracle via l'accès natifs et une chaine de caractère permettant de construire de façon dynamique le chemin d'accès au fichier joint au message dans un boucle tantque

Les valeurs sont bien transmises mails les mails n'arrive pas à destination et pas de message d'erreur
voici le code du boucle tantque:

bIniReq est un booléen= HExécuteRequête(REQ1, hRequêteDéfaut, 5)
//recupération du resultat de la reqête
ResultatReq = HExécuteRequêteSQL(REQ1, MaConnexion, hRequêteSansCorrection, "SELECT COMP, EMAIL FROM RELTAB")
HLitPremier(REQ1)
TANTQUE PAS HEnDehors(REQ1)
Cpt= REQ1.COMP
Em= REQ1.EMAIL
Chemin est une chaîne=Caract(34)+ChaîneConstruit("C:\MAIL_ENCOURS\ %1", Cpt)+".PDF"+Caract(34)
Password est une chaîne = "........."
NomUser est une chaîne="Administrateur"
SI EmailOuvreSessionSMTP(NomUser, Password, "..............." , 255) = Vrai ALORS
// initialisation des mails
Email.AdresseExpéditeur="Service d'envoi automatique de relévé de compte"
Email.Expéditeur = "releoùui_èbc.com"
Email.Destinataire= Em
Email.NbDestinataire= 1
Email.Sujet= gsVsujet
Email.Message= gsVmessag
Email.NbAttache=1
Email.Attache=Chemin
EmailEnvoieMessage(NomUser)
SINON
// aie, y'a erreur afficher...
Erreur("Il y a une erreur")
// Envoie l'email
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur("L'envoi du message a échoué")
FIN
FIN
EmailFermeSession(NomUser)
DélaiAvantFermeture(1000)
Info("Objet "+SAI_Objet+"Message "+SAI_Message+ "destinataire "+Em+"Chemin "+Chemin)
HLitSuivant(REQ1)
FIN
DélaiAvantFermeture(1000)
Info("Procédure terminée avec succès")
DélaiAvantFermeture(1000)


Quelqu'un peut m'aider?
Merci d'avance!!!

[tatayo]

Bonjour,
Il faut tester le retour de EmailEnvoieMessage(), et en cas d'erreur voir ce que retourne ErreurInfo().
Tu sauras peut-être pourquoi les mails ne partent pas.

Tatayo.

[taradoum]

Merci pour votre aide!!!
ErreurInfo() retourne : La pièce jointe "C:\MAIL_ENCOURS\37100000101.PDF" n'existe pas. Le message ne peut être envoyé.

Je crois que je dois revoir la construction dynamique du chemin de recupération du fichier attaché au message

[michel.souris]

Bonjour,

J'ai pas lu l'intégralité de l'algo mais :

-> déclarer les variables au milieu d'une boucle.... no comment...
-> Chemin est une chaîne=Caract(34)+ChaîneConstruit("C:\MAIL_ENCOURS\ %1", Cpt)+".PDF"+Caract(34) => il y a un espace en trop dans avant %1, il me semble
-> pourquoi ouvrir une session SMTP à chaque envoi au lieu d'en ouvrir une pour envoyer tout ?

[taradoum]

Merci Tatayo pour votre aide precieuse, en revoyant la dont le chemin du fichier attaché est construit le message d'erreur ne s'affiche plus.

Maintenant un autre problème surgit et j'ai le message d'erreur ci-dessous:
"Vous avez appelé la fonction EmailEnvoieMessage.
La session de messagerie "relevecptbcc@bcc-bank.com" n'est pas une session valide."

La session de messagerie ici. Je ne sais pas si c'est la session windows du serveur ou l'adresse de messagerie du compte relevcptbcc@bcc-bank.com

Si quelqu'un a une idée, n'hésite pas de m'aider!!!
Merci d'avance

[Nicolas_Jeanneau]

bonjour,

tu as 2 fois EmailEnvoiMessage donc la 2e fois, ce ne sera pas valide.

Enlève cette partie du code :

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
 
bIniReq est un booléen= HExécuteRequête(REQ1, hRequêteDéfaut, 5)
 //recupération du resultat de la reqête
 ResultatReq = HExécuteRequêteSQL(REQ1, MaConnexion, hRequêteSansCorrection, "SELECT COMP, EMAIL FROM RELTAB")
 HLitPremier(REQ1)
 TANTQUE PAS HEnDehors(REQ1)
 Cpt= REQ1.COMP
 Em= REQ1.EMAIL
 Chemin est une chaîne=Caract(34)+ChaîneConstruit("C:\MAIL_ENCOURS\ %1", Cpt)+".PDF"+Caract(34)
 Password est une chaîne = "Bcc@2013"
 NomUser est une chaîne="Administrateur"
 SI EmailOuvreSessionSMTP(NomUser, Password, "192.168.10.21" , 255) = Vrai ALORS
 // initialisation des mails
 Email.AdresseExpéditeur="Service d'envoi automatique de relévé de compte"
 Email.Expéditeur = "relevecptbcc@bcc-bank.com" 
 Email.Destinataire= Em 
 Email.NbDestinataire= 1
 Email.Sujet= gsVsujet
 Email.Message= gsVmessag
 Email.NbAttache=1
 Email.Attache=Chemin
 <s>EmailEnvoieMessage(NomUser)</s>
 SINON
 // aie, y'a erreur afficher...
 Erreur("Il y a une erreur")
 // Envoie l'email
 SI EmailEnvoieMessage(NomUser) = Faux ALORS
 Erreur("L'envoi du message a échoué")
 FIN 
 FIN
 EmailFermeSession(NomUser)
 DélaiAvantFermeture(1000)
 Info("Objet "+SAI_Objet+"Message "+SAI_Message+ "destinataire "+Em+"Chemin "+Chemin)
 HLitSuivant(REQ1)
 FIN
 DélaiAvantFermeture(1000)
 Info("Procédure terminée avec succès")
 DélaiAvantFermeture(1000)

[tatayo]

En indentant le code on voit qu'il y a un soucis:

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
bIniReq est un booléen= HExécuteRequête(REQ1, hRequêteDéfaut, 5)
//recupération du resultat de la reqête
ResultatReq = HExécuteRequêteSQL(REQ1, MaConnexion, hRequêteSansCorrection, "SELECT COMP, EMAIL FROM RELTAB")
HLitPremier(REQ1)
TANTQUE PAS HEnDehors(REQ1)
	Cpt= REQ1.COMP
	Em= REQ1.EMAIL
	Chemin est une chaîne=Caract(34)+ChaîneConstruit("C:\MAIL_ENCOURS\ %1", Cpt)+".PDF"+Caract(34)
	Password est une chaîne = "Bcc@2013"
	NomUser est une chaîne="Administrateur"
	SI EmailOuvreSessionSMTP(NomUser, Password, "192.168.10.21" , 255) = Vrai ALORS
		// initialisation des mails
		Email.AdresseExpéditeur="Service d'envoi automatique de relévé de compte"
		Email.Expéditeur = "relevecptbcc@bcc-bank.com" 
		Email.Destinataire= Em 
		Email.NbDestinataire= 1
		Email.Sujet= gsVsujet
		Email.Message= gsVmessag
		Email.NbAttache=1
		Email.Attache=Chemin
		EmailEnvoieMessage(NomUser)
	SINON
		// aie, y'a erreur afficher...
		Erreur("Il y a une erreur")
		// Envoie l'email
		SI EmailEnvoieMessage(NomUser) = Faux ALORS
			Erreur("L'envoi du message a échoué")
		FIN 	FIN
	EmailFermeSession(NomUser)
	DélaiAvantFermeture(1000)
	Info("Objet "+SAI_Objet+"Message "+SAI_Message+ "destinataire "+Em+"Chemin "+Chemin)
	HLitSuivant(REQ1)
FIN
DélaiAvantFermeture(1000)
Info("Procédure terminée avec succès")
DelaiAvantFermeture(1000)

Si l'ouverture de session ne se fait pas, le mail est tout de même envoyé... ça ne risque pas de fonctionner. Il faut donc:
Supprimer le deuxième envoi
Tester le retour de EmailEnvoieMessage() (à la ligne 21)
Et surtout afficher autre chose que "L'envoi du message a échoué" ou "Il y a une erreur". ErreurInfo() permet de savoir ce qui ne fonctionne pas.

Tatayo.

[taradoum]

Bonjour. Merci pour votre aide si précieuse. J'ai resolu le problème en ecrivant une procédure qui se charge de l'envoi d'email dont voici le code:

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
 
PROCEDURE EnvoieMail1(VEmail,Vchemin, Vdchemin, VNomUser sont des chaînes)
Email.AdresseExpéditeur="Service d'envoi automatique de relevé de compte"
Email.Expéditeur = "relevecptbcc@bcc-bank.com" 
Email.Destinataire= VEmail
Email.NbDestinataire= 1
Email.Sujet= SAI_Objet
Email.Message= SAI_Message
Email.NbAttache=1
Email.Attache=Vchemin
EmailEnvoieMessage(VNomUser) 
SI EmailEnvoieMessage(VNomUser)= Faux ALORS
DélaiAvantFermeture(1000)
Erreur("L'envoi du message a échoué" + ErreurInfo(errMessage))
SINON
 fDéplaceFichier(Vchemin, Vdchemin)
FIN

Elle m'a aidé à commettre moins d'erreur

Merci!!!!

[michel.souris]

Factorisation is the answer, factorisation is the way...