0483デフォルトの名無しさん
2018/02/16(金) 14:21:11.14ID:zn59WJDbhttp://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
これを参考に以下にようにしてみたのですが
★転送においてサーバーに接続できませんでした。
と表示されます
★[安全性の低いアプリの許可:有効] をgmail上で設定しています
問題点がありましたらご指摘ください
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "hoge@gmail.com"
oMsg.To = "hoge@gmail.com"
oMsg.Subject = "Test"
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMsg.Configuration.Fields.Update
oMsg.Send