Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como exportar e imprimir lista de todos os cartafoles e subcartafoles en Outlook?

En xeral, podes premer Ctrl + 6 claves para ver a lista de todos os cartafoles no panel de navegación en Outlook. Non obstante, non pode imprimir a lista de cartafoles. Este artigo introducirá dúas secuencias de comandos VBA para exportar e imprimir a lista de todas as carpetas e as súas subcartafoles en Outlook.

Un clic para mostrar o número total de elementos en todos os cartafoles do Panel de navegación en Outlook

Normalmente, Outlook mostra o número de elementos non lidos en cada cartafol no Panel de navegación. Pero, Kutools para Outlook Todas as carpetas amosan un número total de elementos O recurso pode axudarche a mostrar o número total de elementos en todos os cartafoles cun só clic. Fai clic para 60 día de proba gratuíto sen limitación.
todas as carpetas mostran o número total kto 9.00

Kutools para Outlook: 100 + Novas ferramentas avanzadas para Outlook.
Tabulación de Office: Habilitar a edición e navegación por táboa no Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú clásico: Trae antigos menús e barras de ferramentas cara atrás a Office 2007, 2010, 2013, 2016 e 2019.

frecha burbulla dereita azul Exporta e imprime a lista de todos os cartafoles de Outlook e as súas subcartafoles nun novo correo electrónico

Este método introducirá un VBA para exportar a lista de todos os cartafoles e os seus subcartafoles nunha conta de correo electrónico especificada nun novo correo electrónico en Outlook e logo pode imprimir facilmente a lista de cartafoles.

1. Preme alt + F11 Teclas para abrir a xanela de Microsoft Visual Basic para aplicacións.

2. Fai clic Inserir > Módulos, e despois péguea debaixo do código VBA na nova fiestra do módulo.

VBA: Exporte a lista de cartafoles e subcartafoles nun novo correo electrónico en 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. Preme F5 chave para executar este VBA.

4. Na caixa de diálogo Selección de Cartafol, aparece a conta de correo electrónico cuxa lista de cartafoles desexa imprimir e faga clic no OK botón. Ver captura de pantalla:

5. E agora a lista de cartafoles da conta de correo electrónico especificada copiase a un novo correo electrónico como se mostra na seguinte imaxe. Fai clic en Arquivo > impresión para imprimir a lista de cartafoles copiada.

6. Despois da impresión, pecha o novo correo electrónico sen gardar.


frecha burbulla dereita azul Exporta e imprime a lista de todas as carpetas de Outlook e hai subcartafoles no Bloc de notas

Este método introducirá unha VBA para exportar a lista de todos os cartafoles e os seus subcartafoles nunha conta de correo electrónico especificada de Outlook ao Bloc de notas e, a continuación, pode imprimir facilmente a lista de cartafoles de Outlook no Bloc de notas.

1. Preme alt + F11 Teclas para abrir a xanela de Microsoft Visual Basic para aplicacións.

2. Fai clic Inserir > Módulos, e despois péguea debaixo do código VBA na nova fiestra do módulo.

VBA: Exportar a lista de todos os cartafoles e subcartafoles de Outlook desde Outlook ao Bloc de notas

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. Preme F5 chave para executar este VBA. A continuación, na caixa de diálogo Seleccionar carpeta de selección, seleccione a conta de correo electrónico coa lista de cartafoles que desexa exportar e imprimir e faga clic na caixa de diálogo OK botón. Ver captura de pantalla:

4. Entón aparece a caixa de diálogo Árbore de cartafol de saída. Faga clic no si botón ou Non botón que necesites.

E agora un ficheiro de texto chamado como Cartafoles de Outlook créase e gárdase no seu escritorio como se mostra na seguinte imaxe.

5. Fai dobre clic para abrir o novo ficheiro de texto e prema en Arquivo > impresión para imprimir a lista exportada de cartafoles de perspectivas.


frecha burbulla dereita azulartigos relacionados



Kutools para Outlook

Máis de 100 Funcións avanzadas para Outlook 2010, 2013, 2016, 2019 e 365

captura de pantalla kutools para pequenas perspectivas para a bandeira 201812

Máis recursos | Descarga gratuíta | Só $ 39.00 por centos de funcións

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.