Az Outlook összes üres almappájának kötegelt törlése

Ha az Outlook összes üres almappáját köteggel szeretné törölni, használhatja az ebben a cikkben bemutatott módszert. Megtanítja, hogyan használhatja az Outlook VBA-t az almappák kötegenkénti törlésére.

Az Outlook e-mailek jobb rendszerezése és kezelése érdekében számos egyéni almappát kellett létrehoznia az alapértelmezett mappák alatt, legyen szó Beérkezett üzenetekről, Elküldött elemekről vagy Piszkozatok mappáról stb. Előfordulhat azonban, hogy egyes almappákat nem gyakran használ. Ezért az esetek többségében üresek, és semmilyen elem nincs bennük. Ebben az esetben érdemes lehet törölni az összes üres almappát.

Általában jobb gombbal kattintson egy ilyen almappára, majd válassza a „Mappa törlése” lehetőséget a jobb gombbal kattintva. Ennek ellenére, ha sok üres almappa van, az egyenkénti törlés meglehetősen problémás lesz. Ezért egy tippre kell vágynia, hogy tömegesen törölje az összeset. Bár az Outlook nem biztosít ilyen funkciót, a VBA-kód segítségével gyorsan megvalósíthatja azt. A következőkben a részletes lépéseket és kódokat mutatjuk be.

Kötegelt Minden üres almappa törlése

1. Először is indítsd el az Outlook programot.
2. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főablakában.
3. Ezután a „Microsoft Visual Basic for Applications” ablakban nyissa meg a nem használt modult.
4. Ezt követően másolja ki és illessze be a következő VBA-kódokat ebbe a modulba.

Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           For i = objFolder.Folders.Count To 1 Step -1
               Call DeleteEmptyFolder(objFolder.Folders(i))
           Next
        End If
    Next
 
    MsgBox ("Completed!")
End Sub

Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
    Dim n As Long
 
    If objCurrentFolder.Items.Count = 0 Then
       objCurrentFolder.Delete
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

5. Ezt követően állítsa alacsonyra az Outlook makró biztonsági szintjét.
6. Végül futtathatja ezt a makrót az „F5” gomb megnyomásával az aktuális makró ablakban.
7. Egyszerre rá fog jönni, hogy az összes üres almappa törlődik.

Sérült Outlook PST-adatok lekérése

Tekintettel arra, hogy az Outlook érzékeny a hibákra és sérülésekre, ügyeljen az Outlook PST fájl védelmére. Például rendszeres időközönként biztonsági másolatot kell készítenie a PST-adatokról. Ráadásul annak érdekében javítás Outlook a lehető leghamarabb elő kell készítenie egy jó hírű és hatékony javítóeszközt, mint pl DataNumen Outlook Repair.

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 Server korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com