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 := 'ZZZ@zzz.pl';
if sklep[x]='XXX' then IdMessage1.Recipients.EMailAddresses := 'xxx@xxx';
if sklep[x]='GGG' then IdMessage1.Recipients.EMailAddresses := 'GGG@gg.pl' else IdMessage1.Recipients.EMailAddresses := 'xxxx@cccc.pl';
IdMessage1.Subject := 'test';
IdMessage1.From.Name := 'test@test.pl';
IdMessage1.From.Address := 'test@test.pl';
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ę.