Outlook VBAで予定表を取得する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、Outlookの予定表をVBAを使って取得する方法についてお話しします。パソコンやスマホがちょっと苦手な方でも大丈夫です。ゆっくり一緒に学んでいきましょう。

Outlook VBAとは？
Outlookの予定表をExcelに取り込む手順
マクロを実行する
よくある質問や疑問
1. Outlookがインストールされていないと、このマクロは使えませんか？
2. マクロを実行しても何も起こりません。どうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAという言葉を聞いたことがありますか？VBAとは、Visual Basic for Applicationsの略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。Outlook VBAを使うと、Outlookの作業を自動化したり、カスタマイズしたりできます。例えば、毎日の予定を自動でExcelにまとめることも可能です。

Outlookの予定表をExcelに取り込む手順

では、具体的にOutlookの予定表をExcelに取り込む方法を見ていきましょう。以下の手順で進めていきます。

Excelで新しいブックを作成するExcelを開いて、新しいブックを作成します。
VBAエディタを起動するキーボードの「Alt」キーを押しながら「F11」キーを押して、VBAエディタを開きます。
新しいモジュールを挿入するVBAエディタで、「挿入」メニューから「標準モジュール」を選択します。
コードを入力する以下のコードをコピーして、先ほど挿入したモジュールに貼り付けます。

vba

Sub GetOutlookAppointments()

    Dim OutlookApp As Object

    Dim OutlookNamespace As Object

    Dim CalendarFolder As Object

    Dim AppointmentItems As Object

    Dim Appointment As Object

    Dim i As Integer
    ' Outlookアプリケーションを起動

    Set OutlookApp = CreateObject("Outlook.Application")

    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

    Set CalendarFolder = OutlookNamespace.GetDefaultFolder(9) ' 9は予定表フォルダを指します

    Set AppointmentItems = CalendarFolder.Items
    ' Excelシートのヘッダーを設定

    Cells(1, 1).Value = "開始日時"

    Cells(1, 2).Value = "終了日時"

    Cells(1, 3).Value = "件名"

    Cells(1, 4).Value = "場所"
    ' 予定を取得してExcelに書き込む

    i = 2

    For Each Appointment In AppointmentItems

        If Appointment.Start >= Date Then ' 今日以降の予定を取得

            Cells(i, 1).Value = Appointment.Start

            Cells(i, 2).Value = Appointment.End

            Cells(i, 3).Value = Appointment.Subject

            Cells(i, 4).Value = Appointment.Location

            i = i + 1

        End If

    Next Appointment

' メモリ解放 Set Appointment = Nothing Set AppointmentItems = Nothing Set CalendarFolder = Nothing Set OutlookNamespace = Nothing Set OutlookApp = Nothing End Sub

このコードは、Outlookの予定表から今日以降の予定を取得し、Excelのシートに開始日時、終了日時、件名、場所を順に書き込むものです。

マクロを実行する

コードを入力したら、以下の手順でマクロを実行します。

VBAエディタを閉じるVBAエディタのウィンドウを閉じて、元のExcel画面に戻ります。
マクロを実行するキーボードの「Alt」キーを押しながら「F8」キーを押して、「マクロ」ダイアログを開きます。リストから「GetOutlookAppointments」を選択し、「実行」ボタンをクリックします。

これで、Outlookの予定がExcelに取り込まれます。