//===================================================================
    AnsiString msg;
    //將各個欄位的資料全部寫入變數中
    //這樣比較方便在程式中使用
    AnsiString Server = "192.168.1.162";
    int Port = 25;
    //將Server Side相關屬性設定好
    //填入 E-mail Server 的位址
    NMSMTP1->Host = Server;
    //填入E-mail Server 的 Port, 一般都是使用25
    NMSMTP1->Port = Port;
    //填入User Name
    NMSMTP1->UserID = Edit7->Text;
    //與Server連線
    NMSMTP1->Connect();
    //將各個資料填入NMSMTP的PostMessage中
    //填入寄信者的e-mail address
    NMSMTP1->PostMessage->FromAddress = add;
    //填入寄件者的姓名
    NMSMTP1->PostMessage->FromName = "Chen";
    //填入信件標題
    NMSMTP1->PostMessage->Subject = Edit4->Text;
    //填入收信人的E-mail Address
    NMSMTP1->PostMessage->ToAddress->Add(email);
    //填入副本收件者的E-mail Address
    NMSMTP1->PostMessage->ToCarbonCopy->Add("");//<======不能用Add("")?
    //填入密件副本收件者的E-mail Address
    NMSMTP1->PostMessage->ToBlindCarbonCopy->Add("");
    //填入信件內容
    NMSMTP1->PostMessage->Body->Assign(Memo->Lines);
    //將信送出
    NMSMTP1->SendMail();    

引言: 哦...再想到一個問題; 如何使得寄出的信的Piority是high? 謝謝

void __fastcall TForm1::NMSMTP1SendStart(TObject *Sender)
{
  NMSMTP1->FinalHeader->Values["X-Priority"] = "1 (High)";
}