Como contar o número de e-mails enviados por mês no Outlook?

AutorXiaoyang Data de Modificação2024-09-18

Por vezes, pode querer saber quantos e-mails enviou por mês. Este tutorial apresenta um código VBA que lhe permite contar o número de mensagens enviadas mensalmente no Outlook.

Contar o número de e-mails enviados por mês no Outlook com código VBA

Aplique o código VBA abaixo para obter o número de e-mails enviados em cada mês, conforme ilustrado a seguir:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.

Código VBA: Contar o número de e-mails enviados por mês:

Dim GDictionary As Object
Sub CountSentMailsByMonth()
'Updateby Extendoffice
Dim xSentFolder As Outlook.Folder
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMonths As Variant
Dim xItemsCount As Variant
Dim xLastRow As Integer
Dim I As Integer
Dim xAccount As Account
On Error Resume Next
Set GDictionary = CreateObject("Scripting.Dictionary")
For Each xAccount In Application.Session.Accounts
  If VBA.LCase$(xAccount.SmtpAddress) = VBA.LCase$("yy@addin99.com") Then  'Specify the Email Account
    Set xSentFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
    If xSentFolder.DefaultItemType = olMailItem Then
      Call ProcessFolders(xSentFolder)
    End If
  End If
Next
Set xSentFolder = Nothing
Set xExcelApp = CreateObject("Excel.Application")
xExcelApp.Visible = True
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs
  .Cells(1, 1) = "Month"
  .Cells(1, 2) = "Count"
  .Cells(1, 1).Font.Bold = True
  .Cells(1, 2).Font.Bold = True
  .Cells(1, 1).HorizontalAlignment = xlCenter
  .Cells(1, 2).VerticalAlignment = xlCenter
End With
xMonths = GDictionary.Keys
xItemsCount = GDictionary.Items
For I = LBound(xMonths) To UBound(xMonths)
  xLastRow = xWs.Range("A" & xWs.Rows.Count).End(xlUp).Row + 1
  With xWs
    .Cells(xLastRow, 1) = xMonths(I)
    .Cells(xLastRow, 2) = xItemsCount(I)
  End With
Next
xWs.Columns("A:B").AutoFit
xExcelApp.Visible = True
Set xExcelApp = Nothing
Set xWb = Nothing
Set xWs = Nothing
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim I As Long
Dim xMail As Outlook.MailItem
Dim xMonth As String
Dim xSubFolder As Folder
On Error Resume Next
For I = Fld.Items.Count To 1 Step -1
  If Fld.Items(I).Class = olMail Then
    Set xMail = Fld.Items(I)
    xMonth = Year(xMail.SentOn) & "/" & Month(xMail.SentOn)
    If GDictionary.Exists(xMonth) Then
      GDictionary(xMonth) = GDictionary(xMonth) + 1
    Else
      GDictionary.Add xMonth, 1
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    Call ProcessFolders(xSubFolder)
  Next
End If
End Sub

Nota: No código, substitua a conta de e-mail “yy@addin99.com” pela sua própria.

3. Ainda na janela do Microsoft Visual Basic for Applications, clique em Ferramentas > Referências. Na caixa de diálogo Referências – Projeto, assinale a opção Microsoft Excel 16,0 Object Library na lista Referências Disponíveis, conforme mostra a imagem:

doc-count-sent-emails-per-month-1

4. Em seguida, clique em OK para fechar a caixa de diálogo e prima a tecla F5 para executar este código. Será aberto um ficheiro do Excel que apresenta as contagens de e-mails enviados em cada mês para a conta específica, conforme mostra a imagem:

doc-count-sent-emails-per-month-2

Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)

Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.

Esta funcionalidade suporta:

Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.

Esta funcionalidade suporta:

Respostas inteligentes por e-mail
Conteúdo otimizado
Rascunhos baseados em palavras-chave
Extensão inteligente de conteúdo
Resumo de e-mails
Tradução multilíngue

Não espere—descarregue já o Assistente de E-mail com IA e desfrute!

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook Transferir Já Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto ⬇ Transferir o Conjunto 💳 Comprar o Conjunto