E-Mail schicken "NMSMTP" mit mehrere Datein?
-
Hallo!
Ich habe kleine Problemm:
Das Code funktionirt wunderbar, aber nur mit eine angehängene Datei.void __fastcall TForm1::Button1Click(TObject *Sender) { NMSMTP1->Host = Form1->Edit1->Text; //NMSMTP1->UserID ="muster"; NMSMTP1->Connect(); NMSMTP1->PostMessageA->FromAddress =Form1->Edit2->Text; NMSMTP1->PostMessageA->ToAddress->Text = Form1->Edit3->Text; NMSMTP1->PostMessageA->Body->Text =Form1->Edit4->Text; NMSMTP1->PostMessageA->Subject = Form1->Edit5->Text; NMSMTP1->PostMessageA->Attachments->Text =Form1->Edit6->Text; NMSMTP1->PostMessageA->Attachments->Text ="c:\\test1.txt";// zweite Datei??? NMSMTP1->SendMail(); NMSMTP1->Disconnect(); }
wie kann ich z.B. 2 oder mehrere Datein im Anhang schicken?
-
Attachments ist vom Typ TStringList, und der hat mehr Methoden und Eigenschaften als nur Text.
-
Super Danke!
Ich muss nur Add nehmen.
NMSMTP1->PostMessageA->Attachments->Add("c:\\test.txt"); NMSMTP1->PostMessageA->Attachments->Add("c:\\test1.txt");
mfg