Outlookで終日のイベントのデフォルトをビジーに変更するにはどうすればよいですか？

既定では、Outlookは予定と会議のステータスをに設定します "忙しい"、 しかし、終日のイベントは "自由" （下のスクリーンショットを参照）。 終日イベントを作成するたびに、[表示形式]ステータスを[ビジー]に手動で変更する必要があります。 終日のイベントのステータスとしてのデフォルトの表示をビジーに変更するために、この記事ではXNUMXつの方法を提供しています。

カスタムフォームを作成して、終日のイベントのデフォルトをビジーに変更します

カスタムフォームは、デフォルトで終日のイベントを作成するのに役立ちます として表示 の状態 忙しい。 次のようにしてください。

1.カレンダービューに移動します。 クリック ホーム > 新しい予定.

2.新しい[予定]ウィンドウで、[開発者]>[このフォームのデザイン]をクリックします。

ヒント： もし ディベロッパー タブがリボンに表示されない場合は、方法に従ってください この記事では それを表示する。

3.次に、予約ウィンドウがデザインモードに変わります。 クリックする必要があります （P.2） タブでを確認できます。

4。 ドラッグする 終日イベント フィールドと として表示時間 からのフィールド フィールドチューザー 下のボードとは別にペイン （P.2） タブ

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

6。 の中に プロパティ ダイアログボックスでは、次のように構成する必要があります。

7.のコンボボックスを右クリックします として表示時間 フィールドとクリック プロパティ コンテキストメニューから選択します。

8。 の中に プロパティ ダイアログボックスでは、次のように構成する必要があります。

9。 クリック パブリッシュ > フォームを別名で公開 リボンに。

10。 の中に フォームを別名で公開 ダイアログボックスでは、次のことを行う必要があります。

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

12.今後、[表示]ステータスをデフォルトの[ビジー]に設定して終日イベントを作成する必要がある場合は、にシフトしてください。 カレンダー 表示してクリック ホーム > 新商品 > カスタムフォーム >「カスタムフォームの名前」。

注意： [ステータスとして表示]のデフォルトが[無料]の終日イベントを作成するには、通常どおりに実行します。をクリックします。 ホーム > 新しい予定、次に確認します 終日イベント 内箱 任命 窓。

VBAを使用して、終日のイベントのデフォルトをビジーに変更します

上記の方法はステップが多すぎます。 [表示形式]ステータスがデフォルトの[ビジー]の終日イベントを常に作成する必要がある場合は、次のVBAコードを使用すると簡単に作成できます。

1. Outlookを起動し、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く このOutlookSession （コード） ウィンドウをクリックし、次のコードをこのコードウィンドウにコピーします。

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を再起動します。

これからは、予定や会議を終日のイベントに変換した後、 として表示 ステータスは次のように表示されます "忙しい" デフォルトでは

関連記事

---

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします！

• 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
• BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
• メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
• 添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
• 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

続きを読みます... ダウンロード中...