Kolačići nam pomoći isporučiti naše usluge. Korištenjem naših usluga, pristajete na naše korištenje kolačića.
Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijaviti se
x
or
x
x
Registrirajte se
x

or

Kako otvoriti sve podmape iz programa Outlook?

Ako stvorite više podmapa unutar mapa programa Outlook, kako biste odmah otvorili ili proširili sve ove podmape? Ovaj članak, predstavit ću vam korisni VBA kod za rješavanje ovog posla.

Otvorite ili proširite sve podmape iz programa Outlook s VBA kodom


Otvorite ili proširite sve podmape iz programa Outlook s VBA kodom

Molimo Vas da primijenite sljedeći VBA kod za proširenje svih podmapa iz svih računa programa Outlook:

1, Držite pritisnuto ALT + F11 tipke za otvaranje Microsoft Visual Basic for Applications prozor.

2, Klik umetak > Moduli, i zalijepite sljedeću makronaredbu u prozor modula.

VBA kod: Otvorite sve podmape iz programa Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Kao mapa Dim xAllFolders kao mape Dim xFolder kao mapa na pogrešku Nastavi Sljedeći set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Postavite xAllFolders = Application.Session.Folders za svaki xFolder u xAllFolders Call ProcessFolders (xFolder) Sljedeća Set Application. ActiveExplorer.CurrentFolder = xCurrentFolder Kraj Sub Sub ProcessFolders (ByVal CurFolder kao mapa) Dim xSubfolder kao mapa na pogrešku Nastavi Sljedeća Ako CurFolder.DefaultItemType <> olMailItem Zatim Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Ako CurFolder.Folders.Count = 0 Zatim Exit Sub za svaki xSubfolder u CurFolder.Folders Call ProcessFolders (xSubfolder) Sljedeći kraj Sub

3, Zatim pritisnite F5 ključ za pokretanje ovog koda i proširene su sve podmape na svim računima vašeg programa Outlook, pogledajte snimak zaslona:

doc proširiti podmape 1



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.