[导入]使用CDO.Message+SMTP发送邮件

<%
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim oCDOConfig ' As CDO.Configuration
Dim oCDOMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

Set oCDOConfig = Server.CreateObject("CDO.Configuration")
Set Fields = oCDOConfig.Fields

With Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "SMTP服务器" '//改成可用的外部邮件服务器域名
    .Item(cdoSMTPServerPort) = 25
    .Item(cdoSMTPConnectionTimeout) = 10
    .Item(cdoSMTPAuthenticate) = cdoBasic
    .Item(cdoSendUserName) = "SMTP用户名" '//以上服务器的用户名
    .Item(cdoSendPassword) = "SMTP密　码" '//密码
    .Update
End With

Set oCDOMessage = Server.CreateObject("CDO.Message")
Set oCDOMessage.Configuration = oCDOConfig

With oCDOMessage
    .From = Trim("发件人邮件地址") '//发件人的邮件地址
    .To = Trim("收件人邮件地址") '//收件人的邮件地址
    .Subject = Trim("邮件标题") '//邮件标题
    .Cc = Trim("抄送地址") '//抄送地址
    .Bcc = Trim("加密抄送地址") '//加密抄送
    .Bodypart.Charset = "UTF-8" '//编码
    .TextBody = Trim("正文") '//文本正文
    .HTMLBody = Trim("<h1>正文</h1>") '//HTML正文
    .CreateMHTMLBody "读取一个HTML页面做为邮件正文" '//可用直接路径/远程路径/相对路径
    .AddAttachment "C:\WINDOWS\explorer.scf" '//邮件附件
    .Send
End With

Set Fields = Nothing
Set oCDOMessage = Nothing
Set oCDOConfig = Nothing
%>

文章来源: http://Jorkin.Reallydo.Com/default.asp?id=491

转载于:https://www.cnblogs.com/pboy2925/archive/2008/03/20/1248002.html