本文整理自网络,侵删。
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 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber
更多相关阅读请进入《Delphi》频道 >>