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