VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net

[483 デフォルトの名無しさん 2018/02/16(金) 14:21:11.14 ID:zn59WJDb]

再起動したときにメールを送信するものを作っています
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
これを参考に以下にようにしてみたのですが
★転送においてサーバーに接続できませんでした。
と表示されます
★[安全性の低いアプリの許可：有効] をgmail上で設定しています
問題点がありましたらご指摘ください

Set oMsg = CreateObject("CDO.Message")
oMsg.From = "[e-mail]"
oMsg.To = "[e-mail]"
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