发送带附件的 ASP 电子邮件

引言

本文档展示了如何使用 CDONTS 组件发送带附件的电子邮件。

许多 ASP 程序员想知道如何做到这一点，随着 IIS4 和 Option Pack 4 的 SMTP 服务的出现，现在这变得相当容易了。在 SMTP 服务服务器安装完成后，会提供一个组件。它被称为 CDONTS，可以使发送电子邮件变得非常容易。正确设置 SMTP 服务由您负责。它相当清晰易懂，我从未遇到过安装问题。任何提供 ASP 主机的优质 ISP 都应该已经在他们的服务器上设置好这个服务。

<%
Sub send_email(strEmail_from, strEmail_to, strEmail_subject, _
  strEmail_body, strEmail_attach)
    Dim Newmail
    Set newmail = server.CreateObject ("cdonts.newmail")

    newmail.bodyformat = 0
    newmail.mailformat = 0
    newmail.from = strEmail_from
    newmail.to = strEmail_to
    newmail.subject = strEmail_subject
    
    If strEmail_attach <> "" then
        newmail.AttachFile(strEmail_attach)
    End If
    
    newmail.body = strEmail_body
    newmail.send
    Set newmail = Nothing    
End Sub
%>

调用示例

Call send_email("Email_from", "Email_to", "Email_subject", _
    "Email_body", "c:\file.doc")