Note: The other languages of the website are Google-translated. Back to English

Como exportar contagens de mensagens do Outlook para a pasta de trabalho do Excel?

Normalmente, você pode exportar as mensagens do Outlook para um arquivo do Excel usando o recurso Importar / Exportar de forma rápida e fácil. Mas, você já tentou contar os itens em todas as pastas de sua conta de e-mail específica e exportar os resultados da contagem para a pasta de trabalho do Excel?

Exportar contagens de mensagens do Outlook para a pasta de trabalho do Excel com código VBA


Exportar contagens de mensagens do Outlook para a pasta de trabalho do Excel com código VBA

O seguinte código VBA pode ajudá-lo a exportar os resultados da contagem de todas as pastas em uma conta de e-mail específica para a pasta de trabalho do Excel, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Exportar itens do Outlook para a pasta de trabalho do Excel:

Sub Export_CountOfItems_InEachFolder_toExcel()
    Dim xSourceFolder As Outlook.Folder, xSubFolder As Outlook.Folder
   Dim xFilePath As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    On Error Resume Next
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    xWs.Cells(1, 1) = "Folder"
    xWs.Cells(1, 2) = "Count Items"
    Set xSourceFolder = Outlook.Application.Session.PickFolder
    If xSourceFolder = nill Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    For Each xSubFolder In xSourceFolder.Folders
        Call ProcessFolders(xWs, xSubFolder)
    Next
    xWs.Columns("A:B").AutoFit
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
   If TypeName(xFolder) = "Nothing" Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    xFilePath = xFilePath & xSourceFolder.Name & "(" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    xWb.Close True, xFilePath
    xExcelApp.Quit
    Set xShell = Nothing
    MsgBox "Complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal Ws As Worksheet, ByVal xCurFolder As Outlook.Folder)
    Dim xSubFld As Folder
    Dim xItemCount As Long
   Dim xRow As Integer
    xItemCount = xCurFolder.Items.Count
    xRow = Ws.UsedRange.Rows.Count + 1
    Ws.Cells(xRow, 1) = xCurFolder.FolderPath
    Ws.Cells(xRow, 2) = xItemCount
    If xCurFolder.Folders.Count > 0 Then
       For Each xSubFld In xCurFolder.Folders
           Call ProcessFolders(Ws, xSubFld)
       Next
    End If
End Sub

3. E, ainda no Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências para ir para o Referências-Projeto1 caixa de diálogo e verifique Biblioteca de objetos do Microsoft Excel opção do Referências Disponíveis caixa de lista, veja a captura de tela:

doc exportar itens contagem 1

4. Então clique OK, e depois pressione F5 chave para executar este código, um Selecionar pasta for exibido, selecione uma conta de e-mail para a qual deseja exportar a contagem de itens, consulte a captura de tela:

doc exportar itens contagem 2

5. Então clique OK, e outro Procurar pasta for exibido, escolha uma pasta para colocar o arquivo Excel, veja a captura de tela:

doc exportar itens contagem 3

6. Finalmente, clique em OK botão, e a contagem de itens em todas as pastas da conta selecionada foi exportada para uma pasta de trabalho do Excel, você pode abrir o arquivo do Excel para ver o resultado, consulte a captura de tela:

doc exportar itens contagem 4


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (3)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
não funciona
Este comentário foi feito pelo moderador no site
Isso é perfeito, funcionou exatamente como está escrito, obrigado por postar este código
Este comentário foi feito pelo moderador no site
Obrigado por postar este código funciona exatamente como está escrito, Kudos
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL