Excel VBAで複数のmsgファイルを自動送信したい

前提・実現したいこと

特定のフォルダに格納されている複数のmsgファイルをExcelのボタン一つで送信したいです。
請求書を複数の得意先へ送信するツールを作っています。

発生している問題・エラーメッセージ

請求書のPDFファイルを各送信先へ送付するmsgファイルを作成するところまでは行ったのですが、そのmsgファイルを一斉に送信するコードをご教示いただきたいです。

該当のソースコード

試したこと

補足情報（FW/ツールのバージョンなど）

Youbun

2019/11/19 00:19

https://zangyou-macro.com/macro-outlook1/#i このサイトが参考になりそうです。「msgファイルを一斉に送信する」この工程のどの部分で詰まっているのか詳細を記入すると回答が来やすいと思います。

taronote

2019/11/19 14:17

ご返信ありがとうございます。「msgファイルを一斉に送信する」につきまして・特定のフォルダに送信したいメールのmsgファイルは作成済の状態です。　(宛先、件名、メール本文、添付ファイル付きのメールです）・特定のフォルダにあるmsgファイルをExcelVBAで自動的に送信したい　そのための手法をご教授頂きたいです。・アドバイスを頂いたサイトや　https://www.sejuku.net/blog/74389 　http://www.excel.studio-kazu.jp/kw/20130207105435.html 　などでは、Excelのシートの中に宛先情報などがありオブジェクトでメールを作成し、メソッドで送信するような仕組みが多いのですが、　「msgファイルとして出来上がっているメールを開いて自動送信する」というサンプルが見つからないため困っている状況です。 l

行動規範の内容に同意します

回答1件

ベストアンサー

これで行けました。
基本設計は参考のサイトと同じで、
「Set msg = oApp.CreateItemFromTemplate(msgname)」
この部分のコードで
フォルダに格納されている複数のmsgファイルを開く
の部分が解決できると思います。

vb
1Sub SendMsg()
2    ' パス設定※自分のソースにあった形式で！
3    Dim msgname As String
4    msgname = "C:\ぱす名\ファイル名.msg"
5    ' Outlook変数初期設定
6    Dim oApp As Object
7    Dim msg As Object
8    Set oApp = CreateObject("Outlook.Application")
9    Set msg = oApp.CreateItem(olMailItem)
10    ' msgファイル設定して送信
11    Set msg = oApp.CreateItemFromTemplate(msgname)
12    msg.Send
13    ' 変数開放
14    Set olApp = Nothing
15    Set msg = Nothing
16End Sub

個人的にはこの関数に「パスを格納した配列」を引数にして、
「' msgファイル設定して送信」の部分を配列要素数だけループさせる仕様にすると
使いやすいかなと思いました。
※msg変数の開放は１メールごとにしないとおかしくなるかも・・・

投稿2019/11/20 00:35

Youbun

総合スコア125

taronote

2019/11/20 14:30

ご回答ありがとうございます。送信できました！私は普段Option Explicitをつけているので頂いたサンプルコードに Dim olMailItem を加え、 Set olApp = Nothing を Set oApp = Nothing に修正し、ツール-参照設定で「Microsoft Office 16.0 Object Livrary」をチェックしたところ、コードを走らせるとOutlookが立ち上がることなくメールが送信され、Outlookを起動すると送信済トレイに入り、送信先のメールアドレスにもメールが届いていることを確認しました。この度はアドバイスいただき本当にありがとうございました！ m(_ _)m

行動規範の内容に同意します