2 métodos rápidos para imprimir as listas de anexos de vários e-mails do Outlook

Às vezes, você precisará extrair e imprimir as listas de anexos de vários e-mails. Neste artigo, ensinaremos 2 métodos para obtê-lo.

Se você receber vários e-mails com vários anexos para suas referências, imprima os nomes desses anexos. Nesta situação, como você pode obtê-lo em massa? A seguir, ensinaremos 2 maneiras de imprimir rapidamente as listas de anexos apenas de vários e-mails do Outlook.

Método 1: Imprimir e copiar a lista de anexos em formato Rich Text

1. No início, abra um e-mail do Outlook.
2. Em seguida, na janela Mensagem, clique em “Ações” e selecione “Editar mensagem”.
3. Em seguida, vá para a guia "Formatar texto", na qual selecione o formato "Rich Text".
4. Imediatamente, você pode ver que os anexos de e-mail foram movidos para o corpo.
5. Depois disso, clique no botão “Responder” no grupo “Responder” na guia “Mensagem”.
6. No e-mail subsequente, a lista de anexos já estava no corpo, conforme a captura de tela abaixo.
7. Agora você pode copiar a lista de anexos para um novo e-mail.
8. Posteriormente, use este método para copiar as listas de anexos de outros e-mails para o novo e-mail.
9. Finalmente, você pode imprimir este novo e-mail como de costume.

Método 2: Imprimir listas de anexos via Outlook VBA

1. Para começar, pressione “Alt + F11” para abrir o editor VBA do Outlook.
2. Em seguida, copie o seguinte código VBA em um módulo.

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

3. Depois, adicione esta macro à Barra de Ferramentas de Acesso Rápido consultando o artigo – “Como executar o código VBA no seu Outlook".
4. Eventualmente, tente esta macro.

• A princípio, escolha vários e-mails.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, as listas de anexos desses e-mails devem ter sido impressas.

Recorra a uma ferramenta de reparo do Outlook de ponta

Quando você se depara com danos no arquivo do Outlook, deve ser a melhor notícia que você tem um backup de dados recente do Outlook em mãos. Ele pode permitir que você se livre da complicada correção de arquivo do Outlook. Mas, às vezes, o backup pode falhar ao ser restaurado. Nesse ponto, você precisará recorrer a uma ferramenta de correção mais estelar e profissional, como DataNumen Outlook Repair. Ele pode consertar PST corrompido em minutos.

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 consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com