Cookies tgħinna jagħti servizzi tagħna. Bl-użu tas-servizzi tagħna, inti taqbel li l-użu tagħna ta 'cookies.
Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tiftaħ is-subfolders kollha mill-Outlook?

Jekk toħloq subfolders multipli taħt folders ta 'Outlook tiegħek, kif tista' tiftaħ jew tespandi dawn is-subfolders immedjatament? Dan l-artikolu, ser nintroduċi kodiċi VBA utli għalik biex issolvi dan ix-xogħol.

Iftaħ jew jespandi l-subfolders kollha minn Outlook bil-kodiċi VBA


Iftaħ jew jespandi l-subfolders kollha minn Outlook bil-kodiċi VBA

Jekk jogħġbok applika l-kodiċi VBA li ġej biex tespandi l-subfolders kollha mill-kontijiet ta 'l-Outlook:

1. Żomm il-buttuna ALT + F11 ċwievet biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

2. Ikklikkja Daħħal > Moduli, u agħmel il-makro li ġej fit-Tieqa tal-Modulu.

Kodiċi VBA: Iftaħ is-subfolders kollha minn Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Bħala Folder Dim xAllFolders Kif Folders Dim xFolder Kif Folder Fuq Error Resume Sett li jmiss xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Applikazzjoni. Session.Folders għal kull xFolder Fil xAllFolders Sejħa Proċessar ta 'Folders (xFolder) Sekond Set Applikazzjoni. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder As Folder) Dim xSubfolder Kif Folder Fuq Error Resume Next Jekk CurFolder.DefaultItemType <> olMailItem Imbagħad Ħruġ Sub Set Application.ActiveExplorer.CurrentFolder = DoForms CurFolder Jekk CurFolder.Folders.Count = 0 Imbagħad Ħruġ Sub Għal Kull X Subfolder Fil CurFolder.Folders Sejħa Proċess Folders (xSubfolder) jmiss Tmiem Sub

3. Imbagħad agħfas F5 Ċavetta biex imexxu dan il-kodiċi, u s-subfolders kollha fil-kontijiet kollha tal-Outlook tiegħek ġew estiżi, ara screenshot:

doc jespandi l-sub-folders 1



Kutools għall-Outlook

Aktar minn Funzjonijiet Avvanzati ta '100 għal Outlook 2010, 2013, 2016, 2019 u 365

kutools ta &#39;screen shot għall-prospetti ċkejkna għall-bandiera 201812

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.