OUTLOOKの連絡先データを自動的にEXCELにダウンロードする方法

Outlookのエクスポート機能を使えばエクセルなどにすることができますが、項目を設定しなければならないこと、毎回たくさんのボタンを押さないといけないことからあまり使い勝手が良くありません。

そこで、今回はOutlookのマクロを使い自動的に行います。

（ここではOutlook 2003を想定しています）

「ツール」－「マクロ」－「セキュリティ」でセキュリティレベルを中にします。

「ツール」－「マクロ」－「Visual Basic Editor」を選択します。

次に、左側Project1 のMicrosoft Outlook Office Objects のThisOutlookSessionを選択し、右側に以下のように入力します。

（もし右側に何もなければ「挿入」－「標準モジュール」とします）

Sub ExportContacts()
Dim bookname As String
Dim sheetname As String
bookname = "C:\Documents and Settings\User2\デスクトップ\Book1.xls"
sheetname = "Sheet1"
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open(bookname)
Set myNamespace = Application.GetNamespace("MAPI")
Set mycfolder = myNamespace.GetDefaultFolder(olFolderContacts)
Dim objContact As ContactItem
Dim i As Integer
i = 1
xlapp.Application.Visible = True
For Each objContact In mycfolder.Items
    xlbook.sheets(sheetname).cells(i, 1).Value = objContact.FullName
    xlbook.sheets(sheetname).cells(i, 2).Value = objContact.MailingAddress
    i = i + 1
Next
xlbook.Save
xlbook.Close
xlapp.Quit
Set xlapp = Nothing
Set xlbook = Nothing
Set myNamespace = Nothing
Set mycfolder = Nothing
End Sub

※bookname, sheetnameはそれぞれエクセルのパス＋ファイル名、シート名を入力してください。

そして最後に、
「ツール」－「マクロ」－「マクロ」－「ThisOutlookSession.ExportContacts」を選択し実行します。

また、今回はFullName、MailingAddressのみexcelに反映するようにしていますが、実際はいろいろ増やすことができます。適宜ご修正下さい。