Hogyan lehet gyorsan létrehozni egy Outlook-szabályt több e-mail küldőjének blokkolására

Ha több kiválasztott e-mail feladóinak blokkolására szeretne szabályt létrehozni, általában először le kell írnia a feladókat, majd manuálisan létre kell hoznia egy szabályt. Eléggé zavaró. Így itt megosztunk egy sokkal gyorsabb módszert, amellyel egy kattintással megszerezhetjük.

Egyes felhasználók úgy gondolják, hogy az Outlook beépített „ant-spam” funkciója nem olyan hatékony, mint remélik. Ezért hozzászoktak ahhoz, hogy Outlook-szabályokat hozzanak létre a feladók blokkolására. A következőkben bemutatunk egy gyors módszert, amellyel szabályt hozhatunk létre több e-mail küldőjének blokkolására.

Hozzon létre gyorsan egy szabályt a több e-mail küldőjének blokkolására

1. Mert minttart, indítsa el az Outlook alkalmazást.
2. Ezután lépjen be a VBA szerkesztő ablakába az „Alt + F11” billentyűparancs segítségével.
3. Ezután az új ablakban helyezze be a következő VBA-kódot egy nem használt modulba.

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. Ezt követően a „A VBA kód futtatása az Outlookban", adja hozzá ezt a makrót a Gyorselérési eszköztárhoz vagy a szalaghoz.
5. Ezt követően a szokásos módon lépjen ki a VBA-szerkesztőből.
6. Végül hajtsa végre a következő lépéseket a próbálkozáshoz.

• Először is válassza ki azokat az e-maileket, amelyek feladóit blokkolni szeretné.
• Ezután kattintson az új makró gombra.
• A makró befejezése után lépjen a „Fájl” menübe, és kattintson a „Szabályok és figyelmeztetések kezelése” gombra az újonnan hozzáadott szabály ellenőrzéséhez, ahogy az alábbi képen látható.

Tartsa távol a rosszindulatú e-maileket

Nem számít, milyen e-mail klienst használ, gyakran meg kell kapnia az e-maileket ismeretlen feladóktól. Most az e-mailek némelyike ​​reklámspam lehet, és még rosszindulatú makrókat is tartalmazhat. Egy pillanat alatt károsíthatják az Outlook-fájlt. Így az Outlookban hatékony intézkedéseket kell tennie az ismeretlen e-mailek blokkolására. Ezen kívül, ha megengedheti magának, célszerű egy erős PST-helyreállító eszközt készíteni, mint pl. DataNumen Outlook Repair. Az tud javítás Outlook fájlt anélkül, hogy izzadna, bármilyen súlyosan is sérült.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com