如何將 Outlook 中全天活動的預設狀態改為「忙碌」？
依預設，Outlook 會將約會與會議的狀態設為「忙碌」，但全天活動則設為「有空」（請參見下方截圖）。每次建立全天活動時，您都必須手動將「顯示為」狀態改為「忙碌」。若要將全天活動的預設「顯示為」狀態變更為「忙碌」，本文提供兩種方法供您選擇。
透過建立自訂表單將全天活動預設狀態改為「忙碌」
自訂表單可協助您建立預設「顯示為」狀態為「忙碌」的全天活動。請依照下列步驟操作：
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」視窗中，依序雙擊「Project 1」>「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 Sub3. 儲存 VBA 程式碼後，重新啟動 Outlook。
日後，當您在將約會或會議轉換為全天活動後，「顯示為」狀態預設會顯示為「忙碌」。
相關文章
變更 Outlook 中全天活動的預設提醒時間
一般情況下，Outlook 2007／2010 中全天活動的預設提醒時間為 18 小時，而 Outlook 2013 則為 0.5 天。若此預設設定不符合您的工作節奏，別擔心！本文將教您如何輕鬆調整 Microsoft Outlook 中全天活動的預設提醒時間，讓行程安排更貼合您的需求。
變更 Outlook 中預設後續追蹤時間
眾所周知，當您在 Outlook 中為電子郵件新增後續追蹤提醒時，預設的後續追蹤時間為下午 4:30（或根據您的工作時間設定而有所不同）。但您可能希望將預設時間調整為工作日開始時段，例如上午 9:00，讓提醒更貼合您的工作節奏！本文將示範如何輕鬆變更 Outlook 中的預設後續追蹤時間。
變更 Outlook 中預設封存位置
Outlook 預設已為封存檔案設定儲存位置，但您也可自行更改。本教學將詳細說明如何輕鬆變更 Outlook 中的預設封存位置，讓檔案管理更符合您的需求！
變更 Outlook 中預設附件保存區域
您是否厭倦了每次啟動 Outlook 時都要重新尋找先前指定的附件儲存位置？本教學將教您如何變更預設附件儲存位置——設定完成後，即使重新啟動 Outlook，儲存附件時都會自動開啟您指定的資料夾，省時又省力！
變更 Outlook 中延遲傳送的預設時間
本教學提供一段 VBA 程式碼，協助您輕鬆調整 Outlook「延遲傳送」功能的預設時間！
最佳 Office 生產力工具
體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！
🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！
📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……
📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……
📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……
🌟 介面魔法：😊更多精美酷炫表情符號／重要郵件來到時提醒您／最小化 Outlook 而非關閉……
👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……
👩🏼🤝👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……
用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！
立即一鍵解鎖 Kutools for Outlook！別再等待，馬上下載，全面提升工作效率！
🚀 一鍵下載 — 立即取得所有 Office 增益集
強烈推薦：Kutools for Office（5 合 1）
一鍵下載五個安裝程式，一次完成 — Kutools for Excel、Outlook、Word、PowerPoint 與 Office Tab Pro！立即點擊下載！
- ✅ 一鍵便利：只需一次操作，即可下載全部五個安裝套件！
- 🚀 隨時應對任何 Office 任務：按需安裝所需增益集，立即提升工作效率！
- 🧰 包含：Kutools for Excel／Kutools for Outlook／Kutools for Word／Office Tab Pro／Kutools for PowerPoint