用Delphi2010 实现邮件附件收发功能
TIdPOP3组件简介
TIdPOP3 是用来接收邮件服务器的邮件信息到用户端的一个组件。它实现了RFC 1939协议。
在使用TIdPOP3组件时需设置它的几个成员属性。
Host :指定邮件服务器,一般为pop3邮件服务器的地址,如 pop3.126.com。
Username :用户名,也就是邮箱名,如billanking2002@126.com。
Password :邮箱密码,在进行收发邮件时组件需要凭密码进行登录。
其它成员属性
Connected:返回它与邮件服务器的连接状态,这true表示已经连接。
CheckMessages:邮件数,如果连接服务器成功,则可以获得服务器端的邮件数。
成员函数
procedure Connect(const ATimeout: Integer = IdTimeoutDefault);
与服务器连接函数。参数为无效连接时等待的毫秒数。
function RetrieveHeader(const MsgNum: Integer; AMsg: TIdMessage): Boolean;
接收邮件头信息,它有两个参数,MsgNum表示在接收第几个邮件,从1开始,AMsg为邮件消息组件实例。
function Retrieve(const MsgNum: Integer; AMsg: TIdMessage): Boolean;
接收邮件主体信息,它与 RetrieveHeader的参数是一样的。接收的邮件内容将保存在AMsg中。
function Delete(const MsgNum: Integer): Boolean;
删除邮件服务器中第几个邮件。从1开始。
procedure Disconnect; override;
关闭连接。
TIdMessage组件简介
TIdMessage用来支持邮件消息协议,如POP3,SMTP,NNTP等。TIdMessage支持多用途Internet邮件扩展(MIME)协议。
常用的TIdMessage的属性:
Subject:邮件主题,这个字符串经过BASE64编码的。所以在使用时需对它进行解码。
MessageParts:这是TIdMessageParts类的一个实例,它用来存储邮件的信息。如邮件内容及附件信息。在进行解析时需要判断它是否为附件或文本,如果为附件时,其文件名是经过BASE64编码的。判断常量分别为TIdText , TIdAttachment。
Body:这是个字符串列表,包含构成该邮件的正文内容。
Form:发送邮件者的地址信息。
Recipients:收件人地址信息。
BccList:抄送地址列表。
CharSet:指示邮件信息中使用的字符集。
ContentType:指定MIME媒体数据类型,描述正文中包含的数据,使用户代理决定如何显示数据,常用的有text/html,text/xml。
TIdSMTP组件简介
TIdSMTP是TIdMessageClient派生出的一个简单邮件传输协议和SMTP客户端。
它的主要功能是发送邮件信息。
常用的属性:
Host :SMTP邮件服务器的地址,如smtp.126.com。它与上面的POP3地址不一样。
AuthenticationType:服务器认证类型,它有atNone,atLogin两种,即不需要认证和需要凭用户名和密码进行认证。
Username:用户名,这里与TIdPOP3 有点不一样,即它不需要后缀,如billanking2002
Password:邮箱登录密码。如果AuthenticationType设置了atLongin则必须设置密码和用户名。
1