Você já foi solicitado a contar o número de anexos de e-mail em e-mails selecionados? Será tedioso se você contá-los manualmente. Aqui vamos ajudá-lo a tornar a contagem muito mais fácil e rápida com o Outlook VBA.
Por algum motivo, você pode precisar contar o número de anexos em e-mails do Outlook. Se você quiser apenas saber o número de anexos em um único e-mail, será bem fácil. Mas se precisar contar os anexos em vários e-mails, será muito trabalhoso fazer a contagem manualmente. Geralmente, uma das maneiras mais comuns é salvar todos os anexos em uma pasta local no seu computador. Depois, selecione-os e o Explorador de Arquivos do Windows mostrará a quantidade de itens selecionados na barra de status.
No entanto, não há como negar que esse método ainda é bastante complicado. Na verdade, por meio do Outlook VBA, você pode obter rapidamente o número total de anexos nos e-mails selecionados do Outlook. Continue lendo para aprender os códigos e etapas detalhados do VBA.
Obtenha rapidamente o número total de anexos em e-mails selecionados
- Primeiro, inicie o aplicativo Outlook e vá para a guia “Desenvolvedor”.
- Então você pode clicar no botão “Visual Basic”. Isso o levará à janela “Microsoft Visual Basic for Applications”.
- Em seguida, você deve abrir um novo módulo que não está em uso. Selecione “Inserir” > “Módulo”.
- Depois disso, você deve copiar e colar os seguintes códigos VBA nele.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
- Posteriormente, você pode sair da janela “Visual Basic” e voltar para a janela principal do Outlook. Em seguida, você deve localizar e pressionar a seta para baixo na Barra de Ferramentas de Acesso Rápido e selecionar “Mais Comandos” na lista suspensa.
- Posteriormente siga os passos mostrados na imagem abaixo.
- Finalmente você pode tentar.
- Depois de selecionar vários e-mails, você pode clicar no novo botão na barra de ferramentas de acesso rápido. Posteriormente, você receberá uma mensagem informando o número de anexos nos e-mails selecionados. Parece a seguinte imagem:
- Mas se você selecionar algum item que atenda a solicitações ou respostas semelhantes em vez de e-mails, receberá um alerta, como na imagem abaixo:
Reagir a problemas ocasionais do Outlook
Se você usa o Outlook há décadas, deve ter encontrado vários problemas, incluindo o Outlook que não responde, o congelamento do Outlook, mensagens de erro frequentes e Corrupção de e-mail PST do Outlook e assim por diante. Você já domina algum truque para lidar com esses problemas? De modo geral, você pode iniciar o Outlook no modo de segurança, criar um novo perfil do Outlook, reparar o Office e desativar suplementos de terceiros, etc. Além disso, você também deve manter uma ferramenta de reparo potente por perto, como o Office. DataNumen Outlook Repair. Ele será útil quando os backups e a ferramenta de reparo da caixa de entrada falharem.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar dados SQL corrompidos e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com