Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak wyeksportować i wydrukować listę wszystkich folderów i podfolderów w programie Outlook?

Ogólnie mówiąc, możesz nacisnąć Ctrl + 6 klucze, aby wyświetlić listę wszystkich folderów w okienku nawigacji w programie Outlook. Jednak nie można wydrukować listy folderów. W tym artykule zostaną wprowadzone dwa skrypty VBA do eksportowania i drukowania listy wszystkich folderów i ich podfolderów w programie Outlook.

Jedno kliknięcie, aby wyświetlić łączną liczbę elementów we wszystkich folderach w okienku nawigacji w programie Outlook

Zwykle program Outlook wyświetla liczbę nieprzeczytanych elementów w każdym folderze w okienku nawigacji. Ale Kutools dla Outlooka Wszystkie foldery pokazują łączną liczbę elementów funkcja może pomóc Ci pokazać całkowitą liczbę pozycji we wszystkich folderach za pomocą jednego kliknięcia. Kliknij na bezpłatną darmową wersję próbną 60 bez ograniczeń!
wszystkie foldery pokazują całkowitą liczbę kto 9.00

Kutools dla programu Outlook: 100 + Nowe narzędzia zaawansowane dla programu Outlook.
Karta Office: Włącz edycję na kartach i przeglądanie w pakiecie OfficePodobnie jak Chrome, Firefox, IE 8 / 9 / 10.
Klasyczne menu: Przywróć stare menu i paski narzędzi do Office 2007, 2010, 2013, 2016 i 2019.

strzałka niebieska prawa bańka Wyeksportuj i wydrukuj listę wszystkich folderów programu Outlook i ich podfolderów w nowej poczcie e-mail

Ta metoda wprowadzi VBA, aby wyeksportować listę wszystkich folderów i ich podfolderów na określonym koncie e-mail do nowej wiadomości e-mail w programie Outlook, a następnie można łatwo wydrukować listę folderów.

1. naciśnij inny + F11 klucze, aby otworzyć okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.

VBA: wyeksportuj listę folderów i podfolderów do nowej wiadomości e-mail w programie 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. naciśnij F5 klucz do uruchomienia tego VBA.

4. W oknie dialogowym Wybierz folder wybierz konto e-mail, którego listę folderów chcesz wydrukować, i kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

5. Teraz lista folderów określonego konta e-mail jest kopiowana do nowego e-maila, jak pokazano poniżej. Proszę kliknąć filet > Wydrukować aby wydrukować skopiowaną listę folderów.

6. Po wydrukowaniu zamknij nową wiadomość e-mail bez zapisywania.


strzałka niebieska prawa bańka Wyeksportuj i wydrukuj listę wszystkich folderów programu Outlook i podfolderów w Notatniku

Ta metoda wprowadzi VBA, aby wyeksportować listę wszystkich folderów i ich podfolderów na określone konto e-mail z programu Outlook do Notatnika, a następnie można wydrukować listę folderów programu Outlook w Notatniku.

1. naciśnij inny + F11 klucze, aby otworzyć okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.

VBA: wyeksportuj listę wszystkich folderów i podfolderów programu Outlook z programu Outlook do notatnika

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. naciśnij F5 klucz do uruchomienia tego VBA. Następnie w oknie dialogowym Otwieranie folderu wybierz konto e-mail, którego listę folderów chcesz wyeksportować i wydrukować, i kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

4. Następnie pojawi się okno dialogowe Drzewo folderów wyjściowych. Proszę kliknąć tak przycisk lub Nie przycisk, jak potrzebujesz.

A teraz plik tekstowy o nazwie jako Foldery Outlook jest tworzony i zapisywany na twoim pulpicie, jak pokazano na zrzucie ekranu.

5. Kliknij dwukrotnie, aby otworzyć nowy plik tekstowy, a następnie kliknij filet > Wydrukować aby wydrukować wyeksportowaną listę folderów Outlooka.


strzałka niebieska prawa bańkaPowiązane artykuły



Kutools dla programu Outlook

Więcej niż zaawansowane funkcje 100 dla programów Outlook 2010, 2013, 2016, 2019 i 365

screen shot kutools dla programu outlook tiny dla banera 201812

Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji

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.