Як встановити дату початку за замовчуванням, як сьогодні, під час створення нового завдання в Outlook?

Коли ми створюємо нове завдання в Outlook, завдання з “Дата початку”Відображається за допомогою “Жодного”За замовчуванням, як показано на наступному знімку екрана. Але, іноді, вам потрібно часто встановлювати сьогодні його дату початку, тому вам доведеться кожен раз вибирати дату в полі “Дата початку” вручну. Чи є швидкий спосіб встановити дату початку за замовчуванням як сьогодні автоматично при створенні нового завдання в Outlook?

Встановіть дату початку за замовчуванням як сьогодні, коли створюєте нове завдання з кодом VBA в Outlook

Встановіть дату початку за замовчуванням як сьогодні, коли створюєте нове завдання з кодом VBA в Outlook

Можливо, немає жодного іншого хорошого способу вирішити це завдання безпосередньо в Outlook, тут я представив код VBA для його вирішення. Будь ласка, виконайте такі дії:

1. Запустіть Outlook, а потім утримуйте ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2, в Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession від Проект1 (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 автоматично встановлює дату початку та дату завершення до поточної дати за замовчуванням, як показано на наведеному нижче знімку екрана: