使用 ASP 发送电子邮件

引言

本文档展示了如何使用 CDONTS 组件从 ASP 页面发送电子邮件。

代码片段

Sub send_email(email_from, email_to, email_subject, email_body)
    Dim Newmail
    Set Newmail = server.CreateObject ("cdonts.newmail")
    
    Newmail.BodyFormat = 0
    Newmail.MailFormat = 0
    Newmail.From = email_from
    Newmail.To = email_to
    Newmail.Subject = email_subject
    Newmail.Body = email_body
    Newmail.Send
    
    Set Newmail = Nothing    
End Sub

调用该过程

Call send_email("from@domain.com","to@domain.com","Subject","Body")

如果您在使用 CDONTS 时遇到任何困难，通常是 IIS 上 SMTP 服务的配置问题。对于这个简单但功能强大的组件来说，出错的可能性并不大。