Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten kaikki kansiot laajennetaan automaattisesti käynnistettäessä Outlook?

Yleisesti ottaen, jos laajennat tai tiivistät kansion Navigointi-paneelissa ja suljet Outlookin, kansio jatkaa laajentumista tai romahtaa Outlookin uudelleenkäynnistyksen yhteydessä. Mutta nyt, onko tapa laajentaa kaikkia kansioita automaattisesti käynnistettäessä Outlook? Tässä artikkelissa esitellään VBA tehtävän suorittamiseksi.

Poista kaikki kansion automaattisesti, kun käynnistät Outlookin VBA: lla

Kutools for Outlook: 100 + uudet kehittyneet työkalut Outlookille.
Office-välilehti: Ota käyttöön lomakkeiden muokkaus ja selaus Office-toiminnossa, Aivan kuten Chrome, Firefox, IE 8 / 9 / 10.
Classic-valikko: Tuo vanhat valikot ja työkalupalkit takaisin Office 2007, 2010, 2013, 2016 ja 2019.

nuoli sininen oikeus kuplaPoista kaikki kansion automaattisesti, kun käynnistät Outlookin VBA: lla

Tällä menetelmällä otetaan käyttöön VBA, joka automaattisesti laajentaa kaikki kansion Navigointi-paneelissa Outlookin käynnistämisen yhteydessä. Ole hyvä ja käytä tätä VBA: ta seuraavasti:

1. Lehdistö muut + F11 avaimet samanaikaisesti Microsoft Visual Basic for Applications -ikkunan avaamiseen.

2. Laajenna Project 1 ja Microsoft Outlook -objekteja projekti-ikkunassa kaksoisnapsauttamalla sitä ThisOutlookSession ikkunaan ja liitä se sitten VBA-koodin alle.

VBA: laajenna kaikki Outlookin kaikki kansiot automaattisesti

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. Tallenna koodi ja sulje Microsoft Visual Basic for Applications -ikkuna.

Tällöin Outlookissa käynnistettäessä kaikki kansiot laajennetaan automaattisesti Outlookiin.Huomautuksia: Tämä VBA ei voi avata romahtuneita hakukansiä Outlookin uudelleenkäynnistyksen yhteydessä.


nuoli sininen oikeus kuplaAiheeseen liittyvät artikkelit



Kutools for Outlook

Enemmän kuin 100-lisätoimintoja Outlook 2010ille, 2013ille, 2016ille, 2019ille ja 365ille

näytön laukaus kutools näkymää varten pieni banner 201812

Lisää ominaisuuksia | Ilmainen lataus | Vain $ 39.00 satoja toimintoja varten

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