Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að auka sjálfkrafa alla möppur þegar þú byrjar Outlook?

Almennt séð, ef þú stækkar eða fellur möppu í flipann og lokar síðan Outlook, mun möppan halda áfram að stækka eða hrynja þegar Outlook endurræsir. En nú er leið til að auka alla möppur sjálfkrafa þegar þú byrjar Outlook? Þessi grein mun kynna VBA til að ljúka verkefninu.

Stækka allar möppur sjálfkrafa þegar þú byrjar Outlook með VBA

Kutools fyrir Outlook: 100 + Nýr Ítarleg Tools fyrir Outlook.
Office flipi: Virkja flipaútgáfu og vafra á skrifstofu, Rétt eins og Króm, Firefox, IE 8 / 9 / 10.
Classic Valmynd: Komdu með Old Menus og tækjastikur aftur til Office 2007, 2010, 2013, 2016 og 2019.

ör blár hægri kúlaStækka allar möppur sjálfkrafa þegar þú byrjar Outlook með VBA

Þessi aðferð mun kynna VBA til að auka sjálfkrafa alla möppur í flipanum þegar þú byrjar Outlook. Vinsamlegast notaðu þetta VBA á eftirfarandi hátt:

1. Ýttu á Alt + F11 takkana samtímis til að opna Microsoft Visual Basic for Applications gluggann.

2. Stækkaðu Project 1 og Microsoft Outlook Objects Í verkefnahnappnum, tvöfaldur smellur til að opna ThisOutlookSession glugga, og þá líma neðan VBA kóða inn í það.

VBA: Stækka allar möppur í Outlook sjálfkrafa

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. Vista kóðann og lokaðu Microsoft Visual Basic for Applications glugganum.

Héðan í frá, þegar endurræsa Outlook eru öll möppur sjálfkrafa stækkuð í Outlook.Athugaðu: Þessi VBA getur ekki opnað möppurnar sem hafa verið brotnar saman þegar endurræsa Outlook.


ör blár hægri kúlatengdar greinar



Kutools fyrir Outlook

Meira en 100 Advanced Aðgerðir fyrir Outlook 2010, 2013, 2016, 2019 og 365

skjár skot kutools fyrir horfur lítið fyrir borði 201812

Fleiri eiginleikar | Ókeypis niðurhal | Aðeins $ 39.00 fyrir hundruð virka

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