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

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

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

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

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

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

ヒント： Status Developer タブがリボンに表示されない場合は、方法に従ってください この記事では それを表示する。

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 - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロ: バッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

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

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

続きを読む       無料ダウンロード      購入