Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como obter a lista de informações dos anexos no e-mail selecionado no Outlook?

Author Siluvia Last modified

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

Office Tab - Habilite a edição e navegação com abas no Microsoft Office, tornando o trabalho mais fácil.
Desbloqueie o Kutools para Outlook agora e aproveite mais de 100 recursos com acesso ilimitado para sempre.
Potencialize seu Outlook 2024 - 2010 ou Outlook 365 com esses recursos avançados. Aproveite mais de 100 recursos poderosos e eleve sua experiência de email!

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:

the Project1 – ThisOutlookSession window

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.

a Macros dialog box

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:

a new message window is created with all attachments information of selected email listed inside the email body

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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar e-mails com facilidade, incluindo responder, resumir, otimizar, estender, traduzir e criar e-mails.

📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP)  /  Agendar Enviar Email  /  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 Email individuais ...

📨 Gerenciamento de Email: Recallar Email  /  Bloquear emails fraudulentos por Assunto e outros critérios  /  Excluir Duplicado  /  Pesquisa Avançada  /  Organizar Pastas ...

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

🌟 Magia da Interface: 😊Mais emojis bonitos e legais   /  Notificações de emails importantes  /  Minimizar Outlook em vez de fechar ...

👍 Recursos de um clique: Responder a Todos com Anexos  /   Emails Anti-Phishing  /  🕘Exibir o fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados  /  Dividir um Grupo de Contatos em grupos individuais  /  Remover lembrete de aniversário ...

Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não espere, baixe agora e aumente sua eficiência!

kutools for outlook features1 kutools for outlook features2

🚀 Download com um clique — Baixe todos os complementos de Office

Recomendado fortemente: Kutools para Office (5 em1)

Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!

  • ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
  • 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
  • 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint