Как сделать так, чтобы при создании задачи в Outlook значение по умолчанию для поля «Дата начала» автоматически устанавливалось на сегодняшнюю дату?

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

Установка значения по умолчанию Дата начала равным сегодняшней дате при создании Задача с помощью кода 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

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

4. Начиная с этого момента, при создании каждой новой задачи в Outlook поля «Дата начала» и «Конечная дата» автоматически будут устанавливаться в текущую дату по умолчанию, как показано на следующем снимке экрана: