Discussion :

[vali]

Bonjour,

Je tente d'envoyer des fichiers paradox par mail à plusieurs destinataires.
Je boucle donc sur mes destinataires et j'envoi.

Jusque là tout va bien. Le problème est que les fichiers joints se cumulent au fur et à mesure des envois....

Comment faire pour re-initialiser les fichiers joints ?

voici mon 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
 
// boucle sur les destinataires (un par un)
while j <= Tbo_RetSel_L.Int_Ctl do
begin
    //mail à envoyer
    Main_Mess.Recipients.EMailAddresses := Tbo_RetSel_L.Str_Liste[j];
 
    TIdAttachment.Create(Main_Mess.MessageParts,Str_Chemin_L+ 'Att_Premier.txt');
 
   Int_IdSite_L := F_DtmService.Tbl_eIdt.Lookup('Str100_eMAdr',Tbo_RetSel_L.Str_Liste[j],'Int_IdSite');
 
   //on filtre en fonction du destinataire
   case Int_FiltreTbl(Int_IdSite_L) of
        1 :
             begin
                     TIdAttachment.Create(Main_Mess.MessageParts,Str_Chemin_L + 'eSejExport.DB'
             end;
        end;
 end;
 
  try
       Main_SMTP.Send(Main_Mess);
  except
       E03 := Exception.Create('Envoi impossible.');
        raise E03;
  end;
 
inc(j);
end;

[Rayek]

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
 
// boucle sur les destinataires (un par un)
while j <= Tbo_RetSel_L.Int_Ctl do
begin
    //mail à envoyer
    Main_Mess.Recipients.EMailAddresses := Tbo_RetSel_L.Str_Liste[j];
 
    TIdAttachment.Create(Main_Mess.MessageParts,Str_Chemin_L+ 'Att_Premier.txt');
 
   Int_IdSite_L := F_DtmService.Tbl_eIdt.Lookup('Str100_eMAdr',Tbo_RetSel_L.Str_Liste[j],'Int_IdSite');
 
   //on filtre en fonction du destinataire
   case Int_FiltreTbl(Int_IdSite_L) of
        1 :
             begin
                     TIdAttachment.Create(Main_Mess.MessageParts,Str_Chemin_L + 'eSejExport.DB'
             end;
        end;
 end;
try 
  try
       Main_SMTP.Send(Main_Mess);
  except
       E03 := Exception.Create('Envoi impossible.');
        raise E03;
  end;
finally
  TIdAttachment.free; // a tester
end;
 
inc(j);
end;

Tu crées des attachements mais tu les detruits jamais. normal que ca te les cumuls.


2em solution tu crées d'abord tes attachements et après tu fais ta bloucle d'envoi à tes destinaires.

[vali]

je pense avoir trouvé.

En fait aprés chaque envoi je fais

Code :

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

Main_Mess.MessageParts.Clear;

je crois que ça m'efface les fichiers joints.