Si të ekzekutoni shpejt një rregull specifik në të gjitha dosjet e postës me Outlook VBA

Si parazgjedhje, mund të ekzekutoni një rregull vetëm në një dosje në të njëjtën kohë. Në këtë artikull, ne do t'ju mësojmë se si të përdorni një pjesë të kodit VBA për të ekzekutuar një rregull specifik në të gjitha dosjet e postës.

Outlook i lejon përdoruesit të ekzekutojnë rregullin manualisht. Thjesht mund të hyni në kutinë e dialogut "Rregullat dhe sinjalizimet" dhe shtypni butonin "Run Rules Now". Në kutinë e dialogut pasues, zgjidhni një rregull specifik dhe zgjidhni një dosje në të cilën dëshironi të ekzekutoni këtë rregull. Por, nëse dëshironi të ekzekutoni shpejt një rregull në të gjitha dosjet e postës, mund të përdorni kodin e mëposhtëm VBA.

Drejtoni shpejt një rregull specifik në të gjitha dosjet e postës

1. Në radhë të parë, starnë programin tuaj Outlook.
2. Pastaj në dritaren kryesore të Outlook, shtypni butonat "Alt + F11".
3. Më pas në dritaren e shfaqur "Microsoft Visual Basic për Aplikacione", duhet të hapni një modul që nuk përdoret.
4. Më pas, kopjoni kodin VBA më poshtë në këtë dritare të modulit. Plus, duhet të ndryshoni disa rreshta bazuar në rastin tuaj, siç është emri i rregullit.

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. Pas kësaj, duhet të kontrolloni cilësimet tuaja makro të Outlook, duke u siguruar që makroja është e lejuar.
6. Më në fund mund të provoni.

• Thjesht klikoni në nënprogramin "RunSpecificRule_AllMailFolders".
• Më pas shtypni butonin e tastit F5 për të aktivizuar këtë kod.
• Më pas makro do të funksionojë menjëherë.
• Pasi të përfundojë, do të merrni një mesazh, si pamja e mëposhtme e ekranit. Ajo i referohet rregullit ka përfunduar.

Kini kujdes për Macrot Dashakeqe

Siç e dimë të gjithë, emailet me qëllim të keq janë bërë gjithnjë e më të shfrenuar. Email të tillë shpesh mbartin me makro me qëllim të keq. Kështu, nëse e vendosni nivelin tuaj të sigurisë makro të Outlook në të ulët, duhet të keni kujdes nga viruset dhe malware të fshehura. Për më tepër, është e kujdesshme të merrni në dorë një mjet të fuqishëm të rregullimit të PST, si p.sh DataNumen Outlook Repair. Është në gjendje të riparim PST skedari dhe nxjerr të dhënat maksimale për ju pa u lodhur.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com