Excel VBAでオブジェクト指向プログラミング（Outlook VBA編）

2021-10-212024-01-05

■Outlook VBAのオブジェクトについて

MicrosoftからOutlookの機能を利用するためのオブジェクト群が提供されていますが、下位オブジェクト（サブクラス）の種類が非常に多いため、Applicationオブジェクト、Namespaceオブジェクト、Folderオブジェクトに絞って、各オブジェクトの階層構造（依存関係）を掲載します。
⇒詳細はMicrosoftのサイト（Office VBA リファレンス(Outlook)）を参照して下さい。

Outlook関連オブジェクト群の階層構造

Outlook関連オブジェクト群の中で、最上位に位置するものはApplicationオブジェクトですが、実際の処理を行うためにはNamespaceオブジェクト→Folderオブジェクト→Itemオブジェクトの順で下位のオブジェクトを生成して行く必要があります。
下表はApplicationオブジェクト、Namespaceオブジェクト、Folderオブジェクトの下位オブジェクト（サブクラス）を一覧化したもの(※)で、Outlook関連オブジェクト群のオブジェクトの大半が含まれています。
（Itemオブジェクトの詳細については、次項で説明します）

(※)Visual Basic Editor(VBE)に搭載されているオブジェクトブラウザで、Applicationオブジェクト、Namespaceオブジェクト、Folderオブジェクトのメソッドおよびプロパティの定義情報を参照し、取得可能なオブジェクトをExcelにコピペして、自作のExcelツールで成形したものです。

■Itemオブジェクトの詳細

Itemオブジェクトを新規作成する場合は、ApplicationオブジェクトのCreateItemメソッドを使用し、参照する場合はFolderオブジェクトのItemsプロパティからItemsコレクションを取得します。

Itemオブジェクトの新規作成

ApplicationオブジェクトのCreateItemメソッドを実行し、Itemオブジェクトを作成します。

1. ol.CreateItem(ItemType)

ItemTypeとして指定できる項目は下表の通りです。
提供されているメソッドやプロパティはオブジェクト毎に異なりますので、最も使用頻度の高いMailItemオブジェクトのメソッドとプロパティを次項に掲載します。

MailItemオブジェクトのメソッド

MailItemオブジェクトで提供されているメソッドおよび定義内容は、下表の通りです。

MailItemオブジェクトのプロパティ

MailItemオブジェクトで提供されているプロパティおよび定義内容は、下表の通りです。

■Outlookのオブジェクトを使用するための事前準備

Outlookのオブジェクトを使用するための事前準備は、以下の3ステップです。
⇒オブジェクトを使用するための事前準備とオブジェクトブラウザによる調査方法については、Excel VBAでオブジェクト指向プログラミング（事前準備編）を参照して下さい。

①ライブラリの参照設定
Visual Basic Editor(VBE)のファイルメニューから[ツール]-[参照設定]を選択し、参照設定ダイアログでMicrosoft Outlook x.x Object Libraryのチェックボックスにチェックを入れ、[OK]ボタンを押下。

②オブジェクト変数の定義
プログラムの宣言部でオブジェクト変数を定義。

1. Dim ol As Object

③インスタンスの生成
プログラムの処理部でインスタンスを生成。

1. Set ol = New Outlook.Application
2. 'ここにOutlookを使用した処理を記述
3. Set ol = Nothing

