Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako samodejno razširiti vse mape pri zagonu programa Outlook?

Na splošno, če razširite ali strnete mapo v podoknu za krmarjenje in nato zaprete Outlook, se bo mapa ob ponovnem zagonu programa Outlook razširila ali strmoglavila. Ampak zdaj, ali obstaja način za samodejno razširitev vseh map, ko zaženete Outlook? Ta članek bo uvedel VBA za dokončanje naloge.

Samodejno razširite vse mape pri zagonu programa Outlook z VBA

Kutools za Outlook: 100 + Nova napredna orodja za Outlook.
Office Tab: Omogoči urejanje kartic in brskanje v Officeu, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Prinesite stare menije in orodne vrstice v Office 2007, 2010, 2013, 2016 in 2019.

puščica modra desno mehurčekSamodejno razširite vse mape pri zagonu programa Outlook z VBA

Ta metoda bo uvedla VBA za samodejno razširitev vseh map v podoknu za krmarjenje, ko boste zagnali Outlook. Prosimo, uporabite to VBA na naslednji način:

1. Pritisnite druga + F11 hkrati odpreti okno Microsoft Visual Basic for Applications.

2. Razširite Projekt 1 in Microsoft Outlook objekti v podoknu projekta dvokliknite, da odprete ThisOutlookSession okno in nato prilepite pod kodo VBA.

VBA: samodejno razširite vse mape v programu Outlook

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Shranite kodo in zaprite okno Microsoft Visual Basic for Applications.

Od zdaj naprej bodo pri ponovnem zagonu programa Outlook vse mape samodejno razširjene v programu Outlook.Opombe: Ta VBA ne more odpreti zrušenih map za iskanje, ko znova zaženete Outlook.


puščica modra desno mehurčekPovezani članki



Kutools za Outlook

Več kot 100 napredne funkcije za Outlook 2010, 2013, 2016, 2019 in 365

zaslon strel kutools za napovedi majhen za banner 201812

Več funkcij | Brezplačen prenos | Samo $ 39.00 za stotine funkcij

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.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)