Cách tạo nhanh quy tắc Outlook để chặn người gửi nhiều email

Nếu bạn muốn tạo quy tắc để chặn người gửi của nhiều email đã chọn, thông thường, trước tiên bạn phải viết tên người gửi rồi tạo quy tắc theo cách thủ công. Nó khá rắc rối. Vì vậy, ở đây chúng tôi sẽ chia sẻ một phương pháp nhanh hơn nhiều để tải nó qua một cú nhấp chuột.

Một số người dùng cho rằng tính năng “chống thư rác” có sẵn trong Outlook không hiệu quả như họ mong đợi. Do đó, họ đã quen với việc tạo quy tắc Outlook để chặn người gửi. Bây giờ, trong phần tiếp theo, chúng tôi sẽ giới thiệu một phương pháp nhanh chóng để tạo quy tắc chặn người gửi nhiều email.

Nhanh chóng tạo quy tắc để chặn người gửi nhiều email

1. Đối với nhưtart, khởi chạy ứng dụng Outlook.
2. Sau đó, vào cửa sổ soạn thảo VBA bằng phím tắt “Alt + F11”.
3. Tiếp theo, trong cửa sổ mới, đặt mã VBA sau vào một mô-đun không sử dụng.

Sub CreateRuleForBlockingMultipleSenders()
    Dim objRules As Outlook.Rules
    Dim objRule As Outlook.Rule
    Dim objMoveRuleAction As Outlook.MoveOrCopyRuleAction
    Dim objFromCondition As Outlook.ToOrFromRuleCondition
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objJunkFolder As Outlook.Folder
 
    Set objRules = Application.Session.DefaultStore.GetRules()
    'Create a rule
    Set objRule = objRules.Create("Block Senders", olRuleReceive)
    Set objFromCondition = objRule.Conditions.From
 
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    'Get Junk Email folder
    Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
 
           Set objMail = objSelection.Item(i)
 
           'Add the email senders to rule condition
           With objFromCondition
                .Enabled = True
                .Recipients.Add objMail.SenderEmailAddress
                .Recipients.ResolveAll
           End With
 
           'Move the emails from blocked senders to Junk Email folder
           Set objMoveRuleAction = objRule.Actions.MoveToFolder
           With objMoveRuleAction
                .Enabled = True
                .Folder = objJunkFolder
           End With
         End If
    Next
 
    objRules.Save
End Sub

4. Sau đó, theo “Cách chạy mã VBA trong Outlook của bạn“, hãy thêm macro này vào Thanh công cụ Truy nhập Nhanh hoặc ruy-băng.
5. Sau đó, thoát khỏi trình soạn thảo VBA bình thường.
6. Cuối cùng, hãy thực hiện các bước sau để thử.

• Trước hết, hãy chọn những email có người gửi mà bạn muốn chặn.
• Sau đó, nhấp vào nút macro mới.
• Sau khi macro kết thúc, bạn có thể chuyển đến menu “Tệp” và nhấp vào nút “Quản lý quy tắc và cảnh báo” để kiểm tra quy tắc mới được thêm vào, như trong hình bên dưới.

Giữ email độc hại ở vịnh

Bất kể bạn sử dụng ứng dụng email nào, bạn phải thường xuyên nhận được email từ những người gửi không xác định. most trong số các email có thể là thư rác quảng cáo và thậm chí chứa các macro độc hại. Chúng có thể làm hỏng tệp Outlook của bạn trong nháy mắt. Do đó, trong Outlook, bạn nên thực hiện các biện pháp hiệu quả để chặn các email không xác định. Ngoài ra, nếu bạn có đủ khả năng, nên chuẩn bị một công cụ khôi phục PST mạnh mẽ, chẳng hạn như DataNumen Outlook Repair. Nó có thể sửa chữa triển vọng giũa mà không bị đổ mồ hôi cho dù nó bị hư hỏng nghiêm trọng đến mức nào.

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 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