1

これをサーバーで使用してメールを送信しています。これは完璧に機能しています。作成したローカルホスト アプリで試してみたいと思います。

    Set myMail=CreateObject("CDO.Message")

            myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/bodyformat") = 0 ' 0 - html, 1 - text
            myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/mailformat") = 0 ' 0 - mime, 1 - text
            myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "206.183.108.132"
            myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            myMail.Configuration.Fields.Update

            myMail.Subject = "Your New Password for Leave App"
            myMail.From = rs("email")
            myMail.To = "somename@domain.com"

            msgg = msgg & "Dear" & " " & session("Username") & vbcrlf & vbcrlf
            msgg = msgg & "This is your new password" & vbcrlf & vbcrlf
            msgg = msgg & "YOUR CHANGED PASSWORD" & vbcrlf
            msgg = msgg & "- - - - - - - - - - - - - - - - - - - - - - - - - - -" & vbcrlf  

            msgg = msgg & "User/Login Name :" & session("Username") & vbcrlf 
            msgg = msgg & "Password :" & request.Form("new_pass2") & vbcrlf 
            msgg = msgg & "- - - - - - - - - - - - - - - - - - - - - - - - - - -" & vbcrlf & vbcrlf 
            msgg = msgg & "Please sign in to your account using the user name and password above." & vbcrlf & vbcrlf
            msgg = msgg & "Thanks" & vbcrlf 

            myMail.TextBody = msgg 
            myMail.Send

            set myMail = nothing
4

2 に答える 2

1

ローカル マシンが SMTP サーバーに到達できるかどうかを確認します。一部のファイアウォールまたはルーターでブロックされている可能性があります。この Web サイトで簡単なチェックを行うことができます: http://www.canyouseeme.org/

もちろん、コード内で、または Telnet 経由で確認することもできます: http://www.simplescripts.de/smtp-check-port-25-telnet-command.htm

于 2012-05-24T08:42:42.837 に答える