-3 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

Set Flds = objCDOSYSCon.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "any mail"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "any password"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "any server"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

Flds.update

Set objCDOSYSMail.Configuration = objCDOSYSCon 

objCDOSYSMail.From = "any mail"
objCDOSYSMail.To = "any mailid"
'' // objCDOSYSMail.CC = "any mailid"
objCDOSYSMail.Bcc = "any mailid"    
objCDOSYSMail.Subject = "feed back"                     
objCDOSYSMail.HTMLBody = strBody

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing

'' // Response.redirect("thank.html")
response.Write("saved")
4

3 に答える 3

4

変化する

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

に

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

1 - ピックアップ ディレクトリ経由で送信中 2 - SMTP経由で送信中

他のパラメーターを見ると、明らかにポート 25 経由で送信しようとしています。

于 2009-08-20T05:48:54.037 に答える
2

これを試して

    Dim objCDOSYSMail
    Dim objCDOSYSCon
    薄暗い場所

    objCDOSYSMail = Server.CreateObject("CDO.Message") を設定します。
    objCDOSYSCon = Server.CreateObject ("CDO.Configuration") を設定します。
    Flds = objCDOSYSCon.Fields を設定します。

    床付き
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "任意のサーバー"

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "すべてのメール"

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "任意のパスワード"

    。アップデート

    で終わる

    objCDOSYSMail.Configuration = objCDOSYSCon を設定します。

    'メールの送信
    objCDOSYSMail を使用
    .From = 「すべてのメール」
        .To = "任意のメール ID"
        .Subject = "フィードバック"                                             
        .HTMLBody = "私のメッセージ"
        。送信

    で終わる

    'オブジェクトの破棄

    objCDOSYSMail = Nothing を設定します。
    objCDOSYSCon = Nothing を設定します。
    Flds を設定 = なし

エラーが発生しない場合は、サーバーのエラー ログを確認してください。サーバーが電子メールを電子メール サーバー (smtpserver) にリレーできることを確認します。これは、Web サーバーから電子メール サーバーへのクイック「TELNET セッション」を実行することで実行できます。一部の SMTP サーバーは、送信者ドメインでも逆引き DNS を実行します。これはばかげているように聞こえるかもしれませんが、ユーザー名とパスワードも確認してください。

注: 意図を明確に指定しなかったため、質問は却下されました。次回は「PACIFIC」ではなく「SPECIFIC」になります（大きな海のように）。ここに集まっている人のほとんどは、プロかプロになろうとしている人です。

于 2009-08-20T05:56:02.460 に答える
1

そのためにajaxされたオープンソースライブラリを使用したいかもしれません。コンポーネントを検出するので、心配する必要はありません。

適切な電子メール コンポーネントを選択する (インストールと構成)​​ という問題は忘れてください。ajaxed がそれを行います。サーバーにインストールされているコンポーネントを確認し、「最適な」コンポーネントを使用します。現在サポートされているコンポーネントを確認するには、API を参照してください。このページはJmailで書かれているので、ASPEmailとCDOSYSがサポートされています。

ここでは、電子メールの送信方法に関するチュートリアルを示します。

于 2009-08-20T11:29:12.243 に答える