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 瞬间消除无用托盘图标(刷新托盘)

删除Delphi组件tstringlist中的重复项目

Delphi 时间转成大写

获取 ip138 ip 地址

Delphi xe5在zip文件中添加某个txt文件并写入文字

Delphi截取技巧 lastdelimiter

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi 合并动态数组

Delphi 查看dpr文件

Delphi nethttpclient1 下载显示进度条

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

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