Ako rýchlo spustiť konkrétne pravidlo vo všetkých poštových priečinkoch pomocou programu Outlook VBA

Predvolene môžete pravidlo spustiť iba v jednom priečinku. V tomto článku vás naučíme, ako využiť časť kódu VBA na spustenie konkrétneho pravidla vo všetkých priečinkoch pošty.

Program Outlook umožňuje používateľom manuálne spustenie pravidla. Stačí otvoriť dialógové okno „Pravidlá a výstrahy“ a kliknúť na tlačidlo „Spustiť pravidlá teraz“. V nasledujúcom dialógovom okne vyberte konkrétne pravidlo a vyberte priečinok, v ktorom chcete toto pravidlo spustiť. Ak však chcete rýchlo spustiť pravidlo vo všetkých priečinkoch pošty, môžete použiť nasledujúci kód VBA.

Rýchlo spustite konkrétne pravidlo vo všetkých priečinkoch pošty

1. V prvom rade starváš program Outlook.
2. Potom v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
3. Ďalej vo vznikajúcom okne „Microsoft Visual Basic for Applications“ by ste mali otvoriť nepoužívaný modul.
4. Následne skopírujte nižšie uvedený kód VBA do tohto okna modulu. Niektoré riadky by ste navyše mali zmeniť na základe vlastného prípadu, napríklad podľa pravidla.

Sub RunSpecificRule_AllMailFolders()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

    MsgBox "Complete!", vbExclamation + vbOKOnly, "Run Rule "
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objRules As Outlook.Rules
    Dim objRule As Outlook.Rule
    Dim objSubfolder As Outlook.Folder

    Set objRules = Outlook.Application.Session.DefaultStore.GetRules
    'Change the rule name as per your actual case
    Set objRule = objRules.Item("Move Mails to Temp")
 
    On Error Resume Next
    'Only work on non-empty Mail folder
    If objCurrentFolder.Items.count > 0 And objCurrentFolder.DefaultItemType = olMailItem Then
       With objRule
            .Enabled = True
            .Execute ShowProgress:=True, Folder:=objCurrentFolder, IncludeSubfolders:=True
       End With
    End If
 
    'Process subfolders recursively
    If objCurrentFolder.folders.count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Potom by ste mali skontrolovať nastavenia makra programu Outlook a skontrolovať, či je makro povolené.
6. Nakoniec to môžete vyskúšať.

• Stačí kliknúť na podprogram „RunSpecificRule_AllMailFolders“.
• Potom stlačte tento kláves a stlačte tento kláves.
• Ďalej sa makro spustí okamžite.
• Po dokončení dostanete správu, napríklad nasledujúci obrázok obrazovky. Odkazuje na pravidlo, ktoré je hotové.

Dajte si pozor na škodlivé makrá

Ako všetci vieme, škodlivé e-maily sú čoraz rozšírenejšie. Takéto e-maily sú často vybavené škodlivými makrami. Ak teda nastavíte úroveň zabezpečenia makra programu Outlook na nízku, musíte si dávať pozor na skryté vírusy a malware. Okrem toho je rozumné zohnať mocný nástroj na opravu PST, ako je napr DataNumen Outlook Repair, Je schopný opraviť PST ukladajte a extrahujte maximum údajov bez toho, aby ste sa zapotili.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S