Discussion :

[Macosx45000]

Bonjour,

je cherche une solution pour ajouter dans une rubrique "Mail_Envoyer" un "1" dans le code suivant afin d’éviter l'envoie de mail plusieurs fois.

Je pense a la commande HAJOUTE mais je ne vois pas comment le faire.

Merci pour votre aide

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
POUR TOUTE LIGNE DE TABLE_REQ_ETAT_DATE
	EmailJauge(JAUGE_Mail)
	SI COL_Probleme="Quota" ALORS
 
		// Ouverture d'une session SMTP
		MaSession est un EmailSessionSMTP
		MaSession..AdresseServeur = "mail.xxxxxxxxxxx"
		MaSession..Port="25"
		MaSession..Nom = "xxx@xxxxxxx"
		MaSession..MotDePasse = "xxxxxxxx"
 
		//10 secondes pour le time out
		EmailChangeTimeOut(5)
 
		//Init des paramètres de l`email
		SI EmailOuvreSession(MaSession) = Faux ALORS
			Erreur("Impossible d'ouvrir la session SMTP.", ErreurInfo(), ...
			"En cas de Time Out, assurez-vous des paramètres du ""Pare-Feu"" sur le port utilisé ("+...
			MaSession..Port+")")
		FIN
 
		Email.Expéditeur=" xxx@xxxxxxx "
		Email.NbDestinataire = 3
		Email.NbCc = 1
		Email.Destinataire[1] = COL_Mail_client
		Email.Destinataire[2] = COL_Mail_Client2
		Email.Destinataire[3] = COL_Mail_Client3
		Email.Cc[1] = COL_Mail_srmi
		Email.NbAttache=0
		Email.Priorité=emailPrioritéHaute
		Email.Sujet=("Etat de votre sauvegarde " + COL_Client + COL_Jeux)
		Email.Message=("Madame,Monsieur, " + RC +  RC +"Votre quota de sauvegarde a été atteint, par conséquent votre sauvegarde en date du " + DateVersChaîne(COL_Date) + ...
		" n'a pas été réalisée." + RC +  RC +"Votre responsable de compte "+(COL_RESP)) + " prendra contact avec vous dans les plus brefs délais." + RC+...
		"Vous en souhaitant bonne réception" + RC + RC + ...
		"XXXX service support"
		EmailJauge("")
 
				SI EmailEnvoieMessage(MaSession) = Faux ALORS
			Erreur("L'envoi du message à échoué !'" + ErreurInfo(errMessage) + "'")
		FIN
 
	SINON
		SI COL_Probleme<>"Quota" ET COL_Probleme<>"0" ALORS
 
			// Ouverture d'une session SMTP
			MaSession2 est un EmailSessionSMTP
			MaSession2..AdresseServeur = "mail.xxxxxxx"
			MaSession2..Port="25"
			MaSession2..Nom = " xxx@xxxxxxx "
			MaSession2..MotDePasse = "xxxxxxx"
 
			//10 secondes pour le time out
			EmailChangeTimeOut(5)
 
			//Init des paramètres de l`email
			SI EmailOuvreSession(MaSession2) = Faux ALORS
				Erreur("Impossible d'ouvrir la session SMTP.", ErreurInfo(), ...
				"En cas de Time Out, assurez-vous des paramètres du ""Pare-Feu"" sur le port utilisé ("+...
				MaSession2..Port+")")
			FIN
			Email.Attache=0
			Email.Expéditeur=" xxx@xxxxxxx "
			Email.NbDestinataire =3
			Email.NbCc =1
			Email.Destinataire[1] = COL_Mail_client
			Email.Destinataire[2] = COL_Mail_Client2
			Email.Destinataire[3] = COL_Mail_Client3
			Email.Cc[1]=" xxx@xxxxxxx "
			Email.NbAttache=0
			Email.Sujet=("Etat de votre sauvegarde " + COL_Client + COL_Jeux)
			Email.Priorité=emailPrioritéHaute
			Email.Message=("Madame,Monsieur, " + RC +  RC +"Votre sauvegarde a rencontré une erreur, par conséquent votre sauvegarde en date du " + DateVersChaîne(COL_Date) + ...
			" n'a pas été réalisée." + RC +  RC +"Le support xxxx prendra contact avec vous dans les plus brefs délais." + RC+...
			"Vous en souhaitant bonne réception" + RC + RC + ...
			"xxxx service support")
			EmailJauge(JAUGE_Mail)
			SI EmailEnvoieMessage(MaSession2) = Faux ALORS
				Erreur("L'envoi du message à échoué !'" + ErreurInfo(errMessage) + "'")	
			FIN
 
		FIN
	FIN
FIN

[Nicolas_Jeanneau]

Bonjour,

dans ton code, on voit que tu envoies des messages et que tu affiches des messages en cas d'erreur. Tu parcours une table, est-ce que c'est dans cette table que tu veux mettre un marqueur d'envoi ? Si oui, lorsque tu as un envoi, fais le code suivant :

Code :

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

1
2
3
4
5
SI EmailEnvoieMessage(MaSession) = Faux ALORS
     Erreur("L'envoi du message à échoué !'" + ErreurInfo(errMessage) + "'")
SINON
     COL_Mail_Envoyer=1
FIN

Idem pour MaSession2.

Cependant, cela reste limité car si tu fermes et réouvres la fenêtre les marqueurs auront disparus. Donc si cela doit rester permanent à l'enregistrement, il faut le faire dans la table et la base de données également.

à bientôt,

Nicolas

[Macosx45000]

Bonjour et merci pour votre réponse,

Nous avons déjà le champ "Mail_Envoyer" dans la description de la table.
L’affichage de la table est alimenter par une requête.

Merci pour votre aide.

Bonjour,

dans ton code, on voit que tu envoies des messages et que tu affiches des messages en cas d'erreur. Tu parcours une table, est-ce que c'est dans cette table que tu veux mettre un marqueur d'envoi ? Si oui, lorsque tu as un envoi, fais le code suivant :

Code :

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

1
2
3
4
5
SI EmailEnvoieMessage(MaSession) = Faux ALORS
     Erreur("L'envoi du message à échoué !'" + ErreurInfo(errMessage) + "'")
SINON
     COL_Mail_Envoyer=1
FIN

Idem pour MaSession2.

Cependant, cela reste limité car si tu fermes et réouvres la fenêtre les marqueurs auront disparus. Donc si cela doit rester permanent à l'enregistrement, il faut le faire dans la table et la base de données également.

à bientôt,

Nicolas

[aurabarth]

Salut, je ne sais pas si votre problème est déjà résolu! Si ce n'est pas le cas alors je vous propose de faire une modification (HModifie) et non un ajout (hAjoute).

Code :

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

1
2
3
4
5
6
7
Si EmailEnvoieMessage.............. =faux alors
        Erreur....................................
 
sinon
       Fichier.Mail_Envoyer=1
       Hmodifie(Fichier)
fin