Cách đặt các cờ nhấp chuột nhanh khác nhau cho các loại mục Outlook khác nhau

“Cờ nhấp chuột nhanh” đề cập đến cờ mặc định khi bạn nhấp một lần vào cột cờ của mục Outlook. Outlook chỉ cho phép bạn đặt một cờ nhấp chuột nhanh bất kể loại mục nào. Vì vậy, nếu bạn muốn đặt các cờ nhấp chuột nhanh khác nhau dựa trên các loại mặt hàng, bạn có thể sử dụng cách được giới thiệu trong bài viết này.

Để đặt cờ nhấp chuột nhanh, bạn có thể nhấp chuột phải vào cột “cờ” của một mục và chọn “Đặt nhấp chuột nhanh”. Sau đó, trong hộp thoại nhỏ bật lên, hãy chọn cờ tùy ý. Theo mặc định, Outlook sẽ áp dụng cờ bấm nhanh này cho tất cả các loại mục. Tuy nhiên, trên thực tế, phần lớn người dùng hy vọng áp dụng các cờ nhấp chuột nhanh khác nhau cho các loại mục Outlook khác nhau. Do đó, trong phần tiếp theo, chúng tôi sẽ hướng dẫn bạn cách lấy nó bằng ví dụ về email và danh bạ.

Đặt các cờ bấm nhanh khác nhau cho các loại mục Outlook khác nhau

1. Ngay từ đầu, start Trình soạn thảo Outlook VBA có tham chiếu đến “Cách chạy mã VBA trong Outlook của bạn".
2. Sau đó, sao chép mã VBA bên dưới vào dự án “ThisOutlookSession”.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
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 objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Sau đó, đặt con trỏ vào “Application_Startup” và nhấn phím “F5” để kích hoạt macro này.
4. Cuối cùng, bạn có thể thử.

• Chọn một email và nhấp vào cột “Cờ”. Ngay lập tức, cờ “Ngày mai” sẽ được thêm vào email.
• Sau đó, giới thiệu một liên hệ và nhấp vào cột “Gắn cờ”. Ngay lập tức, cờ “Hôm nay” sẽ được thêm vào liên hệ đã chọn.

Cấm email độc hại

Mặc dù macro đóng góp rất nhiều cho hoạt động của chúng ta trong Outlook, nhưng bạn vẫn cần chú ý đến các macro, đặc biệt là các macro từ các email không xác định bên ngoài. Đó là vì macro có thể chứa vi-rút, vi-rút này có thể dễ dàng tấn công dữ liệu Outlook của bạn. Khi tệp Outlook của bạn bị nhiễm, ngoài việc tiêu diệt vi-rút, bạn phải sửa chữa tệp Outlook. Nói chung, công cụ sửa hộp thư đến sẽ không có tác dụng. Phương sách duy nhất của bạn là một bên thứ ba mạnh mẽ và đáng tin cậy hơn sửa chữa Outlook công cụ, 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 chữa 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