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

转载于:https://www.cnblogs.com/modou/articles/183390.html