プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : VB .net)
Win10PCでブラウザを起動しないでGmail送信できますか
投稿日時: 21/07/10 06:07:06
投稿者: gorby

VBScriptをベースに開発されたソフトウェア・ロボット(RPAとも言います)WinActorのスクリプト中で、Gmailを送信するメール送信スクリプト(下記参照)内で、ブラウザを起動していませんでした。
下記スクリプトで、ブラウザ起動しないで本当にGmail送信可能かどうか教えてください。
端末はWin10PCです。
 
---<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送信スクリプト終了>---

回答
投稿日時: 21/07/10 21:18:08
投稿者: eden

WinActorを持っていないのでそのスクリプトは試せないですが、
同じようにCDOを使って、Excel VBAでGmailの送信は出来ています。
ブラウザは起動していません。

投稿日時: 21/07/11 09:31:31
投稿者: gorby

Excel VBAでGmail送信しているのですね。ありがとうございます!