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


Log in to reply