VBAを使ってOutlookの予定表に予定を登録する方法

こんにちは！今日は、パソコン操作に自信がない方でも簡単にできる、VBAを使ってOutlookの予定表に予定を登録する方法をご紹介します。難しそうに聞こえるかもしれませんが、手順を一つ一つ丁寧に説明しますので、ご安心ください。

VBAとは何か？
Outlookの予定表にVBAで予定を追加する手順
よくある質問や疑問
1. VBAコードを実行しても予定が追加されません。どうすればいいですか？
2. リマインダーの時間を変更したいのですが、どうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAとは何か？

Outlookのイメージ

まず、VBAについてお話ししましょう。VBAとは、「Visual Basic for Applications」の略で、Microsoftのアプリケーション（例えばExcelやOutlook）を自動化するためのプログラミング言語です。難しいプログラミングの知識がなくても、日々の作業を効率化することができます。

Outlookの予定表にVBAで予定を追加する手順

では、具体的にOutlookの予定表にVBAを使って予定を追加する方法を見ていきましょう。

1. 開発者タブを表示する

まず、Outlookで「開発者」タブを表示する必要があります。

Outlookを開き、上部のメニューから「ファイル」をクリックします。
「オプション」を選択し、表示されたウィンドウで「リボンのカスタマイズ」をクリックします。
右側のリストから「開発者」にチェックを入れ、「OK」をクリックします。

これで、Outlookのメニューに「開発者」タブが表示されます。

2. VBAエディターを開く

次に、VBAエディターを開きます。

「開発者」タブをクリックし、「Visual Basic」を選択します。
新しいウィンドウが開き、これがVBAエディターです。

3. コードを入力する

ここで、予定を追加するためのコードを入力します。

VBAエディターの上部メニューから「挿入」をクリックし、「標準モジュール」を選択します。
表示されたウィンドウに、以下のコードをコピーして貼り付けます。

vba

Sub 予定を追加する()

    Dim olApp As Object

    Dim olNs As Object

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

    Set olNs = olApp.GetNamespace("MAPI")

    Set olAppt = olApp.CreateItem(1) ' 1は予定表アイテムを示します

With olAppt .Subject = "会議" ' 件名 .Location = "会議室1" ' 場所 .Start = #2025/3/5 14:00# ' 開始日時 .Duration = 60 ' 継続時間（分） .Body = "月次会議の議題について話し合います。" ' 本文 .BusyStatus = 2 ' 予定ありとして表示 .ReminderMinutesBeforeStart = 15 ' リマインダーを開始15分前に設定 .Save .Display End With End Sub

このコードでは、Outlookの予定表に新しい予定を追加しています。件名や場所、開始日時などを自分の予定に合わせて変更してください。