3

Amazon SESでテストメールを送信しようとしていますが、運が悪いです。

Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Const cdoSendUsingPort = 2

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "email-smtp.us-east-1.amazonaws.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ABCDE"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

With iMsg
Set .Configuration = iConf
.To = "bar@foo.com"
.From = "foo@bar.com"
.Subject = "test"
.TextBody = "body"
.Send
End With

response.write("sent")

ログ情報は、認証に問題があることを示唆しているようです。残念ながら、私はよく精通しておらず、何が間違っているのか理解していません。

Response: 250-email-smtp.amazonaws.com
Response: 250-8BITMIME
Response: 250-SIZE 10485760
Response: 250-STARTTLS
Response: 250-AUTH PLAIN LOGIN
Response: 250 Ok

Command: AUTH LOGIN

Response: 530 Must issue a STARTTLS command first

Command: MAIL FROM: [address in verified senders list]

Response: 530 Authentication required

Command: Quit
4

1 に答える 1

2

解決策は次のとおりです。

応答：530最初にSTARTTLSコマンドを発行する必要があります

認証する前に、安全な接続を有効にする必要があります。構成を通じてSSLをすでに有効にしています。

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

これを次のように変更します。

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

True（からへの変更に注意してください1）

于 2012-05-10T15:15:29.027 に答える