Как да задам началната дата по подразбиране като днес, когато създавам нова задача в Outlook?

Автор: Xiaoyang Последна промяна: 2018-04-10

Когато създаваме нова задача в 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 автоматично ще задава началната и крайната дата на текущата дата по подразбиране, както е показано на следната екранна снимка: