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","这里填写邮件标题","这里填写邮件内容"
%>