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
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Be the first to comment.