最近、メールサーバーにSMTP認証を追加し、非常に面白いものを見つけました。to cdomessage.toフィールドで変数を使用すると、エラー「8004020f」が返されます。ただし、電子メールアドレスをハードコーディングすると、正常に機能します。これが私のコードです:
varEmail = "someoneelse@somesite.com"
set cdoMessage = CreateObject("CDO.Message")
set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "localhost"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
end With
CdoMessage.Configuration = cdoConfig
cdoMessage.Subject="NEW EMAIL"
cdoMessage.From="someone@somesite.com"
cdoMessage.To=varEmail
cdoMessage.TextBody="HELLO WORLD!"
cdoMessage.Send
set cdoMessage=nothing
set cdoConfig=nothing
これを修正して、cdoMessage.Toフィールドで変数を使用できるようにするにはどうすればよいですか。