Outlookで終日のイベントのステータスを「ビジー」に自動設定する2つの方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

デフォルトでは、終日のイベントのステータスは「無料」です。 しかし実際には、通常、ステータスを「ビジー」に設定したいと考えています。 したがって、この記事では、それを実現するための2つのアプローチを紹介します。

多くのユーザーは、Outlookがデフォルトで終日イベントを「無料」と表示することに悩まされています。 したがって、終日のイベントを作成するたびに、手動でステータスを変更する必要があります。 間違いなく、それはかなり面倒です。 したがって、ここでは、終日のイベントのステータスを「ビジー」に自動設定するための2つのヒントを紹介します。

Outlookで終日のイベントのステータスを「ビジー」に自動設定

方法1：カスタムの「忙しい終日イベント」フォームをデザインする

  1. にtarで、Outlookを起動します。
  2. 次に、「カレンダー」ナビゲーションペインに移動します。
  3. 次に、リボンの[新しい予定]ボタンをクリックして、新しい予定を作成できます。
  4. アポイントメントウィンドウで、「開発者」タブに移動し、「このフォームをデザイン」ボタンを押します。このフォームをデザインする
  5. その後、「P.2」ページに切り替える必要があります。
  6. その後、ポップアップの[フィールドの選択]ダイアログボックスから、[終日イベント]フィールドと[表示時間]フィールドを[P.2]ページにドラッグアンドドロップします。「終日イベント」フィールドと「表示時間」フィールドを追加します
  7. 次に、「終日イベント」フィールドを右クリックし、コンテキストメニューから「プロパティ」オプションを選択します。
  8. ポップアップダイアログボックスで、[値]タブに切り替え、[このフィールドの初期値をに設定する]を有効にして、下のボックスに「True」と入力します。「終日イベント」フィールド値を設定する
  9. 次に、「OK」をクリックして変更を保存します。
  10. その後、「Show Time As」フィールドの横にあるコンボボックスを右クリックし、「Properties」を選択します。
  11. 次のダイアログボックスで、[値]タブに移動し、[このフィールドの初期値をに設定する]をオンにして、下のボックスに「2」と入力します。「表示時間」フィールド値を設定します
  12. 後で「OK」をクリックしてフォームに戻ります。
  13. 最後に、リボンの[公開]ボタンをクリックして、[フォームに名前を付けて公開]を選択できます。 新しいダイアログボックスで、「表示名」フィールドに名前を入力し、最終的に「公開」ボタンを押します。フォームを公開する
  14. これ以降、クリックして忙しい終日イベントを作成するたびに、[新しいアイテム]> [フォームの選択]> [忙しい終日イベント]をクリックできます。カスタムフォームから忙しい終日イベントを作成する

思ったほど便利ではないと感じた場合は、VBAを使用する次の方法を選択できます。

方法2：VBAを介して終日イベントを「ビジー」に自動設定

  1. にtartを使用して、Outlookのメインウィンドウで「Alt + F11」キーを押します。
  2. Outlook VBAエディターにアクセスした後、「ThisOutlookSession」プロジェクトウィンドウを開きます。
  3. 次に、次のVBAコードをこのプロジェクトにコピーします。
Private WithEvents objInspectors As Inspectors
Private WithEvents objAppointment As AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

'Occur when opening an appointment
Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       objAppointment.BusyStatus = olBusy
    End If
End Sub

'Occur when changing an appointment
Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "AllDayEvent" Then
       'If you set the appointment to all day event
       If objAppointment.AllDayEvent = True Then
          objAppointment.BusyStatus = olBusy
       End If
    End If
End Sub

VBAコード-終日のイベントのステータスを「ビジー」に自動設定

  1. その後、このコードに署名し、Outlookのマクロ設定を変更します。
  2. 最終的に、解像度tarOutlookアプリケーションを使用して、この新しいプロジェクトをアクティブ化します。
  3. それ以降、終日イベントを作成するたびに、そのステータスは自動的に「ビジー」に設定されます。

Outlookデータを保護する

間違いなく、Outlookの周りには多くの潜在的なセキュリティの脅威があります。 そのため、Outlookデータを保護することは非常に面倒で困難です。 私たちは常に警戒しなければなりません。 また、時間内に救援措置を講じるためには、 PST修正 のようなツール DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修復する と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。