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

Como imprimir apenas anexo (s) de um e-mail ou e-mails selecionados no Outlook?

No Outlook, você pode imprimir os e-mails, mas imprimiu os anexos apenas de um e-mail ou selecionou os e-mails no Outlook? Neste artigo, apresento os truques para resolver esse trabalho.

Imprima apenas anexo (s) de um e-mail com Quick Print

Imprimir apenas anexo (s) de e-mails selecionados com VBA


Imprima apenas anexo (s) de um e-mail com Quick Print

Para imprimir os anexos apenas sem o corpo do e-mail, você pode usar a função Quick Print.

1. Na janela de mensagem, clique com o botão direito no anexo que deseja imprimir e selecione Impressão rápida no menu de contexto.
doc imprimir anexo 1

2. Então clique Salvar > Salvar para salvar o arquivo de anexo em um local.
doc imprimir anexo 2
doc imprimir anexo 3

3. Agora vá para o local em que colocou o arquivo anexo e abra o arquivo para imprimir normalmente.


Imprimir apenas anexo (s) de e-mails selecionados com VBA

Se você deseja imprimir os anexos de e-mails selecionados, você pode usar o código VBA.

1. Selecione os e-mails dos quais deseja imprimir os anexos, pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.

2. Duplo click Esta sessão do Outlook desde Project1 painel, copie e cole o código abaixo 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

doc imprimir anexo 4

3. Então clique Ferramentas > Referências, E no Referências diálogo, verificar Tempo de execução de scripts da Microsoft caixa de seleção.
doc imprimir anexo 5   doc imprimir anexo 6

4. Clique OK, então aperte F5 tecla para imprimir todos os anexos dos e-mails selecionados em massa.

Nota: Se o anexo for uma imagem, aparecerá um Imprimir fotos diálogo primeiro, clique Impressão para ir para o Salvar saída de impressão como diálogo.
doc imprimir anexo 7


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 (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
como posso habilitar as macros? Semana passada funcionou perfeitamente.
Este comentário foi feito pelo moderador no site
Eu tentei a opção de vários emails de colar o código VBA, mas quando pressiono F5 para executá-lo, recebo um erro de sintaxe com esta linha destacada:
Se xItem.Class = olMail Então


Alguma idéia?
Este comentário foi feito pelo moderador no site
Você marcou a caixa de seleção Microsoft Scripting Runtime?
Este comentário foi feito pelo moderador no site
como você imprime anexos em vários e-mails, mas com um determinado intervalo de páginas
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos