Excel VBAでOutlookの予定表を操作する方法：初心者向け解説

Excel VBAとOutlookの連携で、スケジュール管理がもっと便利に！でも、VBAやOutlookを使い慣れていないと「どうやって始めればいいの？」と感じることもありますよね。この記事では、初心者でも簡単に理解できるように、Excel VBAを使って他人のOutlook予定表にアクセスする方法をステップバイステップで解説します。

Excel VBAでOutlookを操作する基本の流れ
1. VBAの準備とOutlookとの連携設定
2. 他人の予定表にアクセスする方法
Excel VBAとOutlook連携の便利な活用法
1. 定期的な予定の管理
2. 他人の予定表をカスタマイズ表示
よくある質問や疑問
1. Outlookの予定表にアクセスするには、相手の承認が必要ですか？
2. Excel VBAで取得した予定を自動的に更新する方法はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAでOutlookを操作する基本の流れ

Outlookのイメージ

VBAの準備とOutlookとの連携設定

まず、Excel VBAでOutlookを操作するために必要な準備を整えましょう。OutlookをVBAから使うためには、いくつかの設定を行う必要があります。

Excelを開き、「開発」タブを表示します。
「Visual Basic」をクリックしてVBAエディタを開きます。
「ツール」→「参照設定」から「Microsoft Outlook XX.X Object Library」にチェックを入れます。
これでOutlookのオブジェクトをVBAで操作できるようになります。

この設定を行うことで、VBAからOutlookにアクセスする準備が整いました。

他人の予定表にアクセスする方法

次に、他人のOutlook予定表にアクセスする方法を見ていきましょう。ここでは、共有されたカレンダーにアクセスする基本的なコードをご紹介します。

VBAエディタで新しいモジュールを作成します。
以下のコードを貼り付けます

Sub GetCalendar()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olFolder As Object
    Dim olItems As Object
    Dim olItem As Object
    Dim i As Integer

    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olFolder = olNamespace.GetSharedDefaultFolder(olNamespace.CreateRecipient("共有者のメールアドレス"), 9) '9は予定表フォルダの番号
    Set olItems = olFolder.Items
    olItems.Sort ""  '予定表を開始日時で並べ替え

    i = 1
    For Each olItem In olItems
        Cells(i, 1).Value = olItem.Subject
        Cells(i, 2).Value = olItem.Start
        Cells(i, 3).Value = olItem.End
        i = i + 1
    Next olItem
End Sub

このコードでは、指定した「共有者のメールアドレス」の予定表から、予定の件名や開始・終了時間をExcelに取り出しています。実際に使う際には「共有者のメールアドレス」を適切に変更してください。