神马品牌网中研普华售后客服待遇:如何实现ASP邮件发送
来源：百度文库 编辑：神马品牌网 时间：2024/05/04 17:54:52
Dim sendmaildll
Dim strA, strB, strC
Set sendmaildll= Server.CreateObject("SendMaildll.Send_mail")
sendmaildll.AuthenticationType="1"
sendmaildll.Host=***
sendmaildll.port="25"
strA=sendmaildll.Connect (UserName,Password)
strB=sendmaildll.Authenticate
sendmaildll.subject=主题
sendmaildll.Emailto=寄出的地址
sendmaildll.Fromaddress=寄信人地址
sendmaildll.fromname=寄信人姓名
sendmaildll.Addbody 信的内容
sendmaildll.Priority="1"
strC=sendmaildll.sendmail
if strC="0" Or strC="" then
Response.Write "恭喜，发送邮件成功，等待工作人员处理！"
else
Response.Write = "邮件发送失败，请重新发送"
end if
set sendmaildll=nothing