Cara Cepat Membuat Aturan Outlook untuk Memblokir Pengirim Banyak Email

Jika Anda ingin membuat aturan untuk memblokir pengirim beberapa email yang dipilih, biasanya, Anda harus mencatat pengirimnya terlebih dahulu lalu membuat aturan secara manual. Ini cukup merepotkan. Jadi, di sini kami akan membagikan metode yang jauh lebih cepat untuk mendapatkannya melalui satu klik.

Beberapa pengguna berpikir fitur "ant-spam" di Outlook tidak seefektif yang mereka harapkan. Oleh karena itu, mereka terbiasa membuat aturan Outlook untuk memblokir pengirim. Sekarang, berikut ini, kami akan memperkenalkan metode cepat untuk membuat aturan untuk memblokir pengirim beberapa email.

Buat Aturan dengan Cepat untuk Memblokir Pengirim Banyak Email

1. Untuk sebagaitart, luncurkan aplikasi Outlook.
2. Kemudian, masuk ke jendela editor VBA melalui shortcut “Alt + F11”.
3. Selanjutnya, di jendela baru, masukkan kode VBA berikut ke dalam modul yang tidak digunakan.

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. Setelah itu, sesuai dengan "Cara Menjalankan Kode VBA di Outlook Anda“, Tambahkan makro ini ke pita atau Bilah Alat Akses Cepat.
5. Selanjutnya, keluar dari editor VBA secara normal.
6. Terakhir, lakukan langkah-langkah berikut untuk mencobanya.

• Pertama-tama, pilih email yang pengirimnya ingin Anda blokir.
• Kemudian, klik tombol makro baru.
• Setelah makro selesai, Anda dapat pergi ke menu "File" dan klik tombol "Kelola Aturan dan Peringatan" untuk memeriksa aturan yang baru ditambahkan, seperti yang ditunjukkan pada gambar di bawah ini.

Jauhkan Email Berbahaya di Bay

Tidak peduli klien email apa yang Anda gunakan, Anda harus sering menerima email dari pengirim yang tidak dikenal. Most dari email tersebut mungkin merupakan spam iklan dan bahkan berisi makro berbahaya. Mereka dapat merusak file Outlook Anda dalam sekejap. Jadi, di Outlook, Anda harus mengambil tindakan efektif untuk memblokir email yang tidak dikenal. Selain itu, jika Anda mampu membelinya, disarankan untuk menyiapkan alat pemulihan PST yang kuat, seperti DataNumen Outlook Repair. Hal ini dapat perbaiki Outlook file tanpa mengeluarkan keringat tidak peduli seberapa parah kerusakannya.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com