delphi IdPOP3收邮件

本文整理自网络，侵删。

  IdPOP31.Host :='POP'+POPID;
IdPOP31.Username :=UserName;
IdPOP31.Password:= UserPass;
IdPOP31.Connect(); //连接到POP3服务器
IdMessage1.Clear;
IdPOP31.retrieveHeader(LWGetMail.Selected.Index+1,IdMessage1); //得到邮件的头信息
IdMessage1.ContentType:='text/plain';
IdMessage1.CharSet:='GB2312';
Label12.Caption := IdMessage1.Subject; //得到邮件的标题
Label8.Caption:=IdMessage1.From.Text;
Label6.Caption:=DateTimeToStr(IdMessage1.Date);
Label10.Caption:=IdMessage1.Recipients.EMailAddresses;
IdPOP31.Disconnect; 

相关阅读 >>

Delphi 读取正在被占用的txt文件

Delphi dos编程

Delphi 如何获取进程的全路径名

Delphi操作多显示器

Delphi使用sqlite数据库时的中文路径问题

iniocp（小旋风服务套件）

Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件

Delphi generics collections tdictionary 用法

Delphi 去掉警告

Delphi apihook createprocess

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi IdPOP3收邮件