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.
2. Então clique Salvar > Salvar para salvar o arquivo de anexo em um local.
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 da 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
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.
4. Clique OK, então aperte F5 tecla para imprimir todos os anexos dos e-mails selecionados em massa.
Note: 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.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.