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 に答える