asp formmail自动回复答案

【问题标题】：asp formmail auto responderasp formmail自动回复
【发布时间】：2015-08-12 13:19:37
【问题描述】：

我不擅长编码

我有一个用于订阅电子邮件的 asp formmail。我确实收到了电子邮件，但我想发送一个自动回复说“感谢您的订阅”。我的联系页面 formmail 也是如此。

以下是我当前的代码你能告诉我我该怎么做吗？

 <%

dim sEmailContent


sEmailContent = sEmailContent & "Subscribe : " & Request.Form("subscribe") & vbCrLf

Response.Write(sEmailContent)

'call send_email("here@herringboneandsui.com",sEmailContent)
call send_email("here@herringboneandsui.com",sEmailContent)

function send_email(sToEmail,sEmailBody)
on error resume next
    Dim ObjSendMail
    Set ObjSendMail = CreateObject("CDO.Message")

    'Configuration for remote SMTP server

    'Network Send    
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'Name of SMTP server
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"

    'SMTP port
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    'MaxESP SMTP servers require authentication

    'Basic Authentication
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

    'SMTP username as configured in the control panel
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="bla@bla.com"

    'SMTP user password as configured in the control panel
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="blabla"

    ObjSendMail.Configuration.Fields.Update


    'Configuration for email message

    'Email To address
    'ObjSendMail.To = "bla@gmail.com"
    'ObjSendMail.To = "bla@mac.com"
    ObjSendMail.To = sToEmail
    'Email Subject
    ObjSendMail.Subject = "Newsletter Subscription"

    'Email From address
    ObjSendMail.From = "bla@herringboneandsui.com"

    'Email Body
    ObjSendMail.TextBody = sEmailBody

    ObjSendMail.Send

    Set ObjSendMail = Nothing

    response.Redirect("thank-you.html")
if err.number <> 0 then
    Response.Write(err.Description)
end if
on error goto 0 
end function
 %>

【问题讨论】：

标签： html asp-classic formmail

【解决方案1】：

将您的函数function send_email(sToEmail,sEmailBody) 移动到单独的文件中，比如说“Emails.asp”。

在联系页面和订阅 asp 页面中添加以下行以包含您的“Email.asp”

<!-- #include file="Emails.asp" -->

然后像以前一样调用send_email

【讨论】：