请教indy pop3接收不到@hotmail.com 邮件
请问indy pop3接收不到@hotmail.com 邮件
请问indy pop3接收不到@hotmail.com 邮件在线等
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdPOP3, IdBaseComponent, IdMessage;
type
TForm1 = class(TForm)
IdMessage1: TIdMessage;
IdPOP31: TIdPOP3;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mailcount : integer;
i : integer;
tmp : string;
begin
IdPOP31.Connect(); //连接到POP3服务器
mailcount := IdPOP31.CheckMessages; //得到邮箱邮件的各数
//for i:=1 to mailcount do //遍历每一封邮件
//begin
IdMessage1.Clear;
IdPOP31.retrieveHeader(1,IdMessage1); //得到邮件的头信息
tmp := IdMessage1.Subject; //得到邮件的标题
Memo1.Lines.Add(tmp);
IdPOP31.Retrieve(1,IdMessage1); //接收到邮件所有内容
tmp := IdMessage1.Body.Text; //邮件正文
memo1.Lines.Add(tmp);
//end;
IdPOP31.Disconnect; //断开连接
IdPOP31.Free;
end;
end.
------解决方案--------------------
记得hotmail邮件是不支持POP3协议的,你可先用Outlook之类先试下是否支持POP3协议。
请问indy pop3接收不到@hotmail.com 邮件在线等
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdPOP3, IdBaseComponent, IdMessage;
type
TForm1 = class(TForm)
IdMessage1: TIdMessage;
IdPOP31: TIdPOP3;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mailcount : integer;
i : integer;
tmp : string;
begin
IdPOP31.Connect(); //连接到POP3服务器
mailcount := IdPOP31.CheckMessages; //得到邮箱邮件的各数
//for i:=1 to mailcount do //遍历每一封邮件
//begin
IdMessage1.Clear;
IdPOP31.retrieveHeader(1,IdMessage1); //得到邮件的头信息
tmp := IdMessage1.Subject; //得到邮件的标题
Memo1.Lines.Add(tmp);
IdPOP31.Retrieve(1,IdMessage1); //接收到邮件所有内容
tmp := IdMessage1.Body.Text; //邮件正文
memo1.Lines.Add(tmp);
//end;
IdPOP31.Disconnect; //断开连接
IdPOP31.Free;
end;
end.
------解决方案--------------------
记得hotmail邮件是不支持POP3协议的,你可先用Outlook之类先试下是否支持POP3协议。