Note: The other languages of the website are Google-translated. Back to English

Hvordan eksporteres og udskrives en liste over alle mapper og undermapper i Outlook?

Generelt kan du trykke på Ctrl + 6 taster for at se listen over alle mapper i navigationsruden i Outlook. Du kan dog ikke udskrive listen over mapper. Denne artikel introducerer to VBA-scripts til eksport og udskrivning af listen over alle mapper og deres undermapper i Outlook.


Eksporter og udskriv listen over alle Outlook-mapper og deres undermapper i ny e-mail

Denne metode introducerer en VBA til at eksportere listen over alle mapper og deres undermapper i en bestemt e-mail-konto til en ny e-mail i Outlook, og derefter kan du nemt udskrive listen over mapper.

1. Trykke andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Eksporter listen over mapper og undermapper i en ny e-mail i Outlook

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.mailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)

Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

    For i = CurrentFolder.Folders.Count To 1 Step -1
Set oFolder = CurrentFolder.Folders(i)

sFolderPaths = oFolder.FolderPath
gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
If oSubFolder.Name <> "Deleted Items" Then
ProcessFolder oSubFolder
End If

Next

End Sub

3. Trykke F5 nøgle til at køre denne VBA.

4. I dialogboksen Vælg mappe, der vises, skal du vælge den e-mail-konto, hvis liste over mapper du vil udskrive, og klikke på OK knap. Se skærmbillede:

5. Og nu kopieres mappelisten til den angivne e-mail-konto til en ny e-mail som vist nedenstående skærmbillede. Klik venligst filet > Print for at udskrive den kopierede mappeliste.

6. Efter udskrivning skal du lukke den nye e-mail uden at gemme.


Eksporter og udskriv listen over alle Outlook-mapper, og der er undermapper i Notesblok

Denne metode introducerer en VBA til at eksportere listen over alle mapper og deres undermapper i en bestemt e-mail-konto fra Outlook til Notesblok, og derefter kan du nemt udskrive listen over Outlook-mapper i Notesblok.

1. Trykke andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Eksportér listen over alle Outlook-mapper og undermapper fra Outlook til Notesblok

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

  Set objOutlook = CreateObject("Outlook.Application")

  Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
Set Folders = F.Folders

    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
If Result = 6 Then
gCreateTree = True
Else
gCreateTree = False
End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))

LoopFolders Folders

Set F = Nothing
Set Folders = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F

For Each F In Folders
WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
CreateFolderTree = Mid(OLKfolderpath, 3)
Else
Dim i, x, OLKprefix
i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))

    For x = gBase To i
OLKprefix = OLKprefix & "-"
Next

CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Trykke F5 nøgle til at køre denne VBA. Vælg derefter den e-mail-konto, hvis mappeliste du vil eksportere og udskrive i den åbne dialogboks Vælg mappe, og klik på OK knap. Se skærmbillede:

4. Derefter kommer dialogboksen Output Folder Tree. Klik på Ja knappen eller Ingen knap, som du har brug for.

Og nu en tekstfil navngivet som Outlook-mapper oprettes og gemmes på dit skrivebord som vist nedenstående skærmbillede.

5. Dobbeltklik for at åbne den nye tekstfil, og klik derefter på filet > Print for at udskrive den eksporterede liste over Outlook-mapper.

Et klik for at vise det samlede antal varer i alle mapper i navigationsruden i Outlook

Normalt viser Outlook antallet af ulæste emner i hver mappe i navigationsruden. Men Kutools til Outlook Alle mapper viser det samlede antal varer funktion kan hjælpe dig med at vise det samlede antal varer i alle mapper med kun et klik.


alle mapper viser det samlede antal kto 9.00

Relaterede artikler


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (2)
Bedømt 5 ud af 5 · 1 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Mest fremragende tip. Tak skal du have!
Denne kommentar blev minimeret af moderatoren på webstedet
Sparede os en masse tid. Tak for de detaljerede instruktioner. Virkede som en charme! :)
Bedømt 5 ud af 5
Der er endnu ingen kommentarer her
Skriv venligst dine kommentarer på engelsk
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL