Como imprimir apenas os anexos de um e-mail ou de e-mails selecionados no Outlook?

No Outlook, é possível imprimir e-mails — mas já imprimiu apenas os anexos de um e-mail ou de e-mails selecionados? Neste artigo, apresento truques práticos para resolver essa tarefa.

Imprimir apenas os anexos de um e-mail com Impressão Rápida

Imprimir apenas os anexos de e-mails selecionados com VBA

---

Imprimir apenas os anexos de um e-mail com Impressão Rápida

Para imprimir apenas os anexos, sem o corpo do e-mail, utilize a função Impressão Rápida.

1. Na janela da mensagem, clique com o botão direito do rato no anexo que deseja imprimir e escolha «Impressão Rápida» no menu de contexto.

2. Em seguida, clique em «Guardar» > «Guardar» para guardar o ficheiro do anexo numa localização à sua escolha.

3. Agora, aceda à localização onde guardou o ficheiro anexado e abra-o para imprimir normalmente.

---

Imprimir apenas os anexos de e-mails selecionados com VBA

Se pretender imprimir os anexos dos e-mails selecionados, pode utilizar código VBA.

1. Selecione os e-mails cujos anexos pretende imprimir e prima «Alt» + «F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Faça duplo clique em «ThisOutlookSession» no painel «Project1» e copie e cole o seguinte código no script.

VBA: Imprimir anexos de e-mails selecionados

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

3. Em seguida, clique em «Ferramentas» > «Referências» e, na caixa de diálogo «Referências», ative a opção «Microsoft Scripting Runtime».
  

4. Clique em «OK» e, de seguida, prima a tecla «F5» para imprimir todos os anexos dos e-mails selecionados em lote.

Nota: Se o anexo for uma imagem, aparecerá primeiro a caixa de diálogo «Imprimir Imagens»; clique em «Imprimir» para aceder à caixa de diálogo «Guardar Saída de Impressão Como».