Como obter informações da lista de anexos em e-mails selecionados no Outlook?

Para os e-mails recebidos anexados com anexos, às vezes você pode precisar saber as informações detalhadas dos anexos, como o nome de exibição, nome do arquivo e assim por diante. Na verdade, o código VBA pode ajudá-lo a obter facilmente as informações da lista de anexos no e-mail selecionado atualmente no Outlook. Por favor, navegue no tutorial abaixo para mais detalhes.

Obtenha as informações da lista de anexos no correio selecionado no Outlook

Obtenha as informações da lista de anexos no correio selecionado no Outlook

1. Selecione o e-mail com anexos do qual deseja obter as informações deles.

2. aperte o outro + F11 teclas no teclado para abrir o Microsoft Visual Basic para Aplicações janela.

3. Em seguida, clique duas vezes no Project1 > Objeto Microsoft Outlook > Esta sessão do Outlook para abrir o Projeto1 - ThisOutlookSession janela. Veja a imagem:

4. Em seguida, copie e cole o código VBA abaixo na janela Projeto1 - ThisOutlookSession.

Código VBA: obter a 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 F5 chave no teclado para executar o código VBA.

6. Agora um Macros caixa de diálogo aparece, por favor clique no Execute botão.

7. Depois de clicar no Execute botão no Macros caixa de diálogo, uma nova janela de mensagem será criada com todas as informações de anexos do e-mail selecionado listado dentro do corpo do e-mail. Veja a imagem:

Note: Este código VBA pode ser aplicado ao Outlook 2007, 2010 e 2013

---

Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos Pró: Salvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

Saiba Mais       Download grátis      Comprar