Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak exportovat a tisknout seznam všech složek a podsložky v aplikaci Outlook?

Obecně řečeno, můžete stisknout Ctrl + 6 klávesy pro zobrazení seznamu všech složek v podokně Navigace v aplikaci Outlook. Seznam složek však nelze vytisknout. Tento článek představí dva skripty VBA pro export a tisk seznamu všech složek a jejich podsložky v aplikaci Outlook.

Jedním kliknutím zobrazíte celkový počet položek ve všech složkách v podokně Navigace v aplikaci Outlook

Obvykle aplikace Outlook zobrazí počet nepřečtených položek v každé složce v navigačním podokně. Ale Kutools pro Outlook Všechny složky zobrazují celkový počet položek můžete zobrazit celkový počet položek ve všech složkách pouze jedním kliknutím. Klikněte na bezplatnou zkušební verzi 60-den bez omezení!
všechny složky zobrazují celkový počet kto 9.00

Kutools pro aplikaci Outlook: 100 + Nové pokročilé nástroje pro aplikaci Outlook.
Karta Office: Povolit úpravy a prohlížení v sadě Office, Stejně jako Chrome, Firefox, IE 8 / 9 / 10.
Klasická nabídka: Přineste zpět staré nabídky a panely nástrojů na sady Office 2007, 2010, 2013, 2016 a 2019.

arrow modrá pravá bublina Export a vytiskněte seznam všech složek aplikace Outlook a jejich podsložky do nových e-mailů

Tato metoda zavede VBA exportovat seznam všech složek a jejich podsložky na určený e-mailový účet do nového e-mailu v aplikaci Outlook a potom můžete seznam složek snadno vytisknout.

1. lis Další + F11 k otevření okna aplikace Microsoft Visual Basic for Applications.

2. cvaknutí Vložit > Modul, a potom vložte pod kód VBA do nového okna modulu.

VBA: Exportovat seznam složek a podsložky do nové e-mailové zprávy v aplikaci 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. lis F5 klíč k spuštění tohoto VBA.

4. V dialogovém okně Vybrat složku vyberte prosím e-mailový účet, jehož seznam složek chcete vytisknout, a klepněte na tlačítko OK tlačítko. Zobrazit screenshot:

5. A nyní seznam složek určeného e-mailového účtu je zkopírován do nového e-mailu, jak je znázorněno níže. prosím klikněte Soubor > Tisk pro tisk zkopírovaného seznamu složek.

6. Po tisku zavřete nový e-mail bez uložení.


arrow modrá pravá bublina Export a vytiskněte seznam všech složek aplikace Outlook a podsložky v programu Poznámkový blok

Tato metoda zavede VBA exportovat seznam všech složek a jejich podsložky na určený e-mailový účet z aplikace Outlook do programu Poznámkový blok a potom můžete snadno vytisknout seznam složek aplikace Outlook v poznámkovém bloku.

1. lis Další + F11 k otevření okna aplikace Microsoft Visual Basic for Applications.

2. cvaknutí Vložit > Modul, a potom vložte pod kód VBA do nového okna modulu.

VBA: Exportovat seznam všech složek a podsložek aplikace Outlook z aplikace Outlook do programu Poznámkový blok

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. lis F5 klíč k spuštění tohoto VBA. Další v dialogovém okně Vybrat složku vyberte prosím e-mailový účet, jehož seznam složek chcete exportovat a vytisknout, a klepněte na tlačítko OK tlačítko. Zobrazit screenshot:

4. Zobrazí se dialogové okno Výstupní složka stromu. Klepněte na tlačítko Ano nebo Ne jak potřebujete.

A nyní textový soubor pojmenovaný jako Outlook-Folders je vytvořen a uložen na pracovní ploše, jak je znázorněno níže.

5. Poklepáním otevřete nový textový soubor a klepněte na tlačítko Soubor > Tisk vytisknout exportovaný seznam složek aplikace Outlook.


arrow modrá pravá bublinaSouvisející články



Kutools pro aplikaci Outlook

Více než rozšířené funkce 100 pro aplikace Outlook 2010, 2013, 2016, 2019 a 365

screen shot kutools pro výhled malý pro banner 201812

Více funkcí | Stažení zdarma | Pouze $ 39.00 pro stovky funkcí

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.