Как автоматично да разгънете всички папки чрез VBA при стартиране на Outlook

Много потребители се надяват, че всички папки могат да се разгъват автоматично, когато стартират Outlook. В действителност Outlook не го поддържа директно. Следователно, за да го реализирате, трябва да използвате VBA код. Тази публикация ще ви даде кратко ръководство.

Може би сте създали много подпапки под папките по подразбиране в Outlook. С толкова много папки, за да имате бърз достъп до тях по всяко време, може да искате да държите всички папки разгънати през цялото време. Първата стъпка трябва да бъде да накарате Outlook автоматично да разширява папките при стартиране. Очевидно няма такава вградена функция в Outlook. Следователно, трябва да използвате макроси. По-долу ще ви научим как да го постигнете с VBA. Що се отнася до това как да прилагате VBA, можете да се обърнете към друга статия – „Как да стартирате VBA код във вашия Outlook".

Автоматично разширяване на всички папки при стартиране на Outlook

1. Като начало натиснете „Alt + F11“ във вашия Outlook за достъп до редактора на VBA.
2. След това в новия прозорец поставете кода в проекта “ThisOutlookSession”.

'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. След това затворете редактора на VBA.
4. Впоследствие излезте правилно от приложението Outlook.
5. По-късно стартирайте Outlook. В този момент макросът ще се изпълни автоматично.
6. След като Outlook се стартира, можете да видите, че всички папки са разгънати, както е показано на фигурата по-долу.

Запазете всички злонамерени макроси в залива

Получавали ли сте някога имейлите, които са прикачени със съмнителни файлове или са вградени с неизвестни връзки? Обикновено, когато се сблъсквате с такива имейли, трябва да повишите бдителността си. Никога не трябва лесно да им се доверявате, че те могат да носят вируси. След като изтеглите прикачените файлове или отворите връзките, не само Outlook, но и компютърът може да бъде атакуван. По това време трябва ремонт на Outlook файл. Може да е доста възел, освен ако нямате актуализиран архив на Outlook или не използвате мощен инструмент за възстановяване, като например DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com