Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Så här exporterar och skriver du ut lista över alla mappar och undermappar i Outlook?

Generellt sett kan du trycka på ctrl + 6 tangenter för att visa listan över alla mappar i navigeringsfönstret i Outlook. Du kan dock inte skriva ut listan över mappar. Denna artikel kommer att introducera två VBA-skript för att exportera och skriva ut listan över alla mappar och deras undermappar i Outlook.

Ett klick för att visa totalt antal objekt i alla mappar i navigeringsrutan i Outlook

Normalt visar Outlook antalet olästa objekt i varje mapp i navigeringsfönstret. Men, Kutools för Outlook Alla mappar Visa totalt antal poster funktionen kan hjälpa dig att visa det totala antalet poster i alla mappar med bara ett klick. Klicka för 60-dagars gratis provversion utan begränsning!
alla mappar visar totalt antal kto 9.00

Kutools för Outlook: 100 + Nya avancerade verktyg för Outlook.
Fliken Office: Aktivera flikredigering och bläddring på kontoret, Precis som Chrome, Firefox, IE 8 / 9 / 10.
Klassisk meny: Ta med gamla menyer och verktygsfält tillbaka till Office 2007, 2010, 2013, 2016 och 2019.

pilblå höger bubbla Exportera och skriv ut listan över alla Outlook-mappar och deras undermappar i nytt e-postmeddelande

Denna metod kommer att introducera en VBA för att exportera listan över alla mappar och deras undermappar i ett angivet e-postkonto till ett nytt e-postmeddelande i Outlook, och sedan kan du enkelt skriva ut listan med mappar.

1. Tryck andra + F11 nycklar för att öppna fönstret Microsoft Visual Basic for Applications.

2. klick Infoga > Modulerna, och klistra sedan in under VBA-koden i det nya modulfönstret.

VBA: Exportera listan över mappar och undermappar i ett nytt e-postmeddelande 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. Tryck F5 nyckeln för att köra denna VBA.

4. Välj det e-postkonto vars lista över mappar du vill skriva ut i dialogrutan Välj mapp, och klicka på OK knapp. Se skärmdump:

5. Och nu är mapplistan för det angivna e-postkontot kopierat till ett nytt e-mail enligt bilden nedan. var god klicka Fil > Skriva ut att skriva ut den kopierade listan med mappar.

6. Efter utskriften stänger du det nya e-postmeddelandet utan att spara.


pilblå höger bubbla Exportera och skriv ut listan över alla Outlook-mappar som finns där undermappar i Anteckningar

Den här metoden kommer att introducera en VBA för att exportera listan över alla mappar och deras undermappar i ett angivet e-postkonto från Outlook till anteckningsblock, och sedan kan du skriva ut listan över Outlook-mappar i anteckningsblocket enkelt.

1. Tryck andra + F11 nycklar för att öppna fönstret Microsoft Visual Basic for Applications.

2. klick Infoga > Modulerna, och klistra sedan in under VBA-koden i det nya modulfönstret.

VBA: Exportera listan över alla Outlook-mappar och undermappar från Outlook till Anteckningar

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. Tryck F5 nyckeln för att köra denna VBA. Nästa i dialogrutan Välj mapp, välj det e-postkonto vars mapplista du vill exportera och skriva ut och klicka på OK knapp. Se skärmdump:

4. Då kommer dialogrutan Output Folder Tree att komma. Vänligen klicka på ja knapp eller Nej knappen som du behöver.

Och nu en textfil som heter Utsikterna-mappar skapas och sparas på skrivbordet som visas nedan.

5. Dubbelklicka för att öppna den nya textfilen och klicka sedan på Fil > Skriva ut för att skriva ut den exporterade listan över Outlook-mappar.


pilblå höger bubblarelaterade artiklar



Kutools för Outlook

Mer än 100 avancerade funktioner för Outlook 2010, 2013, 2016, 2019 och 365

skärmsläckare kutools för outlook liten för banner 201812

Mer funktioner | Gratis nedladdning | Bara $ 39.00 för hundratals funktioner

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.