使用ASP(CDOSYS)发送电子邮件

2020年12月29日16:03:17 发表评论 41 次浏览

对于Windows Web Hosting软件包

在本文中, 我们将提供一个示例, 你可以根据自己的详细信息进行调整以使用ASP发送电子邮件。

CDOSYS, 它在2000年取代了CDONTS, 为你提供了协作数据对象, 以便在ASP中发送经过身份验证的电子邮件(需要用户名和密码)。

使用下面的示例进行测试, 你将需要替换所提供的一些详细信息:

<%

CONST SMTPSendUsing = 2'使用端口发送(网络上的SMTP)

CONST SMTPServer =" smtp.notlogy.com"

CONST SMTPServerPort = 25

CONST SMTPConnectionTimeout = 10分钟

CONST SMTPUser =" email@example.com"

CONST SMTPPassword ="密码"

昏暗的sSubject, sEmail, sMailBody, sFrom, sReadReceipt, sMsg

sSubject ="测试"

sEmail =" recipient@domain.com"

sMailBody ="这是一条测试消息。"

sFrom =" sender@domain.com"

sReadReceipt = true

sMsg =""

关于错误继续

昏暗的oMail, oConfig, oConfigFields

设置oMail = Server.CreateObject(" CDO.Message")

设置oConfig = Server.CreateObject(" CDO.Configuration")

设置oConfigFields = oConfig.Fields

与oConfigFields

.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing")= SMTPSendUsing

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver")= SMTPServer

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport")= SMTPServerPort

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1

.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername")= SMTPUser

.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword")= SMTPPassword

。更新

oMail.Configuration = oConfig

oMail.Subject = sSubject

oMail.From = sFrom

oMail.To = sEmail

oMail.HTMLBody = sMailBody

邮件发送

设置oMail = nothing

sMsg ="已发送消息"

如果Err.Number> 0, 则sMsg =" ERROR:"&Err.Description

响应。写短信

%>


一盏木

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: