Outlook VBAでカレンダーアイテム（AppointmentItem）を自在に操る方法

Outlookのカレンダー機能をもっと便利に使いたいと思いませんか？特に、VBA（Visual Basic for Applications）を使えば、予定の作成や管理がぐっと効率的になります。今回は、Outlook VBAで「AppointmentItem」を操作する基本から応用まで、初心者の方にもわかりやすく解説します。パソコンやスマホの操作に不安がある方でも安心して学べる内容ですので、ぜひ最後までご覧ください。

AppointmentItemとは？
VBAでAppointmentItemを作成する基本のコード
予定の詳細を変更する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

AppointmentItemとは？

Outlookのイメージ

まず、「AppointmentItem」とは、Outlookのカレンダーに登録される予定のことです。会議や個人の予定など、さまざまなタイプの予定を表現できます。VBAを使うことで、これらの予定を自動で作成したり、編集したりすることが可能になります。

VBAでAppointmentItemを作成する基本のコード

VBAを使って新しい予定を作成するには、以下のようなコードを使用します。

Sub CreateAppointment()

    Dim olApp As Object

    Dim olAppt As Object
    Set olApp = CreateObject("Outlook.Application")

    Set olAppt = olApp.CreateItem(1) ' 1はolAppointmentItemを示す定数

With olAppt .Subject = "会議" .Start = "2025/06/16 10:00" .Duration = 60 ' 60分 .Location = "会議室A" .Body = "会議の内容について" .Save End With End Sub

このコードを実行すると、「会議」というタイトルの予定が2025年6月16日の10:00から60分間、会議室Aで設定されます。VBAエディタを開き、コードを貼り付けて実行するだけで簡単に予定を作成できます。

予定の詳細を変更する方法

作成した予定の詳細を変更するには、以下のようなコードを使用します。

Sub ModifyAppointment()

    Dim olApp As Object

    Dim olAppt As Object
    Set olApp = CreateObject("Outlook.Application")

    Set olAppt = olApp.CreateItem(1)
    ' 既存の予定を取得

    Set olAppt = olApp.Session.GetItemFromID("予定のEntryID")

With olAppt .Subject = "変更後の会議" .Location = "会議室B" .Save End With End Sub

このコードでは、指定したEntryIDを持つ既存の予定を取得し、そのタイトルや場所などを変更しています。EntryIDは、予定を一意に識別するためのIDで、予定のプロパティから取得できます。

よくある質問や疑問

Q1: VBAを使うにはどこでコードを入力すればいいですか？

Outlookを開き、「Alt + F11」でVBAエディタを起動します。左側の「Microsoft Outlook Objects」内の「ThisOutlookSession」をダブルクリックし、表示されたウィンドウにコードを入力します。

Q2: 作成した予定を自動で送信することはできますか？

はい、可能です。予定を作成した後、`.Send`メソッドを使用することで、作成した予定を自動で送信できます。

Sub CreateAndSendAppointment()

    Dim olApp As Object

    Dim olAppt As Object
    Set olApp = CreateObject("Outlook.Application")

    Set olAppt = olApp.CreateItem(1)

With olAppt .Subject = "自動送信会議" .Start = "2025/06/16 14:00" .Duration = 60 .Location = "会議室C" .Body = "この会議は自動で送信されています。" .Recipients.Add "example@example.com" .Send End With End Sub

このコードでは、指定したメールアドレスに会議の予定を自動で送信しています。

Q3: 定期的な予定（繰り返し予定）を作成することはできますか？

はい、可能です。以下のコードで、毎週月曜日の10:00から1時間の定期的な予定を作成できます。

Sub CreateRecurringAppointment()

    Dim olApp As Object

    Dim olAppt As Object

    Dim olPattern As Object
    Set olApp = CreateObject("Outlook.Application")

    Set olAppt = olApp.CreateItem(1)

With olAppt .Subject = "毎週の会議" .Start = "2025/06/16 10:00" .Duration = 60 .Location = "会議室D" .Body = "毎週月曜日の定期会議です。" Set olPattern = .GetRecurrencePattern olPattern.RecurrenceType = 1 ' 毎週 olPattern.PatternStartDate = "2025/06/16" olPattern.PatternEndDate = "2025/12/31" .Save End With End Sub

このコードでは、2025年6月16日から12月31日までの毎週月曜日に開催される会議の予定を作成しています。