まだ、試していないのですが、前任者が作成したWin10-PCでGmail送信するシナリオの中の、メール送信ユーザライブラリで、下記のスクリプトが書いてありました。

不思議なことに、このシナリオではブラウザを起動しません。

下記のスクリプトが理解できる方、下記のスクリプトで、ブラウザ起動しないで本当にGmail送信可能かどうか教えてください。

---<Gmail送信スクリプト開始>---

' CDOオブジェクト
Set oMsg = CreateObject("CDO.Message")
' [差出人]
oMsg.From = !差出人!
' [宛先]
oMsg.To = !宛先!
' [CC]
oMsg.CC = !CC!
' [BCC]
oMsg.BCC = !BCC!
' [ファイル添付]　フルパス
Attach_file = !ファイル添付!
if Attach_file = "" then
else
oMsg.AddAttachment Attach_file
end if
' [CharSet]　iso-2022-jp,shift-jis,utf-8など
oMsg.BodyPart.Charset = "utf-8"
' [件名]
oMsg.Subject = !件名!
' [本文]
oMsg.Textbody = !本文!
' [HTMLメール]
'oMsg.HTMLbody = !HTML文章!
' [送信方法]
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")="2"
' [SMTPサーバ]
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com"
' [SMTPポート]
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")="465"
' [SSL通信有無]　True/False
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=True
' [SMTP認証]　1(Basic認証)/2（NTLM認証）
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
' [送信ユーザ名]　ユーザ名
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=!ユーザ名!
' [送信パスワード]　パスワード
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=!パスワード!
' [タイムアウト]　接続がタイムアウトするまでの秒数
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")="60"
' 更新
oMsg.Configuration.Fields.Update
' 送信
oMsg.Send

---<Gmail送信スクリプト終了>---