O Microsoft Outlook nos fornece Impressão rápida , que pode ajudá-lo a imprimir anexos em uma mensagem de e-mail, um por um.

1. Selecione a mensagem de e-mail cujos anexos você imprimirá mais tarde.

2. Clique em um anexo neste e-mail.

3. Clique no Impressão rápida botão no Opções grupo no Anexos aba.

Note o Ferramentas de Anexo não será ativado até que você clique nos anexos de e-mails.

4. Uma caixa de diálogo Abrindo anexo de e-mail é exibida e, por favor, clique no botão Abra botão.

Observe que esta etapa abrirá o anexo selecionado e imprimirá este anexo selecionado ao mesmo tempo.

Para imprimir outros anexos neste e-mail, repita a Etapa 2 à Etapa 4.

Salve / exporte rapidamente todos os anexos de vários e-mails no Outlook

Normalmente podemos salvar anexos de um e-mail ativando o Ferramentas de Anexo e aplicando o Salvar todos os anexos recurso no Outlook. Mas, e se você salvar anexos de vários e-mails ou de toda a pasta de e-mail do Outlook? Experimente o Kutools para Outlook Salve Todos (Anexos).

Se houver muitos anexos em uma mensagem de e-mail, será demorado imprimi-los um por um. E o método a seguir o guiará facilmente pela impressão em lote de todos os anexos em uma mensagem de e-mail selecionada.

1. Selecione a mensagem de e-mail cujos anexos você imprimirá mais tarde.

2. No Outlook 2010 ou versões posteriores, clique no Envie o > Impressão > Opções de impressão. Veja a seguinte captura de tela:

3. Na caixa de diálogo Imprimir, verifique o Imprima arquivos anexados. Os anexos serão impressos apenas na impressora padrão opção no Opções de impressão seção.

4. Clique no Impressão botão.

5. Na caixa de diálogo de abertura de anexo de e-mail, clique no botão Abra botão para ir em frente. (Note: Esta caixa de diálogo aparecerá para cada anexo separadamente.)

Agora todos os anexos nesta mensagem de e-mail selecionada serão impressos de uma só vez.

Para imprimir todos os anexos em vários emails, bem como todas as imagens no corpo da mensagem no Outlook, siga as etapas abaixo para aplicar um código VBA.

1. Na lista de discussão, por favor, segure Ctrl or Shift para selecionar vários e-mails cujos anexos você imprimirá.

2. pressione outro + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

3. Na janela Microsoft Visual Basic for Applications, clique em Ferramentas > Referências. E então verifique o Tempo de execução de scripts da Microsoft opção como mostrado abaixo. Assim que terminar, clique OK.

4. Clique inserção > Móduloe cole o código VBA abaixo na janela do novo módulo.

VBA: imprimir todos os anexos em vários e-mails do Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Pressione F5 ou clique no Execute botão para executar este código VBA. Agora você verá que todos os anexos nos e-mails selecionados e as imagens no corpo da mensagem são impressos.

Observação:

• Cada imagem exibirá uma caixa de diálogo pop-up para solicitar a confirmação da impressão. Enquanto outros tipos de arquivos serão impressos diretamente.
• Se houver imagens em uma assinatura de e-mail, elas também exibirão caixas de diálogo pop-up.
• Se você pegar As macros neste projeto estão desabilitadas erro, por favor verifique este tutorial: Como habilitar e desabilitar macros no Outlook?

Para imprimir apenas anexos em vários emails, mas as imagens no corpo da mensagem no Outlook, siga as etapas abaixo para aplicar um código VBA.

1. Na lista de discussão, por favor, segure Ctrl or Shift para selecionar vários e-mails cujos anexos você imprimirá.

2. pressione outro + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

3. Na janela Microsoft Visual Basic for Applications, clique em Ferramentas > Referências. E então verifique o Tempo de execução de scripts da Microsoft opção como mostrado abaixo. Assim que terminar, clique OK.

4. Clique inserção > Móduloe cole o código VBA abaixo na janela do novo módulo.

VBA: imprimir todos os anexos em vários e-mails do Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Pressione F5 ou clique no Execute botão para executar este código VBA. Agora você verá que todos os anexos nos e-mails selecionados são impressos.

Observação:

• Cada imagem anexada abrirá uma caixa de diálogo pop-up para solicitar a confirmação da impressão. Enquanto outros tipos de arquivos serão impressos diretamente.
• As imagens no corpo da mensagem não serão impressas.
• Se você pegar As macros neste projeto estão desabilitadas erro, por favor verifique este tutorial: Como habilitar e desabilitar macros no Outlook?