Outlook cho phép người dùng gắn cờ các email bằng lời nhắc theo dõi tùy chỉnh và ngày đến hạn. Nhưng bạn cần phải chọn và kích hoạt nó theo cách thủ công. Bài viết này sẽ hướng dẫn bạn cách đạt được nó một cách tự động thông qua VBA.
Outlook cung cấp cho chúng tôi tính năng “Gắn cờ”, tính năng này có thể cho phép chúng tôi theo dõi các email quan trọng thuận tiện hơn nhiều. Nó không chỉ có thể cho phép chúng tôi tạo email mà còn cho phép chúng tôi chọn biểu tượng cờ ưa thích, chỉ định ngày đến hạn cụ thể và thậm chí chỉ định lời nhắc tùy chỉnh cho email. Không còn nghi ngờ gì nữa, nó rất tiện dụng.
Nhưng nhiều người dùng vẫn có mong muốn khác. Họ hy vọng rằng Outlook có thể tự động chỉ định ngày đến hạn tùy chỉnh tương đối cố định và thời gian nhắc nhở cho các email được gắn cờ, chẳng hạn như 3 ngày sau hôm nay, 1 tuần sau hôm nay, v.v. Thành thật mà nói, Outlook không có tính năng gốc như vậy. Do đó, bạn cần phải sử dụng lại các phương tiện khác, chẳng hạn như VBA. Ở đây chúng tôi sẽ hướng dẫn bạn cách sử dụng Outlook VBA để thực hiện yêu cầu này. Đọc tiếp để có được nó một cách chi tiết.
Tự động đặt lời nhắc và ngày đến hạn khi gắn cờ email Outlook
- Ngay từ đầu, hãy khởi chạy chương trình Outlook của bạn.
- Sau đó, bạn có thể nhấn phím tắt “Alt + F11” để có quyền truy cập vào trình soạn thảo VBA.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Application” sau, bạn cần nhấp đúp vào dự án “ThisOutlookSession” ở phía bên trái.
- Sau đó, sao chép và dán mã VBA bên dưới vào đó.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- Sau đó, bạn nên ký mã này như bình thường.
- Sau đó, hãy thoát trình chỉnh sửa VBA và tiến hành thay đổi cài đặt macro Outlook của bạn để chỉ bật các macro được ký điện tử.
- Cuối cùng, bạn cần khởi động lại Outlook để kích hoạt macro mới. Sau đó, bạn có thể thử xem sao.
- Nhấp vào biểu tượng lá cờ ở cuối mục email.
- Ngay lập tức, cờ sẽ tự động được đổi thành biểu tượng “Cờ tuần tới”.
- Và ngày đến hạn cũng như thời gian nhắc nhở sẽ được đặt tương ứng với cài đặt trước của bạn trong mã.
Đừng hoảng sợ nếu gặp sự cố Outlook
Khi Outlook gặp sự cố đột ngột, hầu hết mọi người sẽ hoảng sợ vì lo lắng dữ liệu Outlook của họ sẽ bị hỏng. Nhưng thực tế, nếu bạn đã thực hiện đủ các biện pháp phòng ngừa, bạn sẽ không bao giờ hoảng sợ. Biện pháp quan trọng nhất là sao lưu các tệp PST thường xuyên. Hơn nữa, bạn cũng có thể sử dụng một công cụ hàng đầu để khôi phục lại dữ liệu của mình. Outlook bị hỏng dữ liệu, 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 sửa lỗi sql 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