Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Regista-te
x

or

Como exportar e imprimir a lista de todas as pastas e subpastas no Outlook?

De um modo geral, você pode pressionar Ctrl + 6 chaves para visualizar a lista de todas as pastas no painel de navegação no Outlook. No entanto, você não pode imprimir a lista de pastas. Este artigo apresentará dois scripts VBA para exportar e imprimir a lista de todas as pastas e suas subpastas no Outlook.

Um clique para mostrar números totais de itens em todas as pastas no painel de navegação no Outlook

Normalmente, o Outlook mostra o número de itens não lidos em cada pasta no painel de navegação. Mas, Kutools for Outlook Todas as pastas mostram o número total de itens O recurso pode ajudá-lo a mostrar o total de itens em todas as pastas com apenas um clique. Clique para o teste gratuito do 60-day sem limitação!
todas as pastas mostram o número total kto 9.00

Kutools for Outlook: 100 + Novas Ferramentas Avançadas para o Outlook.
Office Tab: Ativar edição com guias e navegação no Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Clássico: Traga os velhos menus e as barras de ferramentas de volta para Office 2007, 2010, 2013, 2016 e 2019.

arrow blue right bubble Exporte e imprima a lista de todas as pastas do Outlook e suas subpastas em novos e-mails

Este método irá introduzir um VBA para exportar a lista de todas as pastas e suas subpastas em uma conta de e-mail especificada para um novo e-mail no Outlook e, em seguida, você pode imprimir facilmente a lista de pastas.

1. Pressione outro + F11 chaves para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Módulo, e depois cole abaixo o código VBA para a nova janela do Módulo.

VBA: Exporte a lista de pastas e subpastas em um novo email no 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. Pressione F5 chave para executar este VBA.

4. Na caixa de diálogo Selecionar Pasta, selecione a conta de e-mail cuja lista de pastas deseja imprimir e clique no botão OK botão. Ver captura de tela:

5. E agora, a lista de pastas da conta de e-mail especificada é copiada para um novo e-mail, conforme mostrado abaixo na tela. Por favor clique filete > Impressão para imprimir a lista de pastas copiadas.

6. Após a impressão, feche o novo e-mail sem salvar.


arrow blue right bubble Exporte e imprima a lista de todas as pastas do Outlook e há subpastas no Bloco de Notas

Este método irá introduzir um VBA para exportar a lista de todas as pastas e suas subpastas em uma conta de e-mail especificada do Outlook para o Bloco de notas e, em seguida, você pode imprimir a lista de pastas do Outlook no bloco de notas facilmente.

1. Pressione outro + F11 chaves para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Módulo, e depois cole abaixo o código VBA para a nova janela do Módulo.

VBA: Exporte a lista de todas as pastas e subpastas do Outlook do Outlook para o Bloco 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. Pressione F5 chave para executar este VBA. Em seguida, na caixa de diálogo Seleção de pastas de abertura, selecione a conta de e-mail cuja lista de pastas deseja exportar e imprimir e clique no botão OK botão. Ver captura de tela:

4. Em seguida, a caixa de diálogo Árvore de pastas de saída está chegando. Por favor, clique no botão Sim botão ou Não botão como você precisa.

E agora um arquivo de texto chamado Outlook-Folders é criado e salvo na sua área de trabalho conforme mostrado abaixo na tela.

5. Clique duas vezes para abrir o novo arquivo de texto e, em seguida, clique em filete > Impressão para imprimir a lista exportada de pastas outlook.


arrow blue right bubbleartigos relacionados



Kutools for Outlook

Mais do que 100 Funções avançadas para o Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools para outlook minúsculo para banner 201812

mais recursos | Download grátis | Apenas $ 39.00 para centenas de funções

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.