Az összes mappa automatikus kibontása VBA-n keresztül, ha Starting az Outlook

Több felhasználó azt reméli, hogy az összes mappa automatikusan kibővíthető, amikor elindítják Outlookjukat. A valóságban az Outlook natívan nem támogatja ezt. Így ennek megvalósításához VBA kódot kell használnia. Ez a post gyors útmutatót ad.

Lehet, hogy sok almappát hozott létre az Outlook alapértelmezett mappái alatt. A sok mappa miatt, hogy bármikor gyorsan elérhesse őket, érdemes lehet az összes mappát folyamatosan kibontva tartani. Az első lépés az, hogy az Outlook automatikusan kibontsa az s mappáittarkos. Nyilvánvaló, hogy az Outlookban nincs ilyen natív funkció. Ezért makrókat kell használni. A továbbiakban megtanítjuk Önnek, hogy ezt VBA-val érje el. A VBA alkalmazásával kapcsolatban egy másik cikkre hivatkozhat - "A VBA kód futtatása az Outlookban".

Az összes mappa automatikus kibontása, ha Starting Outlook

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, start az Outlook. Ekkor a makró automatikusan elindul.
6. Miután az Outlook starts fel, láthatja, hogy az összes mappa ki lett bontva, ahogy 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