Se você deseja obter rapidamente a contagem de anexos em cada email na lista de emails, pode usar o código VBA neste artigo. Ele contará automaticamente os anexos em todos os e-mails recebidos e exibirá a contagem em uma nova coluna.
Alguns usuários frequentemente precisam contar os anexos de e-mail. Nesse cenário, por que não criar e habilitar uma coluna exclusiva para exibir a contagem de anexos? A seguir, ensinaremos como fazer com que o Outlook conte automaticamente os anexos de e-mail e mostre a contagem em uma nova coluna.
Exibir contagem de anexos na lista de e-mail
- Para começar, abra o aplicativo Outlook.
- Em seguida, pressione os botões de tecla “Alt + F11” na janela principal do Outlook.
- Em seguida, na nova janela do editor VBA do Outlook, você precisa abrir um módulo que não está sendo usado.
- Posteriormente, copie e cole o seguinte código VBA neste módulo.
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- Depois disso, você pode sair da janela atual “Microsoft Visual Basic for Applications”.
- Posteriormente, você precisará criar uma nova regra para executar esse script em todos os emails recebidos.
- Em primeiro lugar, vá ao menu “Arquivo” e clique no botão “Gerenciar regras e alertas” na guia “Informações”.
- Em seguida, na nova caixa de diálogo, clique no botão "Nova regra".
- Na tela “Assistente de Regras” subsequente, selecione “Aplicar regra nas mensagens recebidas” e clique em “Avançar”.
- Em seguida, ignore “Selecionar condições” e clique em “Avançar”.
- Em seguida, selecione a ação “executar um script” e selecione a macro adicionada anteriormente, como na captura de tela a seguir.
- Depois disso, clique vários “Next” até chegar na tela final “Finish rule setup”.
- Mais tarde, você precisa especificar um novo nome para esta regra e ativar a opção “Executar esta regra em mensagens já na “Caixa de entrada”” e 'Ativar esta regra”.
- Por fim, clique no botão “Concluir”.
- Depois disso, você deve adicionar a coluna “Contagem de anexos” criada pelo código VBA. Basta seguir os seguintes passos abaixo:
- Primeiro, vá para a guia "Visualizar" na tela da lista de e-mail.
- Em seguida, clique no botão "Exibir configurações".
- Na nova caixa de diálogo pop-up, clique no botão “Colunas”.
- Em seguida, na janela “Mostrar colunas”, localize e selecione a coluna “Contagem de anexos” em “Colunas definidas pelo usuário na caixa de entrada” e clique no botão “Adicionar”.
- Por fim, clique no botão “OK” para salvar as alterações.
- Eventualmente, você pode ver uma coluna “Contagem de anexos” na lista de e-mail, que exibe a contagem de anexos para cada e-mail, conforme a imagem abaixo:
Evite a perda frustrante de dados PST
Acredita-se que ninguém esteja disposto a aceitar a perda de dados PST. O mesmo deve valer para você. Portanto, você deve tomar algumas precauções, como fazer backups de dados de seu arquivo PST e obter uma ferramenta de correção confiável como DataNumen Outlook Repair. Pode reparar o Outlook questões sem suar a camisa.
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 correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com