Delphi - wysyłanie maila z załącznikiem w pętli.

0

Witam

Potrzebuje w programie wysłać kilka maili z załącznikami (każdy mail z innym załącznikiem).

Może mi ktoś podpowiedzieć jak usunąć dotychczasowe załączniki z maila ?

W tej chwili mam taką pętle:

for  x:=1 to ile_mail do
begin
Memo1.Lines.Add(Concat('Wysylam plik: ',plikiw[x],' na ',sklep[x]));
IdMessage1.Body.Append('');
if sklep[x]='ZZZZ' then IdMessage1.Recipients.EMailAddresses := '[email protected]';
if sklep[x]='XXX' then IdMessage1.Recipients.EMailAddresses := 'xxx@xxx';
if sklep[x]='GGG' then IdMessage1.Recipients.EMailAddresses := '[email protected]' else  IdMessage1.Recipients.EMailAddresses := '[email protected]';
IdMessage1.Subject := 'test';
IdMessage1.From.Name := '[email protected]';
IdMessage1.From.Address := '[email protected]';
idSMTP1.Password := 'testowe';
idSMTP1.Username := 'testowe';
idSMTP1.Host := 'testowe';
TIdAttachment.Create(IdMessage1.MessageParts,plikiw[x]);
IdSMTP1.Connect;
try
  IdSMTP1.Send(IdMessage1);

finally
  IdSMTP1.Disconnect;
end;
end;
 

Jednak w tym przypadku ostatni mail zawiera wszystkie załączniki.

Pozdrawiam i z góry dziękuję.

1

Nie pamiętam jak w 9 (bo to chyba Indy 9) ale chyba jakoś tak:

IdMessage.MessageParts.Clear;
0

Dokładnie o to chodziło :)

Dziękuję.

1 użytkowników online, w tym zalogowanych: 0, gości: 1