我正在尝试使用 Indy 的 TIdIMAP4
组件接收电子邮件。
以下是有关如何检索消息的一些示例代码:
procedure TEmailForm.GetMessage(ID: string);
var
IMAP: TIdIMAP4;
Msg: TIdMessage;
begin
IMAP := TIdIMAP4.Create(Self);
IMAP.Host := 'mailserver';
IMAP.Username := 'username';
IMAP.Password := 'password';
IMAP.Connect(True);
IMAP.SelectMailBox('INBOX');
Msg := TIdMessage.Create(Self);
IMAP.UIDRetrieve(ID, Msg);
Subject.Caption := Msg.Subject;
if (Msg.MessageParts.Count = 0) then
MsgBody.Text := Msg.Body.Text
else if (Msg.MessageParts[0] is TIdText) then
MsgBody.Text := TIdText(Msg.MessageParts[0]).Body.Text;
IMAP.Disconnect();
IMAP.Free;
end;
其中 Subject
是 TLabel
,MsgBody
是 TMemo
。
如果电子邮件是多部分邮件(例如通过 Gmail 发送的邮件),则 TIdText(Msg.MessageParts[0]).Body.Text
返回的正文会正确编码,并且包含特殊字符,例如德语元音变音正确显示。
虽然电子邮件是单部分消息(例如通过 GMX 发送的消息),但 Msg.Body.Text
返回的消息正文中的所有特殊字符都将替换为问号 ( ?
)。
通过
检索消息正文IMAP.UIDRetrieveText(ID, MsgText);
Mojibake 中的结果类似于 Á¤à¶úñàñâ²
。
预期字符为 äöüßñ²
。
FWIW 通过 Telnet 获取消息正文我得到这个:
a06 UID FETCH 100 (BODY)
* 244 FETCH (BODY ("text" "html" ("charset" "UTF-8") NIL NIL "7BIT" 206 2) UID 1
00)
a06 OK FETCH completed.
a07 UID FETCH 100 BODY[TEXT]
* 244 FETCH (BODY[TEXT] {206}
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body>
<div style="font-family: Verdana;font-size: 12.0px;"><div>├ñ├Â├╝├ƒ
</div></div></body></html>
UID 100 FLAGS (\Seen))
a07 OK FETCH completed.
那么检索这种 UTF-8 编码的单部分电子邮件的邮件正文的正确方法是什么? IE。如何正确解码它们?
最佳答案
TIdIMAP4.UIDRetrieve()
使用电子邮件本身中指定的任何字符集。如果单部分电子邮件无法正确解码,那么它可能没有指定正确的字符集。您必须查看原始电子邮件数据才能确认这一点。 MIME 编码的电子邮件比纯文本电子邮件更有可能指定字符集。非 ASCII 字符受字符集处理的影响,因此 TIdMessage
了解电子邮件使用的字符集编码非常重要。
对于UIDRetrieveText()
,它不知道正在检索的文本/部件部分(即 TODO 项)的字符集,因此它无法解码非 ASCII 字符。另一方面,UIDRetrieveText2()
首先获取电子邮件的 BODYSTRUCTURE
并找到正在检索的文本/部分的 charset
,以便可以使用解码期间的字符集。
关于delphi - 如何通过 TIdIMAP4 接收 UTF-8 编码的消息?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27507202/