Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas gach fillteán a leathnú go huathoibríoch nuair a thosaíonn Outlook?

Go ginearálta, má leathnóidh tú nó folaíonn tú fillteán ar an bPána Nascleanúna agus ansin an Outlook a dhúnadh, leanfaidh an fillteán ag leathnú nó ag titim nuair a atosóidh Outlook ar ais. Ach anois, tá bealach ann gach fillteán a leathnú go huathoibríoch nuair a thosaíonn Outlook? Tabharfaidh an t-alt seo VBA chun an tasc a chomhlánú.

Leathnaigh gach fillteán go huathoibríoch nuair a thosaíonn Outlook le VBA

Kutools le haghaidh Outlook: 100 + Nua Uirlisí Casta do Outlook.
Tab Office: Cumasaigh Eagarthóireacht agus Browsing Tabbed in Oifig, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic: Tabhair Seanchláir agus Barraí Uirlisí Ar ais chuig Oifig 2007, 2010, 2013, 2016 agus 2019.

mboilgeog ceart gorm arrowLeathnaigh gach fillteán go huathoibríoch nuair a thosaíonn Outlook le VBA

Tabharfaidh an modh seo VBA chun gach fillteán a leathnú go huathoibríoch ar an bPána Nascleanúna nuair a thosaíonn tú Outlook. Cuir isteach an VBA seo mar a leanas:

1. Brúigh Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic d'Iarratais a oscailt.

2. Leathnaigh an tionscadal 1 agus Réadaigh Microsoft Outlook i mbainc an Tionscadail, cliceáil dúbailte chun an ThisOutlookSession fuinneog, agus ansin an cód VBA a ghreamú isteach ann.

VBA: Gach fillteán a leathnú go huathoibríoch i 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. Sábháil an cód agus dún an fhuinneog Microsoft Visual Basic d'Iarratais.

Ón am seo, nuair a atosóidh Outlook, déanfar gach fillteán a leathnú go huathoibríoch i Outlook.nótaí: Ní féidir leis an VBA na fillteáin cuardaigh titim a oscailt nuair a atosú Outlook.


mboilgeog ceart gorm arrowAirteagail gaolmhara



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

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