Outlook VBAで予定を自動作成する方法

皆さん、こんにちは。今日は、Outlookの予定表に自動で予定を追加する方法をご紹介します。パソコンやスマートフォンの操作が苦手な方でも大丈夫です。ゆっくりと一緒に学んでいきましょう。

Outlook VBAとは？
予定を自動で作成するメリット
Outlook VBAの基本設定
VBAコードの入力方法
コードの実行方法
よくある質問や疑問
1. Q1: コードを実行しても予定が作成されません。どうすればいいですか？
2. Q2: 毎回同じ時間の予定を作成するのではなく、異なる日時の予定を自動で作成できますか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAという言葉を聞いたことがありますか？VBAとは、Visual Basic for Applicationsの略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。Outlook VBAを使うと、Outlookの作業を自動化できるんですよ。

予定を自動で作成するメリット

手作業で予定を入力するのは大変ですよね。特に、毎回同じような予定を入力するのは面倒です。そこで、Outlook VBAを使って自動で予定を作成すれば、時間の節約になりますし、入力ミスも減らせます。

Outlook VBAの基本設定

では、実際にOutlook VBAを使ってみましょう。まずは、OutlookでVBAを使えるように設定します。

1. Outlookを開きます。
2. 上部のメニューから「ファイル」をクリックします。
3. 「オプション」を選択します。
4. 左側のメニューから「リボンのユーザー設定」をクリックします。
5. 右側の「メインタブ」の中にある「開発」をチェックして「OK」をクリックします。

これで、Outlookの上部に「開発」タブが表示されるようになります。

VBAコードの入力方法

次に、実際にVBAのコードを入力してみましょう。

1. 「開発」タブをクリックします。
2. 「Visual Basic」をクリックして、VBAの編集画面を開きます。
3. 左側の「プロジェクト」ウィンドウで「ThisOutlookSession」をダブルクリックします。
4. 右側の大きな白い部分に、以下のコードをコピーして貼り付けます。

vba

Sub CreateAppointment()

    Dim olApp As Outlook.Application

    Dim olAppt As Outlook.AppointmentItem

    Set olApp = Outlook.Application

    Set olAppt = olApp.CreateItem(olAppointmentItem)

With olAppt .Subject = "会議" .Location = "会議室1" .Start = #2025/3/1 10:00:00 AM# .End = #2025/3/1 11:00:00 AM# .Body = "定例の会議です。" .BusyStatus = olBusy .ReminderSet = True .ReminderMinutesBeforeStart = 15 .Save End With End Sub

このコードは、2025年3月1日の午前10時から11時まで「会議」という予定を作成するものです。

コードの実行方法

コードを入力したら、実際に実行してみましょう。

1. VBAの編集画面の上部にある「▶」ボタン（実行ボタン）をクリックします。
2. Outlookに戻り、予定表を確認すると、新しい予定が追加されているはずです。

よくある質問や疑問

Q1: コードを実行しても予定が作成されません。どうすればいいですか？

まず、コードに誤りがないか確認してください。特に、日付や時間の形式に注意が必要です。また、Outlookが正しく起動しているか、VBAの設定が有効になっているかも確認してください。

Q2: 毎回同じ時間の予定を作成するのではなく、異なる日時の予定を自動で作成できますか？

A2: はい、可能です。例えば、Excelに予定の一覧を作成し、その情報を元にOutlookで予定を作成することができます。詳しくは、以下のサンプルコードをご参照ください。

vba

Sub CreateAppointmentsFromExcel()

    Dim olApp As Outlook.Application

    Dim olAppt As Outlook.AppointmentItem

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim i As Integer
    ' Excelを起動して、予定が記載されたブックを開く

    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = xlApp.Workbooks.Open("C:\Users\あなたのユーザー名\Documents\予定一覧.xlsx")

    Set xlSheet = xlBook.Sheets(1)
    ' Outlookアプリケーションを取得

    Set olApp = Outlook.Application
    ' Excelのデータを読み込み、予定を作成

    i = 2 ' Excelの2行目からデータがあると仮定

    While xlSheet.Cells(i, 1).Value <> ""

        Set olAppt = olApp.CreateItem(olAppointmentItem)

        With olAppt

            .Subject = xlSheet.Cells(i, 1).Value

            .Location = xlSheet.Cells(i, 2).Value

            .Start = xlSheet.Cells(i, 3).Value

            .End = xlSheet.Cells(i, 4).Value

            .Body = xlSheet.Cells(i, 5).Value

            .BusyStatus = olBusy

            .ReminderSet = True

            .ReminderMinutesBeforeStart = 15

            .Save

        End With

        i = i + 1

    Wend