急!!!在线等!如何用CDO.Message在windows server 2003下发邮件
_青云_ 2004-12-03 12:27:39 function mail(fromAddr,toAddr,mailSubject,mailhtml,mailurl)
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 objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = Server.CreateObject("CDO.Configuration") '就在这一行出现Server 对象 错误 'ASP 0177 : 800401f3' Server.CreateObject 失败
Set Fields = objConfig.Fields
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "stmp.163.com" 'Your SMTP Server
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "admin@163.com" 'User name at SMTP Server
.Item(cdoSendPassword) = "123456" 'Password at SMTP Server
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = toAddr '改成接收者的邮件地址
.From = fromAddr '改成发送人的邮件地址
.Subject = mailSubject '标题
.TextBody = "这是一封HTML格式的邮件,请切换到HTML方式查看该邮件。"
.HtmlBody = mailhtml
if mailurl<>"" then
.CreateMHTMLBody mailurl,0
end if
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
end function