Theo mặc định, Outlook sẽ tự động sử dụng thời gian nhắc nhở mặc định của các tác vụ cho tất cả các loại mục được gắn cờ. Tuy nhiên, nếu bạn muốn sử dụng thời gian nhắc nhở khác nhau cho các mặt hàng được gắn cờ dựa trên loại mặt hàng, bạn có thể tham khảo phương pháp được giới thiệu trong bài viết này.
Outlook cho phép bạn đặt thời gian nhắc nhở mặc định cho tất cả các mục được gắn cờ, bất kể loại mục nào. Bạn có thể vào menu "Tệp" và nhấp vào "Tùy chọn". Sau đó, trong cửa sổ “Tùy chọn Outlook”, bạn có thể thấy tùy chọn “Thời gian nhắc nhở mặc định” trên tab “Nhiệm vụ”, như minh họa trong ảnh chụp màn hình sau.
Tuy nhiên, hầu hết người dùng đều mong muốn sử dụng thời gian nhắc nhở khác nhau cho các loại mục được gắn cờ khác nhau, chẳng hạn như “9:00” cho thư được gắn cờ và “17:30” cho danh bạ được gắn cờ. Bây giờ, trong phần tiếp theo, chúng ta sẽ tập trung vào ví dụ này để giới thiệu một phương pháp.
Đặt thời gian nhắc nhở mặc định khác nhau cho các loại mặt hàng được gắn cờ khác nhau
- Trước tiên, hãy mở ứng dụng Outlook.
- Sau đó, truy cập trình soạn thảo VBA của Outlook có tham chiếu đến “Cách chạy mã VBA trong Outlook của bạn".
- Trong cửa sổ “Microsoft Visual Basic for Applications” tiếp theo, hãy sao chép đoạn mã sau vào dự án “ThisOutlookSession”.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If objExplorer.Selection.Item(1).Class = olMail Then
Set objMail = objExplorer.Selection.Item(1)
ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
Set objContact = objExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMail = Inspector.CurrentItem
ElseIf Inspector.CurrentItem.Class = olContact Then
Set objContact = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objMail.IsMarkedAsTask = True Then
If objMail.TaskDueDate <> "1/1/4501" Then
With objMail
.ReminderSet = True
'Change the reminder time for flagged emails
.ReminderTime = objMail.TaskDueDate & " 10:00"
.Save
End With
End If
End If
End If
End Sub
Private Sub objContact_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objContact.IsMarkedAsTask = True Then
If objContact.TaskDueDate <> "1/1/4501" Then
With objContact
.ReminderSet = True
'Change the reminder time for flagged contacts
.ReminderTime = objContact.TaskDueDate & " 17:30"
.Save
End With
End If
End If
End If
End Sub
- Sau đó, khởi động lại Outlook để kích hoạt macro này.
- Từ giờ trở đi, mỗi khi bạn gắn cờ email, thời gian nhắc nhở sẽ được đặt thành “10:00” vào ngày hết hạn gắn cờ.
- Và khi bạn gắn cờ một liên hệ, thời gian nhắc nhở sẽ được đặt thành “17:30” vào ngày hết hạn gắn cờ.
Giải quyết các vấn đề về Outlook một cách linh hoạt
Bạn có thể gặp phải đủ loại sự cố trong Outlook của mình. Vì vậy, bạn cần tìm hiểu một số biện pháp để giải quyết chúng trước. Ví dụ, nếu Outlook của bạn thường xuyên khởi động lại, bạn cần sửa chữa Office hoặc vô hiệu hóa các tiện ích bổ sung của bên thứ ba, v.v. Hoặc nếu tệp PST của Outlook bị lỗi, trước tiên bạn có thể thử các bước sau: công cụ sửa chữa hộp thư đến. Khi thất bại, bạn có thể tiếp tục nhờ đến một công cụ mạnh mẽ bên ngoài, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm