Outlook-ni ishga tushirganda VBA orqali barcha papkalarni avtomatik ravishda qanday kengaytirish mumkin

Bir nechta foydalanuvchilar Outlook dasturini ishga tushirganda barcha papkalar avtomatik ravishda kengaytirilishiga umid qilishadi. Aslida, Outlook uni asl qo'llab-quvvatlamaydi. Shuning uchun, buni amalga oshirish uchun siz VBA kodidan foydalanishingiz kerak. Ushbu post sizga tezkor qo'llanma beradi.

Outlook-da standart papkalar ostida ko'plab ichki papkalar yaratgan bo'lishingiz mumkin. Juda ko'p papkalar mavjudligi sababli, ularga istalgan vaqtda tezda kirish uchun barcha papkalarni doimo kengaytirilgan holda saqlashni xohlashingiz mumkin. Birinchi qadam Outlook-ni ishga tushirishda papkalarni avtomatik ravishda kengaytirishga majburlash bo'lishi kerak. Shubhasiz, Outlook-da bunday mahalliy funksiya yo'q. Shuning uchun siz makroslardan foydalanishingiz kerak. Keyinchalik, biz sizga VBA yordamida buni qanday amalga oshirishni o'rgatamiz. VBA-ni qanday qo'llash haqida boshqa maqolaga murojaat qilishingiz mumkin - "Outlook-da VBA kodini qanday ishlatish kerak".

Outlookni ishga tushirganda barcha papkalarni avtomatik ravishda kengaytirish

1. Boshlash uchun Outlook-da VBA muharririga kirish uchun “Alt + F11” tugmalarini bosing.
2. Keyin, yangi oynada kodni "ThisOutlookSession" loyihasiga qo'ying.

'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. Shundan so'ng, VBA muharririni yoping.
4. Keyinchalik, Outlook ilovasidan to'g'ri chiqing.
5. Keyinroq, Outlook-ni ishga tushiring. Bu vaqtda makro avtomatik ravishda ishga tushadi.
6. Outlook ishga tushirilgandan so'ng, quyidagi rasmda ko'rsatilgandek, barcha papkalar kengaytirilganligini ko'rishingiz mumkin.

Barcha zararli makroslarni ko'rfazda saqlang

Siz hech qachon shubhali fayllar yoki noma'lum havolalar bilan biriktirilgan elektron pochta xabarlarini olganmisiz? Odatda, bunday elektron pochta xabarlariga duch kelganingizda, hushyorlikni oshirishingiz kerak. Siz ularga hech qachon ishonmasligingiz kerak, chunki ular viruslarni olib yurishi mumkin. Qo'shimchalarni yuklab olganingizdan yoki havolalarni ochganingizdan so'ng, nafaqat Outlook, balki kompyuter ham hujumga uchrashi mumkin. O'sha paytda, kerak Outlook-ni ta'mirlash fayl. Agar sizda yangilangan Outlook zaxira nusxasi bo'lmasa yoki kuchli tiklash vositasidan foydalanmasangiz, bu juda tugun bo'lishi mumkin, masalan, DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server korruptsiya va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com