【仕事効率爆上げ】VBAでOutlook予定を自動登録｜あなたのスキル、もう一段階上へ

Outlookに毎日手入力で予定を登録していませんか？
その作業、VBAで自動化できるかもしれません。

この記事では、ExcelからOutlookの予定表に自動で予定を登録するVBAスクリプトを紹介します。
業務効率を爆上げしたいあなたにぴったりの内容です。

✅この記事で得られること

• Outlook予定表にVBAで自動登録する方法
• ExcelとOutlookの連携手順
• 実務で応用できるマクロコード

なぜVBAでOutlook予定を自動登録するのか？

以下のような課題を感じたことはありませんか？

• 毎週同じ定例ミーティングを手動登録している
• 他の人の予定も一括で登録・共有したい
• ExcelにまとめたスケジュールをOutlookに反映したい

このような業務に対し、VBAを使えば数秒で完了します。
繰り返し作業から解放され、ミスも削減できます。

💡基本のVBAコード例（1件だけ予定を登録）

まずはシンプルなコードで、1件の予定を登録してみましょう。

Sub AddOutlookAppointment()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olCalendar As Object
    Dim olAppointment As Object

    ' Outlookアプリケーション起動
    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olCalendar = olNamespace.GetDefaultFolder(9) ' 9 = olFolderCalendar

    ' 予定アイテムの作成
    Set olAppointment = olCalendar.Items.Add(1) ' 1 = olAppointmentItem

    ' 予定の詳細を設定
    With olAppointment
        .Subject = "チームミーティング"
        .Start = #7/10/2025 10:00:00 AM#
        .Duration = 60
        .Location = "会議室A"
        .Body = "定例のチームミーティングです。"
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 15
        .BusyStatus = 2 ' 2 = Busy
        .Save
    End With

    MsgBox "予定を登録しました。"

End Sub

📝Excelにまとめた予定を一括で登録する方法

Excelに以下のような表を用意してください

▶対応するVBAコード（複数件登録）

Sub RegisterAppointmentsFromExcel()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olCalendar As Object
    Dim olAppointment As Object
    Dim ws As Worksheet
    Dim i As Long
    Dim startTime As Date

    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olCalendar = olNamespace.GetDefaultFolder(9)
    Set ws = ThisWorkbook.Sheets("Sheet1") ' データがあるシート名

    i = 2 ' データは2行目から
    Do While ws.Cells(i, 1).Value <> ""
        startTime = ws.Cells(i, 1).Value + ws.Cells(i, 2).Value

        Set olAppointment = olCalendar.Items.Add(1)
        With olAppointment
            .Subject = ws.Cells(i, 3).Value
            .Start = startTime
            .Duration = ws.Cells(i, 4).Value
            .Location = ws.Cells(i, 5).Value
            .ReminderSet = True
            .ReminderMinutesBeforeStart = 10
            .BusyStatus = 2
            .Save
        End With
        i = i + 1
    Loop

    MsgBox "すべての予定を登録しました。"
End Sub

✅よくあるエラーと対処法

🔄応用テクニック

• 定期的な予定（毎週、毎月など）の自動登録も可能
• 予定にカテゴリや参加者を追加することで、より高度な管理が可能
• Googleカレンダー連携もAPI経由で応用可能

📌まとめ｜業務効率×スキル向上＝最強の武器

Outlook × VBA の組み合わせは、
「単純作業の時短」だけでなく、「業務を設計する力」も身につきます。

日々の予定入力を自動化することで、作業時間の短縮・ミスの削減・業務の標準化が実現します。
あなたのスキルを、もう一段階引き上げてみませんか？

🔗関連記事・おすすめリンク

• 【年収1,000万円も狙える！？】20代〜30代エンジニア必見！ハイクラス転職でキャリアを一気に加速させる方法