Birden Fazla E-posta Göndericisini Engellemek için Hızlı Bir Şekilde Outlook Kuralı Oluşturma

Birden çok seçilen e-postanın gönderenlerini engellemek için bir kural oluşturmak istiyorsanız, genellikle önce gönderenleri yazmanız ve ardından manuel olarak bir kural oluşturmanız gerekir. Oldukça zahmetlidir. Bu nedenle, burada tek bir tıklamayla elde etmek için çok daha hızlı bir yöntem paylaşacağız.

Bazı kullanıcılar, Outlook'taki yerleşik "istenmeyen posta önleme" özelliğinin umdukları kadar etkili olmadığını düşünüyor. Bu nedenle, gönderenleri engellemek için Outlook kuralları oluşturmaya alışkındırlar. Şimdi, aşağıda, birden fazla e-posta gönderenleri engellemek için bir kural oluşturmak için hızlı bir yöntem tanıtacağız.

Birden Çok E-posta Göndericisini Engellemek için Hızla Bir Kural Oluşturun

1. olaraktart, Outlook uygulamasını başlatın.
2. Ardından, “Alt + F11” kısayolu ile VBA editör penceresine girin.
3. Ardından, yeni pencerede, aşağıdaki VBA kodunu kullanılmayan bir modüle yerleştirin.

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. Bundan sonra, “ uyarıncaOutlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?", bu makroyu Hızlı Erişim Araç Çubuğuna veya şeride ekleyin.
5. Ardından, VBA düzenleyicisinden normal şekilde çıkın.
6. Son olarak, denemek için aşağıdaki adımları izleyin.

• Öncelikle, gönderenlerini engellemek istediğiniz e-postaları seçin.
• Ardından, yeni makro düğmesine tıklayın.
• Makro bittikten sonra aşağıdaki görüntüdeki gibi “Dosya” menüsüne gidip “Kuralları ve Uyarıları Yönet” butonuna tıklayarak yeni eklenen kuralı kontrol edebilirsiniz.

Kötü Amaçlı E-postaları Uzak Tutun

Hangi e-posta istemcisini kullanırsanız kullanın, sık sık bilinmeyen gönderenlerden e-postalar almanız gerekir. Most E-postaların %XNUMX'si reklam amaçlı spam olabilir ve hatta kötü amaçlı makrolar içerebilir. Outlook dosyanıza bir anda zarar verebilirler. Bu nedenle, Outlook'ta bilinmeyen e-postaları engellemek için etkili önlemler almalısınız. Ek olarak, karşılayabiliyorsanız, güçlü bir PST kurtarma aracı hazırlamanız önerilir. DataNumen Outlook Repair. Bu olabilir Outlook'u onar ne kadar ciddi hasar görmüş olursa olsun ter dökmeden dosyalayın.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com