这里给大家介绍另一种方法:
<
%
function SendMail(EmailAddress,Subject,Body)
' 参数说明:
' EmailAddress 收信人地址
' Subject 邮件标题
' Body 邮件正文
dim oMsg,oFields
dim FromMail,SmtpServer,SmtpUsername,SmtpPassword
FromMail = "" ' 发信地址
SmtpServer = "" ' 发信地址smtp服务器
SmtpUsername = "" ' 发信地址smtp服务器用户名
SmtpPassword = "" ' 发信地址smtp服务器密码
on error resume next
set oMsg = server. createobject ( " CDO.Message " )
oMsg.From = FromMail
oMsg. To = EmailAddress
oMsg.Subject = Subject
oMsg.HTMLBody = Body
set oFields = oMsg.Configuration.Fields
oFields( " http://schemas.microsoft.com/cdo/configuration/sendusing " ).Value = 2
oFields( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ).Value = SmtpServer
oFields( " http://schemas.microsoft.com/cdo/configuration/sendusername " ).Value = SmtpUsername
oFields( " http://schemas.microsoft.com/cdo/configuration/sendpassword " ).Value = SmtpPassword
oFields( " http://schemas.microsoft.com/cdo/configuration/smtpauthenticate " ).Value = 1
oFields.Update()
oMsg.HTMLBodyPart.Charset = " gb2312"
oMsg.Send()
if err.number <> 0 then
SendMail = err.Description
else
SendMail = " 发送成功"
end if
set oMsg = nothing
end function
' 使用示例:
' SendMail "somebody@server.com","这里填写邮件标题","这里填写邮件内容"
% >
function SendMail(EmailAddress,Subject,Body)
' 参数说明:
' EmailAddress 收信人地址
' Subject 邮件标题
' Body 邮件正文
dim oMsg,oFields
dim FromMail,SmtpServer,SmtpUsername,SmtpPassword
FromMail = "" ' 发信地址
SmtpServer = "" ' 发信地址smtp服务器
SmtpUsername = "" ' 发信地址smtp服务器用户名
SmtpPassword = "" ' 发信地址smtp服务器密码
on error resume next
set oMsg = server. createobject ( " CDO.Message " )
oMsg.From = FromMail
oMsg. To = EmailAddress
oMsg.Subject = Subject
oMsg.HTMLBody = Body
set oFields = oMsg.Configuration.Fields
oFields( " http://schemas.microsoft.com/cdo/configuration/sendusing " ).Value = 2
oFields( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ).Value = SmtpServer
oFields( " http://schemas.microsoft.com/cdo/configuration/sendusername " ).Value = SmtpUsername
oFields( " http://schemas.microsoft.com/cdo/configuration/sendpassword " ).Value = SmtpPassword
oFields( " http://schemas.microsoft.com/cdo/configuration/smtpauthenticate " ).Value = 1
oFields.Update()
oMsg.HTMLBodyPart.Charset = " gb2312"
oMsg.Send()
if err.number <> 0 then
SendMail = err.Description
else
SendMail = " 发送成功"
end if
set oMsg = nothing
end function
' 使用示例:
' SendMail "somebody@server.com","这里填写邮件标题","这里填写邮件内容"
% >