Outlook бағдарламасын іске қосқан кезде VBA арқылы барлық қалталарды автоматты түрде қалай кеңейтуге болады

Бірнеше пайдаланушы Outlook бағдарламасын іске қосқан кезде барлық қалталардың автоматты түрде кеңейтілуін үміттенеді. Шын мәнінде, Outlook оны қолдамайды. Сондықтан, оны жүзеге асыру үшін VBA кодын пайдалану керек. Бұл жазба сізге қысқаша нұсқаулық береді.

Outlook бағдарламасындағы әдепкі қалталардың астында көптеген ішкі қалталар жасаған болуыңыз мүмкін. Көптеген қалталардың болуына қарамастан, оларға кез келген уақытта жылдам қол жеткізу үшін барлық қалталарды үнемі кеңейтіп отыруыңыз керек. Бірінші қадам - ​​Outlook бағдарламасын іске қосқан кезде қалталарды автоматты түрде кеңейтуге мүмкіндік беру. Әрине, Outlook бағдарламасында мұндай жергілікті функция жоқ. Сондықтан макростарды пайдалану керек. Бұдан әрі біз сізге VBA арқылы мұны қалай істеу керектігін үйретеміз. VBA бағдарламасын қалай қолдану керектігі туралы басқа мақаланы қараңыз - «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.

Outlook іске қосылған кезде барлық қалталарды автоматты түрде кеңейту

1. Бастау үшін VBA редакторына кіру үшін Outlook бағдарламасында «Alt + F11» пернелерін басыңыз.
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 жемқорлық және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com