procedure TMain_frm.NMSMTP1SendStart(Sender: TObject); begin nmsmtp1.FinalHeader.Clear; end; 這樣設置以下,就可以發送中文,但是郵件的標題沒有了(郵件的標題沒有,看起來就不好),請教各位高手,能否有一個兩全齊美的辦法,急急!!!!!!!

您好: 這範例是我用 bcb 寫的,希望能有幫助 void __fastcall TForm1::BitBtn1Click(TObject *Sender) { NMSMTP1->FinalHeader->Clear(); NMSMTP1->Charset = "Big5"; NMSMTP1->Host = "192.168.1.1"; NMSMTP1->Port = 25; NMSMTP1->UserID = "nobody"; NMSMTP1->Connect(); NMSMTP1->PostMessage->FromName = "SomeOne"; NMSMTP1->PostMessage->FromAddress = "SomeBody@MyAddress.com"; NMSMTP1->PostMessage->ToAddress->Add("SomeOne@ToAddress.com"); NMSMTP1->PostMessage->Subject="中文信件測試"; NMSMTP1->PostMessage->Body->Add("English is fine,中文也沒有問題"); NMSMTP1->PostMessage->LocalProgram="MyMail"; NMSMTP1->SendMail(); MessageBox(NULL,"信件已寄出!","訊息",MB_OK); NMSMTP1->Disconnect(); }

------
yckuo