Outlookのメッセージファイル(.msg)から送信元アドレスや件名、本文等のデータを取り出すことができます。 よくあるのは、受信トレイのメールからデータを取り出したりしますが、今回は任意の場所にコピーしたメッセージファイル(.msg)からデータを取り出す方法をご紹介します。 まずは宣言 Dim OL As Object Dim msg As Object Outlookオブジェクトを生成 Set OL = CreateObject("Outlook.Application") msgファイルを指定 strFileName = "c:\sample.msg" メッセージファイルをオブジェクトに読み込む Set msg = OL.CreateItemFromTemplate(strFileName) 各種データを取得します。 Debug.Print "SentOnBehalfOfName:
![Outlookメッセージファイル(.msg)からデータを取り出す – VBA](https://cdn-ak-scissors.b.st-hatena.com/image/square/b868268f735ea2b6aa836c92254baa832bd35512/height=288;version=1;width=512/https%3A%2F%2Fk-sugi.sakura.ne.jp%2Fwp-content%2Fuploads%2F2021%2F09%2Feb055e565bd56329058089d44ecee705.png)