在 Outlook 中建立任務時，如何將預設開始日期設為今天？

當您在 Outlook 中建立任務時，系統會如以下截圖所示，預設將「開始日期」設為「無」。但若您經常需要將開始日期設為今天，每次都得手動在「開始日期」欄位中選取日期，實在費時又不便！有沒有更快捷的方式，讓 Outlook 在建立新任務時自動將開始日期設為今天？

在 Outlook 中使用 VBA 程式碼建立任務時，將預設開始日期設為今天

---

在 Outlook 中使用 VBA 程式碼建立任務時，將預設開始日期設為今天

在 Outlook 中，或許沒有比這更直接有效的方法來處理此任務了！以下將為您介紹一段實用的 VBA 程式碼，輕鬆解決問題。請依照下列步驟操作：

1. 啟動 Outlook，然後按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，於 Project 1 (VbaProject.OTM) 窗格中雙擊 ThisOutlookSession 以開啟模組，並將下列程式碼複製貼上至空白模組中。

VBA 程式碼：將預設開始日期設為今天：

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. 插入程式碼後，將游標置於第二段程式碼處，然後按下 F5 鍵執行此程式碼，如截圖所示：

4. 從此之後，當您在每次建立任務時，Outlook 將自動將開始日期與結束日期預設設為當前日期，如下方截圖所示：