如何在 Outlook 中將今天自動設定為新任務的開始日期

Outlook解決方案 2025 年 9 月 29 日
立即分享：

在 Outlook 中建立新任務時，如果您經常需要將任務的開始日期設為今天，您可能希望 Outlook 能夠自動完成此操作。本文將探討如何滿足這項需求並提供簡單的方法。

預設情況下，在 Outlook 中點擊“建立新任務”時，任務的“開始日期”會設定為“無”，如下圖所示。然而，大多數情況下，您習慣將開始日期設定為當前日期。因此，您需要在“開始日期”欄位中手動輸入或選擇日期。在這種情況下，您可能會想要 Outlook 能自動將今天預設為新任務的開始日期。雖然 Outlook 沒有直接提供這樣的功能，但您仍然可以透過下面分享的 VBA 程式碼來實現。如果您不熟悉 VBA，請參閱“如何在Outlook中運行VBA代碼同時。

預設“無”開始日期

自動將今天設為新任務的開始日期

  1. 首先，啟動Outlook應用程序。
  2. 然後，按“ Alt + F11”以觸發Outlook VBA編輯器。
  3. 接下來，將以下代碼複製到“ ThisOutlookSession”項目中。
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is TaskItem Then
       Set objTask = Inspector.CurrentItem
    End If
End Sub

Private Sub objTask_Open(Cancel As Boolean)
    'When opening a fresh new task item
    If Len(objTask.Subject) = 0 And Len(objTask.Body) = 0 And objTask.startDate = #1/1/4501# And objTask.DueDate = #1/1/4501# Then
 
       'Set start date to today
       objTask.startDate = Date
    End If
End Sub

VBA 代碼 - 自動將今天預設為新任務的開始日期

  1. 之後，將遊標移至第一個「Application_Startup」子程式。
  2. 之後，按“ F5”鍵按鈕。
  3. 從那時起，每次建立新任務時，Outlook 都會自動將開始日期設為目前日期，即今天，如下圖所示。自動預設今天為開始日期

當心Outlook中的惡意宏

儘管VBA宏為用戶帶來了很多便利和可能性，但它也帶來了許多潛在的風險。 例如，如果您將宏設置設置為允許所有宏而不進行通知，則當帶有惡意宏的電子郵件到達您的郵箱並打開其嵌入式鏈接時，您的Outlook數據文件往往會受到病毒的攻擊。 那時，您必須殺死病毒並嘗試 Outlook修復大多數情況下，內建工具 Scanpst 無法勝任這項任務。因此，您應該調用更強大的實用程序，例如： DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 sql恢復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。