Outlook-eko azpikarpeta guztiak nola ireki?

Azpi karpetak zure Outlook karpetetan azaltzen badituzu, nola ireki edo zabaldu ditzakezu azpidirektorio horietako guztiak berehala? Artikulu hau VBA kode erabilgarri bat aurkeztuko dut zuretzat lan hau konpontzeko.

Ireki edo zabaldu den azpikarpeta guztiak Outlook-tik VBA kodearekin

Ireki edo zabaldu den azpikarpeta guztiak Outlook-tik VBA kodearekin

Mesedez, aplikatu VBA kode hau Outlook kontu guztietatik azpikarpetako guztiak zabaltzeko:

1. Eutsi behera ALT + F11 teklak irekitzeko Microsoft Visual Basic aplikazioak leihoa.

2. Egin klik Txertatu > Moduluak, eta ondorengo makroa itsats ezazu Moduluaren leihoan.

VBA kodea: Ireki azpikarpeta guztiak Outlook-etik:

Sub ExpandAllMailFolders () Dim xCurrentFolder Karpeta gisa Dim xAllFolders Karpetak bezala Dim xFolder Karpeta gisa On Errorea Resume Next Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Ezarri xAllFolders = Aplikazioa. Session.Folders xFolder bakoitzeko xAllFolders In Call Process Folders (xFolder) Hurrengo Ezarri aplikazioa. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder Karpeta gisa) Dim xSubfolder Errorea Aktibatzen duen Karpeta gisa Berrekin CurFolder.DefaultItemType ondoren <> olMailItem gero Irten Sub konfigurazioa bada Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents bada CurFolder.Folders.Count = 0 Ondoren Exit Sub For Each xSubfolder in CurFolder.Folders Call Process Mailbox (xSubfolder) Next End Sub

3. Ondoren, sakatu F5 kode hau exekutatzeko gakoa, eta zure Outlook kontu guztien azpikarpetak guztiak zabaldu dira, ikusi pantaila-argazkia:

Kutools Outlook-era

Outlook 100, 2010, 2013, 2016 eta 2019 Outlook 365 funtzio aurreratuak baino gehiago

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat