Làm cách nào để đặt ngày bắt đầu mặc định như hôm nay khi tạo tác vụ mới trong Outlook?

Khi chúng tôi tạo một tác vụ mới trong Outlook, tác vụ với “Ngày bắt đầu”Được hiển thị với "Không ai”Theo mặc định như ảnh chụp màn hình sau. Tuy nhiên, đôi khi, bạn cần phải đặt ngày hôm nay làm Ngày bắt đầu thường xuyên, vì vậy, bạn phải chọn ngày trong trường “Ngày bắt đầu” theo cách thủ công mỗi lần. Có cách nào nhanh chóng để đặt ngày bắt đầu mặc định như hôm nay tự động khi tạo tác vụ mới trong Outlook không?

Đặt ngày bắt đầu mặc định là hôm nay khi tạo tác vụ mới với mã VBA trong Outlook

Đặt ngày bắt đầu mặc định là hôm nay khi tạo tác vụ mới với mã VBA trong Outlook

Có thể không có cách nào tốt khác để giải quyết tác vụ này trực tiếp trong Outlook, ở đây, tôi sẽ giới thiệu một mã VBA để giải quyết nó. Vui lòng thực hiện theo các bước sau:

1. Khởi chạy Outlook, rồi nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Đặt ngày bắt đầu mặc định là hôm nay:

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. Sau khi chèn mã, sau đó đặt con trỏ ở phần mã thứ hai và nhấn F5 phím để chạy mã này, xem ảnh chụp màn hình:

4. Kể từ đó, khi bạn tạo một tác vụ mới mỗi lần, Outlook sẽ tự động đặt ngày bắt đầu và ngày kết thúc thành ngày hiện tại theo mặc định như ảnh chụp màn hình sau: