Outlook で終日イベントの既定のステータスを「予定あり」に変更するには、どうすればよいでしょうか？

既定では、Outlook は会議のステータスを「予定あり」に設定しますが、終日イベントのステータスは「空き」になります（下記スクリーンショット参照）。そのため、終日イベントを作成するたびに、「表示ステータス」を手動で「予定あり」に変更する必要があります。本記事では、終日イベントの既定の「表示ステータス」を「予定あり」に変更するための2 つの方法をご紹介します。

カスタムフォームを作成して終日イベントの既定を「予定あり」に変更する

カスタムフォームを使えば、「表示ステータス」が既定で「予定あり」に設定された終日イベントを簡単に作成できます。以下の手順に従ってください。

1。カレンダービューに切り替えて、「ホーム」タブの「予定」をクリックします。

2. 「予定」ウィンドウで、「開発」＞「このフォームをデザイン」をクリックしてください。

ヒント：リボンに「開発」タブが表示されていない場合は、この記事の方法に従って表示してください。

3。すると、予定作成ウィンドウがデザインモードに切り替わります。「(P.2)」タブをクリックしてください。

4。「フィールド選択」ペインから「終日イベント」フィールドと「予定のステータス」フィールドをそれぞれドラッグし、「(P.2)」タブ下のボード上に配置してください。

5。ドラッグした「終日イベント」フィールドを右クリックし、「プロパティ」をコンテキストメニューから選択します。

6。「プロパティ」ダイアログボックスで、次のように設定してください。

7。 「予定のステータス」フィールドのコンボボックスを右クリックし、「プロパティ」をコンテキストメニューから選択します。

8。「プロパティ」ダイアログボックスで、次のように設定してください。

9。リボンで「公開」＞「フォームとして公開」をクリックしてください。

10。「フォームとして公開」ダイアログボックスで、次の操作を行ってください。

11。予定ウィンドウを保存せずに閉じます。

12。今後、「表示ステータス」を既定で「予定あり」に設定した終日イベントを作成する必要がある場合は、カレンダービューに切り替えて、「ホーム」＞「新規アイテム」＞「カスタムフォーム」＞「カスタムフォームの名前」をクリックしてください。

注：「表示ステータス」を既定で「空き」に設定した終日イベントを作成する場合は、「ホーム」＞「予定」を通常どおりクリックし、その後、「予定」ウィンドウで「終日イベント」チェックボックスをオンにしてください。

VBA を使用して終日イベントの既定を「予定あり」に変更する

上記の方法は手順が多く、煩雑です。常に「表示ステータス」を既定で「予定あり」に設定した終日イベントを作成したい場合は、以下の VBA コードを使えば簡単に実現できます。

1。Outlook を起動し、「Alt」＋「F11」キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2。「Microsoft Visual Basic for Applications」ウィンドウで、「Project1」＞「Microsoft Outlook オブジェクト」＞「ThisOutlookSession」をダブルクリックし、「ThisOutlookSession (コード)」ウィンドウを開いて、次のコードをこのコードウィンドウにコピーしてください。

VBA コード：終日イベントのステータスを既定で「予定あり」に設定

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3。VBA コードを保存して、Outlook を再起動してください。

これ以降、予定や会議を終日イベントに変換すると、「表示ステータス」はデフォルトで「予定あり」になります。

関連記事

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入