2 métodos para abrir em lote todos os anexos em seu e-mail do Outlook

Quando você recebe um e-mail com vários anexos, às vezes, espera abri-los em massa. Este artigo examinará esse problema e apresentará 2 abordagens para obtê-lo.

Você já deve ter recebido um e-mail com vários anexos. É muito fácil abrir um dos anexos simplesmente clicando duas vezes nele. Mas se você deseja abrir rapidamente todos os anexos em lote, como pode obtê-lo? É óbvio que o Outlook não nos fornece esse recurso. Portanto, você precisa buscar outros meios. A seguir estão 2 dicas.

Método 1: Abrir em lote todos os anexos por meio de Salvar todos os anexos

Se os anexos estiverem no mesmo tipo de arquivo, você pode usar este método:

1. Para começar, selecione um endereço de e-mail.
2. Em seguida, apresente um anexo no painel de leitura.
3. Em seguida, na faixa visível de “Anexos”, você pode encontrar e clicar no botão “Salvar todos os anexos”.
4. Posteriormente, na pequena caixa de diálogo pop-up, clique em “OK”.
5. Na caixa de diálogo “Salvar todos os anexos” a seguir, selecione uma pasta de destino para salvá-los e clique em “OK”.
6. Finalmente, você pode abrir a pasta selecionada.

• Pressione “Ctrl + A” para selecionar todos os anexos salvos.
• Em seguida, clique com o botão direito sobre eles.
• No menu do botão direito, você pode selecionar a opção "Abrir".

O método acima só se aplica a casos em que todos os anexos sejam do mesmo tipo de arquivo. Caso contrário, você pode usar os seguintes métodos.

Método 2: Abrir em lote todos os anexos via Outlook VBA

O método funcionará efetivamente se os anexos estiverem em tipos de arquivo comuns – “.docx”, “.doc”, “.txt”, “.xlsx”, “xls”, “.jpg”, “.png”, “jpeg ”.

1. Em primeiro lugar, pressione as teclas “Alt + F11”.
2. Então você entrará na janela do editor VBA.
3. Agora você precisa abrir um módulo que não está em uso.
4. Posteriormente, copie e cole os seguintes códigos VBA nele.

Sub OpenAllAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objTempFolder As Object
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachments = objMail.attachments
 
    If objAttachments.Count > 0 Then
       For Each objAttachment In objAttachments
           'Save the attachments to Temp folder
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           Set objTempFolder = objFileSystem.GetSpecialFolder(2)
           strFile = objTempFolder.Path & "\" & objAttachment.DisplayName
           objAttachment.SaveAsFile strFile
 
           'Batch open all the attached Word documents and Text Files
           If InStr(LCase(strFile), "docx") > 0 Or InStr(LCase(strFile), "doc") > 0 Or InStr(LCase(strFile), "txt") > 0 Then
              Set objWordApp = CreateObject("Word.Application")
              Set objWordDocument = objWordApp.Documents.Open(strFile)
              objWordDocument.Activate
              Set objWordRange = objWordDocument.Range(0, 0)
              objWordApp.Visible = True
              objWordDocument.ActiveWindow.Visible = True
           End If
 
          'Batch open all the attached Excel workbooks
          If InStr(LCase(strFile), "xlsx") > 0 Or InStr(LCase(strFile), "xls") > 0 Then
             Set objExcelApp = CreateObject("Excel.Application")
             Set objExcelWorkbook = objExcelApp.Workbooks.Open(strFile)
             Set objExcelWorkSheet = objExcelWorkbook.Sheets(1)
             objExcelWorkSheet.Activate
             Set objExcelRange = objExcelWorkSheet.Range("A1")
             objExcelRange.Activate
             objExcelApp.Visible = True
          End If
 
          'Batch open all the attached pictures via Windows image view
          If InStr(LCase(strFile), "jpg") > 0 Or InStr(LCase(strFile), "png") > 0 Or InStr(LCase(strFile), "jpeg") > 0 Then
             Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & strFile
          End If
       Next
    End If
End Sub

5. Depois disso, você pode fechar o editor VBA e adicionar a macro à Barra de Ferramentas de Acesso Rápido.
6. Finalmente você pode tentar.

• Em primeiro lugar, selecione um e-mail.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, todos os anexos do e-mail selecionado serão abertos em lote, conforme a captura de tela a seguir:

Proteja seus dados PST com eficiência

Como o Outlook PST é vulnerável a vários fatores, você deve fazer muitos esforços para evitar que ele seja corrompido. Caso contrário, uma vez que seu PST for corrompido, para reparar PST será uma tarefa consideravelmente árdua. Scanpst.exe não ajudará nesse caso. Portanto, seu único recurso é aplicar uma ferramenta externa potente, como DataNumen Outlook Repair.

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