Kuinka saada nopeasti tietyn Outlookin kansion alikansioiden kokonaismäärä

Ehkä olet luonut suuren määrän alikansioita tietyn kansion, kuten Inboxin, alle Outlookissasi. Tässä tapauksessa, jos haluat laskea alikansiot, sinun täytyy olla haluton laskemaan manuaalisesti. Täällä jaamme sinulle paljon älykkäämmän tavan.

Monet käyttäjät ovat tottuneet luomaan erilaisia ​​kansioita ja alikansioita, jotta ne voivat luokitella ja arkistoida paremmin Outlookissa. Myöhemmin he saattavat kuitenkin ajatella, että liian monien kansioiden hallinta on hieman vaikeaa. Tässä tapauksessa he saattavat haluta laskea, kuinka monta alikansiota tietyn kansion alla on. Epäilemättä käsin laskeminen on typerää ja tylsää. Siksi seuraavassa näytämme paljon älykkäämpiä keinoja.

Hanki tietyn kansion alikansioiden kokonaismäärä

1. Heti alussa start Outlook-ohjelmasi.
2. Sitten Outlook-ikkunassa voit painaa "Alt + F11" -näppäinpainikkeita päästäksesi VBA-editoriin.
3. Seuraavaksi sinun on avattava ponnahdusikkunassa moduuli, joka ei ole käytössä.
4. Kopioi ja liitä seuraava VBA-koodi tähän moduuliin.

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. Tämän jälkeen voit poistua nykyisestä ikkunasta.
6. Siirry myöhemmin kohtaan "Tiedosto" > "Asetukset" > "Pikatyökalupalkki". Siellä voit lisätä uuden makron pikatyökalupalkkiin.
7. Lopuksi voit kokeilla tätä makroa.

• Valitse ensin kansio, jonka alikansiot haluat laskea.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Välittömästi Outlook suorittaa tämän makron.
• Kun makro on valmis, saat seuraavan kuvan kaltaisen viestin:

Temppuja Outlookin korruption selvittämiseen

Outlook on erittäin alttiina monille tekijöille, kuten viruksille, ohjelmisto- tai laitteisto-ongelmille, sähkökatkoille ja niin edelleen. Kukaan ei voi taata, että he pystyvät pitämään Outlook-tiedostonsa kaukana korruptiosta. Siksi on välttämätöntä hallita joitain temppuja vaurioiden selvittämiseksi. Ensinnäkin sinun on tehtävä säännöllinen PST-varmuuskopio. Lisäksi sinun tulee osata hyödyntää scanpst, sisäänrakennettu korjaustyökalu. Viimeisenä, mutta ei vähäisimpänä, sinun tulisi valmistaa kestävämpi ulkoinen työkalu, kuten DataNumen Outlook repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com