Note: The other languages of the website are Google-translated. Back to English

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

Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2021 - 2010 ou Office 365. Recursos completos Avaliação gratuita de 60 dias.

seta azul bolha direitaObtenha 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 Opere botão.

7. Depois de clicar no Opere 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:

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


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá. você pode imaginar alguma possibilidade de buscar/abrir um anexo específico diretamente de sua lista (por exemplo, um link embutido). Desde já obrigado Sandra
Este comentário foi feito pelo moderador no site
Oi - Estou tentando descobrir uma maneira de definir uma resposta automática que lista todos os anexos que eles enviaram. Se isso puder incluir um índice de arquivos para pastas, isso também seria brilhante.


Basicamente - recebemos e-mails com envios de documentos, já tenho uma resposta automática configurada para agradecê-los pelo envio, mas se isso agora puder incluir "os documentos que você enviou são os seguintes: ... etc", isso ajudaria muito.


Se alguém pudesse ajudar com isso seria brilhante! Obrigado!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL