Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com exportar i imprimir la llista de totes les carpetes i subcarpetes d'Outlook?

En general, podeu prémer Ctrl + 6 claus per veure la llista de totes les carpetes del Panell de navegació a Outlook. No obstant això, no podeu imprimir la llista de carpetes. Aquest article introduirà dues seqüències d'ordres VBA per exportar i imprimir la llista de totes les carpetes i les seves subcarpetes a Outlook.

Feu clic per mostrar el nombre total d'elements a totes les carpetes del Panell de navegació d'Outlook

Normalment, Outlook mostra el nombre d'elements no llegits a cada carpeta del panell de navegació. Però, Kutools per Outlook Totes les carpetes mostren el nombre total d'elements La funció us pot ajudar a mostrar el nombre total d'elements a totes les carpetes amb només un clic. Feu clic per veure gratuïtament 60-day sense limitacions.
totes les carpetes mostren el número total kto 9.00

Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

fletxa blau dreta bombolla Exporta i imprimeix la llista de totes les carpetes d'Outlook i les seves subcarpetes en un nou correu electrònic

Aquest mètode introduirà un VBA per exportar la llista de totes les carpetes i les seves subcarpetes en un compte de correu especificat en un nou correu electrònic a Outlook, i després podeu imprimir fàcilment la llista de carpetes.

1. Premeu Alt + F11 claus per obrir la finestra de Microsoft Visual Basic per a aplicacions.

2. clic Insereix > Mòduls, i després enganxeu el codi VBA per sota de la finestra del mòdul nou.

VBA: exporteu la llista de carpetes i subcarpetes en un nou correu electrònic a 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. Premeu F5 clau per executar aquesta VBA.

4. Al quadre de diàleg Selecciona la carpeta emergent, seleccioneu el compte de correu electrònic la llista de carpetes que vulgueu imprimir i feu clic a la icona OK botó Mostra la captura de pantalla:

5. I ara la llista de carpetes del compte de correu electrònic especificada es copia en un nou correu electrònic tal com es mostra a la imatge que es mostra a continuació. Feu clic a Dossier > impressió per imprimir la llista de carpetes copiada.

6. Després d'imprimir, tanqueu el nou correu electrònic sense desar-lo.


fletxa blau dreta bombolla Exporta i imprimeix la llista de totes les carpetes d'Outlook amb subcarpetes al Bloc de notes

Aquest mètode introduirà una VBA per exportar la llista de totes les carpetes i les seves subcarpetes en un compte de correu electrònic especificada d'Outlook al Bloc de notes i, a continuació, podeu imprimir fàcilment la llista de carpetes d'Outlook al Bloc de notes.

1. Premeu Alt + F11 claus per obrir la finestra de Microsoft Visual Basic per a aplicacions.

2. clic Insereix > Mòduls, i després enganxeu el codi VBA per sota de la finestra del mòdul nou.

VBA: exporteu la llista de totes les carpetes i subcarpetes d'Outlook des del Outlook al Bloc de notes

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. Premeu F5 clau per executar aquesta VBA. A continuació, al quadre de diàleg Selecciona selecció de carpeta, seleccioneu el compte de correu electrònic la llista de carpetes que vulgueu exportar i imprimir, i feu clic al botó OK botó Mostra la captura de pantalla:

4. Després apareixerà el quadre de diàleg Arbre de la carpeta de sortida. Feu clic al'enllaç botó o no botó que necessiteu.

I ara un fitxer de text anomenat com Carpetes d'Outlook es crea i es desa a l'escriptori tal com es mostra a continuació.

5. Feu doble clic per obrir el nou fitxer de text i, a continuació, feu clic a Dossier > impressió per imprimir la llista exportada de carpetes de punts de vista.


fletxa blau dreta bombollaArticles Relacionats



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

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.