ASP中发送邮件的函数
有一种方法是通过微软自带的CDONTS组件发邮件,用这种方法经常会出现没有权限或是发不出去的问题。
这里给大家介绍另一种方法:
这里给大家介绍另一种方法:
<%
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","这里填写邮件标题","这里填写邮件内容"
%>