Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako automatski proširiti sve mape pri pokretanju programa Outlook?

Općenito govoreći, ako proširite ili sažete mapu na navigacijskoj ploči, a zatim zatvorite Outlook, mapa će ostati proširena ili će se urušiti kada ponovo pokrenete Outlook. Ali sada, postoji li način da automatski proširite sve mape pri pokretanju programa Outlook? Ovaj članak će uvesti VBA da dovrši zadatak.

Automatski proširite sve mape prilikom pokretanja programa Outlook s VBA

Kutools za Outlook: 100 + Novi napredni alati za Outlook.
Kartica sustava Office: Omogućavanje uređivanja i pregledavanja karata u uredu, Baš kao i Chrome, Firefox, IE 8 / 9 / 10.
Klasični izbornik: Vraćanje starih izbornika i alatnih traka na Office 2007, 2010, 2013, 2016 i 2019.

strelica plava desna mjehurićAutomatski proširite sve mape prilikom pokretanja programa Outlook s VBA

Ova metoda uvodi VBA da automatski pokrene sve mape na navigacijskoj ploči kada pokrenete Outlook. Molimo Vas da primijenite ovu VBA na sljedeći način:

1. tisak drugo + F11 tipke istovremeno za otvaranje prozora programa Microsoft Visual Basic for Applications.

2. Proširite Projekt 1 i Objekti iz programa Microsoft Outlook u oknu Projekta dvaput kliknite da biste otvorili ThisOutlookSession prozor, a zatim zalijepite ispod VBA koda.

VBA: Automatski proširite sve mape u 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. Spremite kôd i zatvorite prozor programa Microsoft Visual Basic for Applications.

Od sada, kada se ponovno pokrene Outlook, sve se mape automatski proširuju u programu Outlook.bilješke: Ova VBA ne može otvoriti srušene mape pretraživanja kada ponovo pokrenete Outlook.


strelica plava desna mjehurićVezani članci



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