0

我浪费了将近 2 天的时间试图弄清楚。我使用 gmail 应用程序付费电子邮件作为我的域名。从网站上我试图发送一个小的联系表,但不知何故它不起作用,我没有收到任何电子邮件。下面是我的脚本

 <%

dim sEmailContent

sEmailContent = sEmailContent & "Full Name : " & Request.Form("full_name") & vbCrLf
sEmailContent = sEmailContent & "Phone : " & Request.Form("phone") & vbCrLf
sEmailContent = sEmailContent & "Email : "& Request.Form("email") & vbCrLf
sEmailContent = sEmailContent & "Message : "& Request.Form("message")


'Response.Write(sEmailContent)

call send_email(Request.Form("email"),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") ="smtp.gmail.com"


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


    '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@domain.com"

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






    ObjSendMail.Configuration.Fields.Update


    'Configuration for email message

    'Email To address
    ObjSendMail.To = "bla@domain.com"
    'Email Subject
    ObjSendMail.Subject = "Contact Us Query"

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

    'Email Body
    ObjSendMail.TextBody = sEmailBody

    ObjSendMail.Send

    Set ObjSendMail = Nothing

    response.Redirect("contact-us.html")
if err.number <> 0 then
    Response.Redirect("contact-us.html")
end if
on error goto 0 
end function
 %> 

请告诉我我做错了什么?谢谢

4

1 回答 1

1

可能是很多事情。

  • 托管可能会阻止这一点。可能值得向他们开一张票,以便他们可以追踪发生的事情
  • 你确定你没有收到吗?在本地和邮件服务器上检查垃圾邮件箱。以前发生在我身上。
  • 使用相同的电子邮件地址发送和发送可能会导致问题。尝试使用不同的电子邮件地址,甚至是伪造的地址,以避免任何 dns 问题

您收到 ASP 错误吗?

于 2015-12-05T15:27:42.793 回答