delphi 发送html邮件,delphi-icv 邮件发送 -所用控件(HtmlSmtpCli).pdf

kkaayy_的专专栏栏

ddeellpphhii--iiccvv 邮邮件件发发送送 --所所用用控控件件 ((HHttmmllSSmmttpp llii))

分类： delphi 2013-12-10 16:39 30人阅读 评论 (0) 收藏 举报

1.界面设计如下：

2.两个事件： (1)发送按钮单击事件 (2)控件HtmlSmtp li的HtmlSmtp liRequestDone事件

(1)发送事件：代码如下：

//******************给以下控件属性相应的值**************

//  发送纯文本

//HtmlSmtp li.PlainText:=

//发送网页文本 (传送的文本)

//HtmlSmtp li.HtmlText:=

//发送邮件中的图片 (传送的是地址)

//HtmlSmtp li.EmailImage:=

//发送邮件中的文件 (传递的是文件的路径)

//HtmlSmtp li.Emailfiles:=

//********************************************************

//******************从界面上给SMTP赋值********************

HtmlSmtp li.Host:=HostEdit.Text;//发送邮件SMTP服务器

HtmlSmtp li.SignOn:= SignOnEdit.Text; //标记发送人否则为匿名邮件

HtmlSmtp li.Port:=PortEdit.Text;// 发送邮件的端口

HtmlSmtp li.FromName:=Fromedit.Text;//发送邮箱的真正地址，不指定为匿名发送 (该参数不指定为匿名

发送)

HtmlSmtp li.HdrFrom :=Fromedit.Text;//SMTP发送邮件的显示邮箱 (该参数不指定发送不成功)

HtmlSmtp li.HdrTo:=ToEdit.Text;//主机接收邮箱的地址

HtmlSmtp li.HdrSubject:=SubjectEdit.Text;//邮件的发送主题

1

HtmlSmtp li.HdrSubject:=SubjectEdit.Text;//邮件的发送主题

HtmlSmtp li.Username:=UserNameedit.Text;//发送邮件的账户名称

HtmlSmtp li.Password:=Passwordedit.Text;//发送邮件的账户登陆密码

//HtmlSmtp li.hd

//*********************************************************

//检查相关字段

if (HtmlSmtp li.Username<>'') and (HtmlSmtp li.Password<>'') then

HtmlSmtp li.AuthType:=smtpAuthAutoSelect//AuthType是定义的一个结构体

else

HtmlSmtp li.AuthType:=smtpAuthNone;

HtmlSmtp li.RcptName. lear;//接收方的名称清空

HtmlSmtp li.RcptNameAdd(ToEdit.Text,'',''); //接收方的邮箱地址，抄送，隐藏抄送

HtmlSmtp li. onnect;

(2)控件HtmlSmtp li的HtmlSmtp liRequestDone事件

case RqType of

smtp onnect:  begin

if HtmlSmtp li.AuthType = smtpAuthNone then

HtmlSmtp li.Helo

else

Htm