INDY 10 EMail Anhänge

[Gandimann]

Hello Freunde ,

lbattachments.Items.Clear;
attachment_list := lbattachments.Items;
if assigned( attachment_list ) then
for i := 0 to attachment_list.Count - 1 do
TIdAttachmentfile.Create( mmsg.MessageParts,attachment_list.Strings[ i ] );
mmsg.Body.Text :=frmAPPLIS.richEditEML.Text ;

so füge ich Dateianhänge dem MsgSend hinzu.
Es wird für jede EMAIL ein Attachment-Objekt erzeugt.
Hat jemand eine Ahnung wie ich vorher alle geschickte Anhänge löschen kann?

Der Hintergrund ist, Der Anwender fügt eine Datei hinzu und versendet das
Email.

Nach dem erneuten Senden enthält das Email zu den neuen Dateianhängen auch die alten.

Warum das so ist, ist mir nicht klar. :cry:

Leider finde ich keine Methode die Attachment-Objekt zu löschen.

Bin jede Hinweis dankbar .

MfG
Gandimann

System : Delphi XE / Win 7 / 64 bit

[Gandimann]

Nevermind i fount the solution :

....
finally
TIDMESSAGE.MessageParts.Clear ;
end;

:thumb::thumb::thumb: