Как установить текущую дату в качестве даты начала по умолчанию при создании новой задачи в Outlook?

Author Xiaoyang Last modified 2025-08-26

Когда мы создаём новую задачу в Outlook, поле «Дата начала» отображается как «Нет» по умолчанию, как показано на следующем скриншоте. Однако иногда вам может потребоваться часто устанавливать сегодняшнюю дату в качестве даты начала, и каждый раз придётся вручную выбирать дату в поле «Дата начала». Есть ли быстрый способ автоматически устанавливать текущую дату в качестве даты начала по умолчанию при создании новой задачи в Outlook?

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 1

Установите текущую дату в качестве даты начала по умолчанию при создании новой задачи с помощью кода VBA в Outlook

Установите текущую дату в качестве даты начала по умолчанию при создании новой задачи с помощью кода VBA в Outlook

Возможно, нет другого хорошего способа справиться с этой задачей напрямую в Outlook, поэтому я представлю код VBA для её решения. Пожалуйста, выполните следующие шаги:

1. Запустите Outlook, затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щёлкните ThisOutlookSession в панели Project1(VbaProject.OTM), чтобы открыть модуль, затем скопируйте и вставьте следующий код в пустой модуль.

Код 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

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 2

3. После вставки кода поместите курсор во второй раздел кода и нажмите клавишу F5, чтобы запустить этот код, см. скриншот:

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 3

4. С этого момента, когда вы будете создавать новую задачу, Outlook автоматически установит дату начала и дату окончания на текущую дату по умолчанию, как показано на следующем скриншоте: