Como obter a lista de informações dos anexos no e-mail selecionado no Outlook?
Para os e-mails recebidos que contêm anexos, às vezes você pode precisar saber as informações detalhadas dos anexos, como o nome de exibição, o nome do arquivo e assim por diante. Na verdade, o código VBA pode ajudá-lo a obter facilmente a lista de informações dos anexos no e-mail selecionado no Outlook. Por favor, consulte o tutorial abaixo para mais detalhes.
Obter lista de informações dos anexos no e-mail selecionado no Outlook
- Aumente sua produtividade de email com tecnologia de IA, permitindo que você responda rapidamente a emails, crie novos, traduza mensagens e muito mais.
- Automatize o envio de emails com CC/BCC automático, Encaminhamento automático por regras; envie Resposta automática (Fora do Escritório) sem necessidade de um servidor de exchange...
- Receba lembretes como Solicitar ao responder a um email em CCO comigo quando responder a todos estando na lista de CCO, e Lembrete de Anexos Ausentes para anexos esquecidos...
- Melhore a eficiência dos emails com Responder (Todos) Com Anexos, Adicionar automaticamente Saudação ou Data & Hora na Assinatura ou Assunto, Responder Múltiplos Emails...
- Simplifique o envio de emails com Recallar Email, Ferramentas de Anexo (Comprimir Todos, Salvar Todos Automaticamente...), Excluir Duplicados e Relatório Rápido...
Obter lista de informações dos anexos no e-mail selecionado no Outlook
1. Selecione o e-mail com anexos do qual deseja obter as informações.
2. Pressione as teclas Alt + F11 no teclado para abrir a janela Microsoft Visual Basic for Applications.
3. Em seguida, clique duas vezes em Project1 > Objeto do Microsoft Outlook > ThisOutlookSession para abrir a janela Project1 – ThisOutlookSession. Veja a captura de tela:
4. Depois, copie e cole o código VBA abaixo na janela Project1 – ThisOutlookSession.
Código VBA: obter lista de informações dos anexos
Option Explicit
Public Sub GetAttachmentList()
Dim selItem As Object
Dim aMail As MailItem
Dim aAttach As attachment
Dim Report As String
For Each selItem In Application.ActiveExplorer.Selection
If selItem.Class = olMail Then
Set aMail = selItem
For Each aAttach In aMail.Attachments
Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
Report = Report & GetAttachmentInfo(aAttach)
Next
Call CreateReportEmail("Attachment Report", Report)
End If
Next
End Sub
Public Function GetAttachmentInfo(attachment As attachment)
Dim Report
GetAttachmentInfo = ""
Report = Report & "Index: " & attachment.Index & vbCrLf
Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
Report = Report & "File Name: " & attachment.FileName & vbCrLf
Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
Report = Report & "Path Name: " & attachment.PathName & vbCrLf
Report = Report & "Position: " & attachment.Position & vbCrLf
Report = Report & "Size: " & attachment.Size & vbCrLf
Report = Report & "Type: " & attachment.Type & vbCrLf
GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub
5. Pressione a tecla F5 no teclado para executar o código VBA.
6. Agora uma caixa de diálogo Macros aparecerá, por favor, clique no botão Executar.
7. Após clicar no botão Executar na caixa de diálogo Macros, uma nova janela de mensagem será criada com todas as informações dos anexos do e-mail selecionado listadas dentro do corpo do e-mail. Veja a captura de tela:
Observação: Este código VBA pode ser aplicado ao Outlook 2007, 2010 e 2013.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

