Delphi中，indy控件实现收发邮件的几点学习记录？ 可以考虑加入多线程，用多个邮箱做一个邮箱群发器

关于用Delphi中的Indy控件实现收发邮件的几点学习记录

这几天心里颇不宁静，不是因为项目延期，而是因为自己几个月前做的邮件发送程序至今无任何进展，虽然一向谦虚的人在网上发贴总以“小弟”自称。也发过N多关于此类问题的贴子，但总是收益甚少，但也十分感谢参与贴子的各位同仁。必竟，用Indy控件实现收发邮件的例子太少了，于是小弟决定写一篇关于Indy收发邮件的文章，供大家参考。由于本人才疏学浅，故难免有不少谬误，还请各位见谅。

在做例子之前，应明白整个发送和接收邮件流程：

从此流程可以看出，客户向smtp服务器发出邮件后，由smtp服务器负责向收件人发出最终信件，这个过程由服务器完成，客户无需操心。客户所关心的只是怎样将邮件发送到smtp服务器上去。POP3更简单了，只需要正确登录到POP3服务器上，再下载需要的邮件即可。

用Indy创建收发电子邮件的例子：

1、创建工程，在窗体中加入IdSMTP1、IdMessage1和IdPOP31（Indy控件标签组）控件各一个。

2、设置 IdSMTP1.Host := 'SMTP.163.com';(我用的是163检试，具体也可选择其它服务器) IdSMTP1.Username := 'caoyan528';(此处即表示邮箱的帐号名，例如邮箱为：aaaaaa@163.com,则Username即为aaaaaa) IdSMTP1.Password := 'XXXXXXXX';(此处即为邮箱的密码，如aaaaaa@163.com邮箱密码为123456,则Password即为123456)。

3、设置IdMessage1.From.Address := 'caoyan_528@163.com';（注意，此处的邮箱地址应在smtp.163.com中存在且就为以上设置的Username），IdMessage1.Recipients.EMailAddresses ：= ‘caoyan528@gmail.com’(此处表示收件人地址，只要是任何一个存在的邮箱地址即可) IdMessage1.Subject:= '第一个邮件客户端';（主题）具体源代码如下：

procedure TForm1.Button4Click(Sender: TObject);

var

filename : String;

tmpEMailItem : TIdEMailAddressItem;

// tmpEmailAdd : TIdEmailAddressList;

begin

try

IdSMTP1.Host := 'SMTP.163.com';

IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login

IdSMTP1.Username := 'caoyan_528';

IdSMTP1.Password := 'XXXXXX';

filename := 'E:\邮件发送程序\2003-12-22_253_04.jpg'; //需要添加的附件文件

TIdAttachment.Create(IdMessage1.MessageParts,filename); //添加附件

IdMessage1.From.Address := 'caoyan_528@163.com';

IdMessage1.Recipients.EMailAddresses:='caoyan528@gmail.com';

tmpEMailItem := IdMessage1.Recipients.Add; //添加一个地址列表

tmpEMailItem.Text := 'caoyan528@gmail.com'; //写一个收件人

idMessage1.BccList.Add.Text := 'caoyan_528@yahoo.com.cn'; //书写多个目标地址，实现群发

idMessage1.BccList.Add.Text := 'caoyan_528@163.com'; //书写多个目标地址，实现群发

IdMessage1.Subject:= '第一个邮件客户端';

IdMessage1.Body.Text := Memo1.Text; //此处为邮件正文

IdMessage1.CharSet := 'gb2312'; //保证附件正文汉字的正常显示

IdMessage1.Body.Assign(Memo1.Lines);

if IdSMTP1.AuthSchemesSupported.IndexOf('LOGIN')>-1 then

begin

IdSMTP1.AuthenticationType := atLogin; //连接前要保存为Login 上面己设，此处不必要

IdSMTP1.Authenticate;

end;

IdSMTP1.Connect(); //连接SMTP服务器

IdSMTP1.Authenticate;

IdSMTP1.Send(IdMessage1); //向服务器发送邮箱

finally

IdSMTP1.Disconnect; //断开与服务器的连接

end;

end;

自此，memo1中所写的内容被当作邮件发送了出去。而filename所指的附件也一同被发送到了服务器。

4、接收邮件

收以上的流程图不难看出，接收邮件完全是POP3服务器来完成的，客户只需连接到POP3服务器即可下载邮件。具体做法如下：

设置IdPOP31.Host := POP.163.com IdPOP31.Username := 'caoyan_528'; IdPOP31.Password:= 'XXXXX'; (此处的设置与SMTP的设置相同) 源代码如下：

procedure TForm1.Button5Click(Sender: TObject);

var

mailcount : integer;

i,j : integer;

tmp, sub : string;

begin

IdPOP31.Connect(); //连接到POP3服务器

mailcount := IdPOP31.CheckMessages; //得到邮箱邮件的各数

for i:=1 to mailcount do //遍历每一封邮件

begin

IdMessage1.Clear;

IdPOP31.retrieveHeader(i,IdMessage1); //得到邮件的头信息

sub := IdMessage1.Subject; //得到邮件的标题

Memo1.Lines.Add(sub); //显示标题

IdPOP31.Retrieve(i,IdMessage1); //接收到邮件所有内容

tmp := IdMessage1.Body.Text; //邮件正文

memo1.Lines.Add(tmp); //显示正文

for j:=0 to IdMessage1.MessageParts.Count-1 do //查看邮件所有内容，保证能够下载所有附件

try

if (IdMessage1.MessageParts.Items[j] is TIdAttachment) then //匹配邮件条目是否是附件

begin

TIdAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile('c:\'+TIdAttachment(IdMessage1.MessageParts.Items[j]).FileName); //以原有文件名保存附件在指定目录

end;

except

continue;

end;

end;

IdPOP31.Disconnect; //断开连接

end;

注意:以上在下载邮件附件时，若附件名包含汉字，则会触发异常，这就需要您想法转换汉字编码。若附件名没有汉字，以上代码不会出现异常。

希望对大家有所帮助。