各位先進您好 :

小弟於 CB2009 開發傳送信件的程式時, 遇到了編碼的問題

程式碼如下 :

[code cpp]
IdSMTP1->Host="goalsoft.com.tw";
IdSMTP1->Port=25;
IdMessage1->From->Address="ysc@goalsoft.com.tw";
IdMessage1->From->Name="測試 EMail";
IdMessage1->AttachmentEncoding="MIME";
IdMessage1->CharSet="utf-8";
IdMessage1->Encoding=meDefault;
IdMessage1->ContentType="text";
IdMessage1->ContentTransferEncoding="base64";
IdMessage1->Body->Assign(Memo1->Lines);
IdMessage1->Body->Text=IdMessage1->Body->Text.c_str();
IdMessage1->Subject="測試 EMail 編碼";
IdMessage1->Recipients->Clear();
IdMessage1->Recipients->EMailAddresses="service@goalsoft.com.tw";
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();
Close();
[/code]

雖然編碼是 UTF-8, 但是用 Outlook 收信的結果是, 內文還是使用 Big5 編碼, 並且信件的 Subject 會出現 ?????? 之亂碼

請問一下, 是小弟哪個步驟錯誤了嗎 ?

即使是使用了

IdMessage1->ContentType="text/plain;charset=utf-8";

也是相同的結果, 似乎 IdSMTP 沒有將編碼改變成 UTF-8 寄出信件

郵件內容 :

Received: from ysc ([118.161.191.88])
by goalsoft.com.tw ([192.168.1.6]);
Sun, 19 Apr 2009 02:11:06 0800
From: ?? EMail <ysc@goalsoft.com.tw>
Subject: ?? EMail ??
To: service@goalsoft.com.tw
Content-Type: text/plain;charset=utf-8;
charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: base64
Date: Sun, 19 Apr 2009 02:11:56 0800

編輯記錄

我也遇到相同的問題，我是使用Delphi2009，爬文後，聽說要使用

idMessage1.OnInitializeISO:=InitializeISO;
procedure TForm1.InitializeISO(var VHeaderEncoding: Char; var VCharSet:string);
begin
//VTransferHeader := bit8;
VHeaderEncoding := 'B';
VCharSet := 'big5';
end;

但還是沒用！

目前我是透過 HTTP Post 到 PHP 送出 Mail 了

1. 在delphi 2009所附的indy是10.2.5版，我將他換成indy 10.5.5版後就沒有亂碼的問題。
2. 但是indy 的idmessage的主旨，顯示不出unicode，而內容(unicode的字體預設是細明體)及附加檔案都是ok的
3. 程式及元件任何字型都不用設定，只要用預設即可，因為delphi 2009是真正的unocode
4. 建議用svn升級，這樣的話随身可以更新，最新的版本(亂碼是因為indy尚未完全跟上delphi 2009或 C 2009的關係。

------
努力學習Rave