オブジェクト構造の復習

前回の解説では、OutlookはMAPIというNameSpaceを最上位にした次のような構成になっていることを解説しました。

MAPI
　┗Folders
 　　┗Item 1　←メールアカウントのこと
　　　　┗Name　←メールアカウントアドレス
　　　　┗Folders
　　　　　　┗Item 1　←ゴミ箱
　　　　　　┗Item 2　←受信トレイ
　　　　　　　　┗Items　←メールアイテムが入っている場所
　　　　　　　　　　┗Item 1　←1番目のメール
　　　　　　　　　　　　┗To　←宛先
　　　　　　　　　　　　┗Subject　←件名
　　　　　　　　　　　　┗Body　←本文
　　　　　　　　┗・・・　←2番目以降のメール
　　　　　　┗Item 3　←送信トレイ
　　　　　　┗Item 4　←送信済みトレイ
　　　　　　┗・・・　←その他のトレイやタスクフォルダなど

Parentプロパティを使うと

Parentプロパティを使うと、自分の上位のプロパティを参照することが出来ます。
ただし、すぐ上のItemsプロパティを参照するわけではなく、下の図の通り2つ上の受信トレイを参照します。
面白いことに「Items」にもParentプロパティがあるのですが、これは１つ上の受信トレイを指します。

同様に、さらに上位のプロパティにもParentプロパティは存在し、下図の通り類似挙動を示します。

このParentプロパティを使うと、Selectionメソッドなどで「メール」を出発点にした時でも、その上位プロパティを調べることが出来ます。
これにより、保存先のトレイ（：受信トレイとか送信トレイとか）を調べることなどが出来ます。
具体例は次章参照。関連記事はこちらを参照ください。

直接メールなどのアイテムを取得するコード

前章の内容を確かめるために、以下のコードを書いてみます。

Sub 選択アイテムをobjItemに代入するコード()
  
  Dim objSelect As Outlook.Selection
  Dim objItem As Object
  Set objSelect = Outlook.Application.ActiveExplorer.Selection
  Set objItem = objSelect.Item(1)

  Stop

End Sub

そして、受信トレイの一番目のメールを選択してからこのコードを実行してみてください。
Stopでプログラムが停止しますが、この時のobjItemには↓この図のItem 1が代入された状態になります。