Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola automatikoki zabaldu karpetak Outlook-ekin hastean?

Oro har, nabigazio-panelean karpeta bat zabaltzen edo tolesten baduzu eta Outlook-a ixten baduzu, karpeta Outlook-en berrabiaraztean zabaltzen edo leundu egingo da. Baina orain, badago modu bat karpeta guztiak automatikoki zabaltzeko Outlook-en abiaraztean? Artikulu honek VBA bat aurkeztuko du zeregin osatzeko.

Automatikoki karpeta guztiak zabaltzen ditu VBA-rekin Outlook-en hasita

Kutools Outlook-era: 100 + Tresna aurreratu berriak Outlook-era.
Bulegoko fitxa: Gaitu Tabbed edizioa eta nabigazioa Office-n, Like Like Chrome, Firefox, IE 8 / 9 / 10.
Menu klasikoa: Ekarri menuak zaharrak eta barra-barra Office 2007, 2010, 2013, 2016 eta 2019.

arrow urdina eskuineko burbuilaAutomatikoki karpeta guztiak zabaltzen ditu VBA-rekin Outlook-en hasita

Metodo honek VBA bat agertuko du Outlook-ekin hasten duzunean nabigazio-panela automatikoki zabaltzeko. Mesedez, aplikatu VBA hau honela:

1. Prentsa Alt + F11 teklak aldi berean Microsoft Visual Basic aplikazioak irekitzeko leihoan.

2. Zabaldu Project 1 eta Microsoft Outlook objektuak Proiektu-panelean, egin klik bikoitza irekitzeko ThisOutlookSession leihoan, eta ondoren itsatsi VBA kodea azpian.

VBA: karpeta guztiak Outlook-en automatikoki zabaltzea

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. Gorde kodea eta itxi Microsoft Visual Basic aplikazioak leihoan.

Ordudanik, Outlook-en berrabiarazten denean, karpeta guztiak automatikoki zabalduko dira Outlook-en.Ohar: VBA honek Outlook-en berrabiarazi ezin dituen bilaketa-karpeten kolapsoa irekitzen du.


arrow urdina eskuineko burbuilaGaiarekin lotutako artikuluak



Kutools Outlook-era

Outlook 100, 2010, 2013, 2016 eta 2019 Outlook 365 funtzio aurreratuak baino gehiago

pantailako kutools pantailako xNUMX banner txikiari begira

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat

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. :)