Hogyan lehet automatikusan kibontani az összes mappát VBA-n keresztül az Outlook indításakor?

Sok felhasználó abban reménykedik, hogy az összes mappa automatikusan kibontható lesz az Outlook indításakor. A valóságban az Outlook ezt nem támogatja natívan. Ezért a megvalósításhoz VBA kódot kell használni. Ez a bejegyzés egy gyors útmutatót nyújt ehhez.

Lehetséges, hogy az Outlook alapértelmezett mappái alatt számos almappát hozott létre. Mivel ilyen sok mappa van, és bármikor gyorsan el szeretné érni őket, érdemes lehet az összes mappát kibontva tartani. Az első lépés az, hogy az Outlook automatikusan kibontsa a mappákat indításkor. Nyilvánvaló, hogy az Outlookban nincs ilyen beépített funkció. Ezért makrókat kell használnia. A továbbiakban megtanítjuk, hogyan érheti el ezt VBA-val. A VBA alkalmazásával kapcsolatban egy másik cikkben olvashat – „A VBA kód futtatása az Outlookban".

Az összes mappa automatikus kibontása az Outlook indításakor

1. Először nyomja meg az „Alt + F11” gombot az Outlookban a VBA-szerkesztő eléréséhez.
2. Ezután az új ablakban helyezze el a kódot a „ThisOutlookSession” projektbe.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Ezután zárja be a VBA-szerkesztőt.
4. Ezt követően megfelelően lépjen ki az Outlook alkalmazásból.
5. Később indítsa el az Outlookot. Ekkor a makró automatikusan lefut.
6. Az Outlook indítása után láthatja, hogy az összes mappa ki van bontva, ahogy az az alábbi ábrán is látható.

Tartsa az összes rosszindulatú makrót a Bay-ben

Kapott már olyan e-maileket, amelyek gyanús fájlokat tartalmaznak, vagy ismeretlen hivatkozásokat tartalmaznak? Általában az ilyen e-mailekkel való szembenézéskor fokozottan kell figyelnie. Soha ne bízzon bennük, mert vírust hordozhatnak. A mellékletek letöltése vagy a hivatkozások megnyitása után nemcsak az Outlookot, hanem a számítógépet is megtámadhatják. Ilyenkor muszáj javítás Outlook fájlt. Eléggé csomós lehet, hacsak nincs frissített Outlook biztonsági másolata, vagy nem használ egy hatékony helyreállítási 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