1

ASPプログラミング初心者です。メールを送信するための簡単なスクリプトを見つけようとしています。これは私のHTMLコードです:

    <form method="POST" action="email.aspx">
    To <input type="text" name="To"/> <br />
    From <input type="text" name="From"/> <br />
    Subject <input type="text" name="Subject"/> <br />
    Body <textarea name="Body" rows="5" cols="20" wrap="physical" > 
    </textarea>
    <input type="submit" />
    </form>

これは私の ASP コードです。

        Dim mail
        mail = Server.CreateObject('CDO.Message')
        mail.To = Request.Form("To")
        mail.From = Request.Form("From")
        mail.Subject = Request.Form("Subject")
        mail.TextBody = Request.Form("Body")
        mail.Send()
        Response.Write("Mail Sent!")
        mail = Nothing

set メソッドがサポートされなくなったことはわかっています。ASP コードでエラーが発生しています。ASP で単純な電子メールを送信するための解決策はありますか? よろしくお願いします！

4

1 に答える 1

1

コードは、サーバーに CDO または CDONTS がインストールされていて利用できる場合にのみ機能しますが、Classic ASP をサポートするほとんどの Web ホストはこれを利用できます。

VBScript では、すべてのオブジェクト (つまり、数値でも文字列でもないもの) は、Set演算子を使用して割り当てる必要があります。ばかげていますが、これはあなたがする必要があることです：

    Dim mail
    Set mail = Server.CreateObject("CDO.Message")
    mail.To       = Request.Form("To")
    mail.From     = Request.Form("From")
    mail.Subject  = Request.Form("Subject")
    mail.TextBody = Request.Form("Body")

    mail.Send
    Response.Write "Mail Sent!"
    Set mail = Nothing

サーバーに CDO または CDONTS がインストールされていない場合、 を呼び出すとCreateObjectエラー メッセージが表示されますが、元の質問にはエラー メッセージが記載されていません。

于 2013-09-05T03:39:57.220 に答える