E-Mail Anhang an TIdMessage

[Gast_1]

Hallo,

hab via Google mehrere Beispiele gesehen, aber leider alle in Delphi.
Ich möchte IdMessage1 eine Datei anhängen, die ich dann über TIdSMTP versenden will. Kann mir bitte jemand ein Beispiel in BCB schreiben? Hab nie mit Delphi programmiert...<br>
Es geht um diese Zeile:
<b>TIdAttachment.Create(IdMessage1.MessageParts, 'c:\\test.zip');</b>
<br>Die brauche ich als BCB Code.

[Peter Tuschik]

Hi Stanislay,

Ich habe den C++Builder 5 und kann die Komponente TIdSMTP nicht finden. Aber ich mache das mit TNMSMTP und benutze es so:

AnsiString Filename = "IrgendeinName.txt";
TStringList *Att = new TStringList;
Att->Add(FileName);
NMSMTP->PostMessage->Attachments->Assign(Att);
delete Att;


Vielleicht kannst du das ja ähnlich verwenden.

Bye - Pete

[Gast_1]

Hallo Peter,<br>
danke für deinen Tipp. Leider hat TIdMessage keine Attachment-Eigenschaft - diese lassen sich also nicht automatisch zuweisen und müssen, wie oben mit Delphi Code geschrieben, manuell erstellt werden.<br>
TIdSMTP gehört zu den Indy Komponenten, die man kostenlos unter http://www.indyproject.org/ runterladen und benutzen kann. Die sind glaub ich bei BCB6 standartmäßig dabei

[Christian Marquardt]

Du musst auch irgendiw mit TidMessagepart und TidMessageparts arbeiten. Wie genau habe ich auch noch nicht rausbekommen

[Gast_1]

OK, danke euch. Hab schon eine Lösung gefunden:<br><font color="#009900">
IdMessage1->MessageParts->Add();
new TIdAttachment(IdMessage1->MessageParts, "c:\\test.zip");</font&gt

[Christian Marquardt]

Super

Vielen Dank für die Inf

[Gast_1]

Entschuldigung! Eine kleine Korrektur war nötig, da sonst ein Memory Leak entsteht:<br>
<font color="#009900">IdMessage1->MessageParts->Add();
TIdAttachment *AttFile = new TIdAttachment(IdMessage1->MessageParts, "c:\\test.zip");
/* jetzt Verbindung herstellen und Mail senden... */
delete AttFile;</font><br>
<b>delete AttFile;</b> darf aber erst aufgerufen werden, wenn die Email gesendet wurde, sonst werden die Attachments aus IdMessage einfach wieder gelöscht

[Christian Marquardt]

Dank