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 awtomatikament jespandu l-folders kollha meta jibdew l-Outlook?

B'mod ġenerali, jekk tespandi jew tiġbor folder fuq il-Paġni tan-Navigazzjoni u mbagħad tagħlaq l-Outlook, il-folder se jibqa 'jespandi jew ikkollassa meta terġa' tibda Outlook. Imma issa, hemm mod biex jespandu l-folders awtomatikament meta jibdew l-Outlook? Dan l-artikolu se jintroduċi VBA biex itemm il-kompitu.

Awtomatikament jespandu l-folders kollha meta jibdew l-Outlook bil-VBA

Kutools għall-Outlook: 100 + Għodod Avvanzati Ġodda għall-Outlook.
Uffiċċju Tab: Jippermettu Tabbed Editing u Browsing fl-Uffiċċju, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic: Ġib il-Menus Qadim u Toolbars Lura għall-Uffiċċju 2007, 2010, 2013, 2016 u 2019.

vleġġa bużżieqa tal-lemin bluAwtomatikament jespandu l-folders kollha meta jibdew l-Outlook bil-VBA

Dan il-metodu se jintroduċi VBA biex awtomatikament jespandi l-folders kollha fuq il-Paġni tan-Navigazzjoni meta tibda Outlook. Jekk jogħġbok applika din il-VBA kif ġej:

1. Istampa Alt + F11 keys fl-istess ħin biex tiftaħ it-tieqa Microsoft Visual Basic għal Applikazzjonijiet.

2. Expand the Proġett 1 u Microsoft Outlook Objects fil-pane tal-Proġett, ikklikkja darbtejn biex tiftaħ il-paġna Din is-Sessjoni ta 'l-Otezzjoni tieqa, u mbagħad paste taħt il-kodiċi VBA fih.

VBA: Awtomatikament jespandu l-folders kollha fl-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. Ħlief il-kodiċi u agħlaq it-tieqa Microsoft Visual Basic għall-Applikazzjonijiet.

Minn issa 'l quddiem, meta jerġgħu jibdew l-Outlook, il-folders kollha se jiġu estiżi awtomatikament fl-Outlook.Nota: Dan il-VBA ma jistax jiftaħ il-folders ta 'tiftix ikkollassati meta terġa' tibda Outlook.


vleġġa bużżieqa tal-lemin bluArtikli relatati



Kutools għall-Outlook

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

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