（参考）「Set ol = New Outlook.Application」の部分を「Set ol = CreateObject(“Outlook.Application")」と記述すれば、ステップ①（ライブラリの参照設定）は不要です。

■Outlookの受信トレイにあるメールを一覧にする処理

Outlookを起動して、受信トレイを取得し、メールの一覧を作成するExcelツールです。

処理の概要

処理の流れは以下の通りです。
①Outlookを起動し、NameSpaceオブジェクトを作成後、受信トレイを取得
②全てのメールを順に参照し、Excelシートに情報をセット
③使用済のオブジェクトを破棄し、Outlookを終了

サンプル・プログラム

行番号8でOutlookを起動し、行番号9でNameSpaceオブジェクトを作成、行番号10で受信トレイを取得しています。
行番号13～15でMailItemオブジェクトのSubjectプロパティ、SenderNameプロパティ、SentOnプロパティから、件名、送信者、送信日時を取得しています。

(注)MailItemオブジェクト用のオブジェクト変数を定義する際、行番号1で「Dim sht, ol, ns, fl, mi As Object」と定義したところ、正しく動作しないケースがあったため、行番号2で「Dim mi As Outlook.MailItem」と厳格な定義を行っています。

1. Dim sht, ol, ns, fl As Object
2. Dim mi As Outlook.MailItem
3. Dim i, pos As Integer
5. Private Sub Sample1()
6.     Set sht = ActiveSheet
7.     i = 0
8.     Set ol = New Outlook.Application
9.     Set ns = ol.GetNamespace(“MAPI")
10.     Set fl = ns.GetDefaultFolder(olFolderInbox)
11.     For Each mi In fl.Items
12.         i = i + 1
13.         sht.Cells(i, 1) = mi.Subject
14.         sht.Cells(i, 2) = mi.SenderName
15.         sht.Cells(i, 3) = mi.SentOn
16.         sht.Cells(i, 3).NumberFormatLocal = “yyyy/mm/dd hh:mm:ss"
17.     Next mi
18.     Set mi = Nothing
19.     Set fl = Nothing
20.     Set ns = Nothing
21.     ol.Quit
22.     Set ol = Nothing
23. End Sub

■Excelシートの情報からOutlookのメールを作成し、自動送信する処理

Outlookを起動して、Excelシートの情報から作成したメールを自動送信するExcelツールです。

処理の概要

処理の流れは以下の通りです。
①Outlookを起動し、MailItemオブジェクトを新規作成
②Excelシートの情報からメールを作成し、Sendメソッドで送信
③使用済のオブジェクトを破棄し、Outlookを終了

サンプル・プログラム

行番号8でOutlookを起動し、行番号9でApplicationオブジェクトのCreateItemメソッドにより、MailItemオブジェクトを新規作成しています。
行番号11～13でExcelシート上の宛先、件名、本文をMailItemオブジェクトのToプロパティ、Subjectプロパティ、Bodyプロパティにセットし、行番号14で「メッセージ形式をテキスト形式にする」指定を行った後、行番号15で送信しています。

(注)MailItemオブジェクト用のオブジェクト変数を定義する際、行番号1で「Dim sht, ol, mi As Object」と定義したところ、正しく動作しなかったため、行番号2で「Dim mi As Outlook.MailItem」と厳格な定義を行っています。

1. Dim sht, ol As Object
2. Dim mi As Outlook.MailItem
3. Dim i, pos As Integer
5. Private Sub Sample2()
6.     Set sht = ActiveSheet
7.     i = 0
8.     Set ol = New Outlook.Application
9.     Set mi = ol.CreateItem(olMailItem)
10.     mi.To = sht.Cells(1, 1)
11.     mi.Subject = sht.Cells(1, 2)
12.     mi.Body = sht.Cells(1, 3)
13.     mi.BodyFormat = olFormatPlain
14.     mi.Send
15.     Set mi = Nothing
16.     ol.Quit
17.     Set ol = Nothing
18. End Sub

■Outlookの予定表に登録された情報を一覧にする処理

Outlookを起動して、予定表を取得し、登録された情報の一覧を作成するExcelツールです。

処理の概要

処理の流れは以下の通りです。
①Outlookを起動し、NameSpaceオブジェクトを作成後、予定表を取得
②全ての登録情報を順に参照し、Excelシートに情報をセット
③使用済のオブジェクトを破棄し、Outlookを終了

サンプル・プログラム

行番号7でOutlookを起動し、行番号8でNameSpaceオブジェクトを作成、行番号9で予定表を取得しています。
行番号12～15でAppointmentItemオブジェクトのSubjectプロパティ、Locationプロパティ、Startプロパティ、Endプロパティから、件名、場所、開始日時、終了日時を取得しています。

1. Dim sht, ol, ns, fl, ci As Object
2. Dim i, pos As Integer
4. Private Sub Sample3()
5.     Set sht = ActiveSheet
6.     i = 0
7.     Set ol = New Outlook.Application
8.     Set ns = ol.GetNamespace(“MAPI")
9.     Set fl = ns.GetDefaultFolder(olFolderCalendar)
10.     For Each ci In fl.Items
11.         i = i + 1
12.         sht.Cells(i, 1) = ci.Subject
13.         sht.Cells(i, 2) = ci.Location
14.         sht.Cells(i, 3) = ci.Start
15.         sht.Cells(i, 4) = ci.End
16.         sht.Range(sht.Cells(i, 3), sht.Cells(i, 4)).NumberFormatLocal = “yyyy/mm/dd hh:mm:ss"
17.     Next ci
18.     Set ci = Nothing
19.     Set fl = Nothing
20.     Set ns = Nothing
21.     ol.Quit
22.     Set ol = Nothing
23. End Sub