求idMessage收发邮件的问题 ( 积分: 10 )

我现在用IdPOP,IdMessage来接收邮件，能成功收发邮件，但我只需收发未查看的邮件，历史邮件不需要收发，请问怎么设置？源码如下：
procedure TfrmNewMail.Btn_RecvClick(Sender: TObject);
var
i:byte;
begin
POP.Host:='pop.163.com'
POP.Port:=110；
POP.Username:='zpselect'
POP.Password:='*****';
try
try
POP.Connect();
for i:=0 to POP.CheckMessages-1 do
begin
IdMessage.Clear;
POP.Retrieve(i,IdMessage);
edtTitle.Text:=IdMessage.Subject;
M_content.Lines.Assign(IdMessage.Body);
end;
ShowMessage('共接收：'+inttostr(POP.CheckMessages)+'封邮件');
finally
POP.Disconnect;
end;
Except
messagedlg('接收失败，请检查!', mtInformation, [mbok], 0);
Exit;
end;
end;

我跟著急。。。。。。

共同着急中……

白河愁,很可爱！西西

晕死，没有人知道么？

高手们看到你的标题没有说明性内容，又不知道你问了什么，发现你没有阅读 提问的智慧，绕路走了

你可以编辑标题 让你的标题 表达更清楚，这样会更快获得支持～

我使用idPOP3,idMessage这两个控件来收发邮件的，在邮件时为什么邮件内容及标题都是乱码, 有什么方法解决么？

你没有说明Indy的版本.
但好在我作过研究: 直至10.1.5版为止,Indy都存在对中文的MIME解码方面的BUG.

如果不想改Indy的源代码(即使改了源代码,在重编译Indy时仍要有一堆BUG要克服), 我给你两个建议:

1 用附件发送中文内容
2 附件的名字不要用中文

看看html的CharSet
汉字用的是GB2312
支持多语言就使用UTF-8

这个问题我已经解决

多人接受答案了。