如何将今天自动预设为 Start Outlook 中新任务的日期

展望解决方案 2025 年 9 月 29 日
立即分享：

在 Outlook 中创建新任务时，如果您经常需要将今天设置为它的日期tart 日期，您必须希望 Outlook 自动完成它。 本文将针对此要求提供一种简单的方法。

默认情况下，当您在 Outlook 中单击创建新任务时，该任务将显示为“Start date”设置为“None”，如下图所示。 然而，通常情况下，您习惯于设置 start 日期到当前日期。 因此，您必须在“S”中手动输入或选择日期tart 日期”字段。 面对这样的场景，您可能希望Outlook能够自动将今天预设为今天tart date pf 新任务。 虽然没有这样一个直接的函数，但您仍然可以通过下文共享的VBA 代码来获取它。 如果您不熟悉 VBA，请参阅“如何在 Outlook 中运行 VBA 代码“ 同时。

默认“无”tar日期

今天自动预设为 Start 新任务的日期

  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 代码 - 今天自动预设为 Start 新任务的日期

  1. 之后，将光标移动到第一个“Application_Startup”子程序。
  2. 稍后，按“F5”键按钮。
  3. 此后，每次创建新任务时，Outlook 都会自动设置 start日期为当前日期，即今天，如下图所示。今天自动预设为 Star日期

当心 Outlook 中的恶意宏

VBA宏虽然给用户带来了很多便利和可能性，但同时也带来了很多潜在的风险。 例如，如果您将宏设置设置为允许所有宏而不通知，当一封带有恶意宏的电子邮件到达您的邮箱并且您打开其中的嵌入式链接时，您的 Outlook 数据文件很容易受到病毒的攻击。 那个时候，你必须杀掉病毒并尝试 Outlook修复。 中号ost 当然，内置工具 - Scanpst 不能胜任这项任务。 因此，您应该调用更强大的实用程序，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 sql恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。