メールの内容を Excel ファイルにかき出すマクロ

コメントにて以下のようなご要望をいただきました。

---

いつもお世話になってます。
早速ですが、以下の件についてお教え願えれば幸いです。

使用しているアウトルックのバージョン
Outlook２０１０（仕事場）、自宅Outlook２０１３

●メールで調査などの依頼があった場合、備忘録として
①差出人と②タイトル、③メール本文をエクセルに書き出して
行程管理をしたいのですが、そういったことを可能にするマクロはネットで探したのですが、
これといったものがありませんのでよろしくお願いいたします。

※いくつかは似たようなものがありましたが、初心者なのでよく理解できず、加工できませんでした。
  namespaceが何故必要なのか、dim宣言が何故必要かもできてません。

【具体例】
具体的には調査依頼のメールを開いてその開いているメールに対してマクロを使い
既存のエクセルファイル「調査管理.xlsx」のデータが入力されている次の行に
①送信者、②メールタイトル、③メール本文を書き出したいのです。

○書き出し先のエクセル表のイメージ 調査管理.xlsx

	A	B	C
1	①差出人	②メールタイトル	③本文
2	abc@yaho.co.jp	忘年会参加者調べ	忘年会の参加者の名前を教えて下さい。
3	def@yaho.co.jp	新年会参加者調べ	新年会の参加者の最年長の人の名前を教えて下さい。
4

◆ 受け取った新たな調査依頼メールのイメージ
①差出人 xyz@yaho.co.jp
②メールタイトル 【依頼】冬休みの出勤者について
③メール本文 冬休みに出勤される方の、氏名を教えて下さい。
このメールを開いた状態で、マクロを使い、調査管理.xlsxを開きすでに記入されている末尾の行の
次にこのメールのデータを自動的に入れたいというものです。

具体的には「調査管理.xlsx」の
(1) A4セルに xyz@yaho.co.jp
(2) B4セルに 【依頼】冬休みの出勤者について
(3) C4セルに 冬休みに出勤される方の、氏名を教えて下さい。
を自動で記入できるマクロです。

---

Outlook の NameSpace オブジェクトは、通常は Application.Session として Outlook のさまざまな処理で使用します。
詳細はこちらの記事を参照してみてください。
また、Dim は変数を宣言するもので、オブジェクト型の変数を宣言しておけばプロパティやメソッドが自動補完できるようになります。
実際のところ Dim で宣言しなくても変数は使えますが、宣言しておいた方が便利です。

ご要望のマクロは以下のようになります。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub ExportToExcel()
    ' EXCEL ファイルをフルパスで指定します
    Const EXCEL_FILE = "c:\temp\調査管理.xlsx"
    Dim objItem As MailItem
    Dim objBook 'As Excel.Workbook
    Dim objSheet 'As Excel.Worksheet
    Dim r As Integer
    ' メールをどのように開いているか確認
    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Set objItem = ActiveInspector.CurrentItem
    Else
        Set objItem = ActiveExplorer.Selection(1)
    End If
    ' Excel ファイルを開く
    Set objBook = GetObject(EXCEL_FILE)
    objBook.Windows(1).Activate
    Set objSheet = objBook.Sheets(1)
    ' データがない行まで移動
    r = 2
    While objSheet.Cells(r, 1) <> ""
        r = r + 1
    Wend
    ' メールの情報を Excel ファイルに追記
    With objSheet
        .Cells(r, 1) = objItem.SenderEmailAddress
        .Cells(r, 2) = objItem.Subject
        .Cells(r, 3) = objItem.Body
    End With
    ' Excel ファイルを閉じる
    objBook.Close True
End Sub

マクロの登録方法やメニューへの追加について