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 搜索字符串

Delphi 遍历文件单元文件

Delphi tstringlist删除重复项

Delphi中读取硬盘的物理序列号

Delphi返回一个汉字的unicode编码

Delphi 把字节数显示成kb或gb的函数

Delphi检测android mock位置

Delphi 快速读取txt 指定行的数据

Delphi 跨平台打开网址链接

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

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