如何在 Outlook 中创建新任务时，将默认开始日期设置为今天？

在 Outlook 中创建新任务时，任务的开始日期默认显示为“无”，如下面截图所示。但有时您经常需要将今天设为开始日期，因此每次都要在“开始日期”字段手动选择日期。有无快捷方法能让 Outlook 在新建任务时，自动将默认开始日期设置为今天？

通过 VBA 代码，在 Outlook 中创建新建任务时将默认开始日期设置为今天

---

通过 VBA 代码，在 Outlook 中创建新建任务时将默认开始日期设置为今天

可能在 Outlook 中没有直接处理此需求的理想方法，下面将为您介绍一种通过 VBA 代码解决该问题的方法。请按照以下步骤操作：

11. 启动 Outlook，按下 ALT + F11 组合键即可打开 Microsoft Visual Basic for Applications 窗口。

22. 在 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

33. 插入代码后，将光标定位到第二段代码处，并按下 F5 键运行代码，如下截图所示：

44. 这样以后，每次创建新建任务时，Outlook 都会自动将开始日期和结束日期默认设为当前日期，如下截图所示：