Como imprimir anexos automaticamente quando os emails chegam ao Outlook?

Este tutorial demonstra um método para combinar um script VBA e uma regra do Outlook para ajudá-lo a imprimir automaticamente anexos de determinados emails quando eles chegam ao Outlook.

Imprima anexos automaticamente quando determinados e-mails chegarem

Supondo que você queira imprimir anexos de e-mails recebidos de um determinado remetente automaticamente. Você pode fazer o seguinte para fazê-lo.

Etapa 1: criar um script no Outlook

Em primeiro lugar, você precisa criar um script VBA no Outlook.

1. Inicie o Outlook, pressione o outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duas vezes em Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o ThisOutlookSession (Código) window e, em seguida, copie o código a seguir para esta janela de código.

Código VBA 1: Imprima anexos automaticamente (todos os tipos de anexos) quando os e-mails chegarem

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xTempFolder & "\" & xAtt.FileName
      xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
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

Observação: Este código suporta a impressão de todos os tipos de anexos recebidos em e-mails. Se você deseja imprimir apenas o tipo de anexo especificado, como arquivos pdf, aplique o seguinte código VBA.

Código VBA 2: Imprima automaticamente o tipo de anexo especificado quando os e-mails chegarem

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileType As String, xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xAtt.FileName
      xFileType = LCase$(Right$(xFileName, VBA.Len(xFileName) - VBA.InStrRev(xFileName, ".")))
      xFileName = xTempFolder & "\" & xFileName
      Select Case xFileType
        Case "pdf"   'change "pdf" to the file extension you want to print
          xAtt.SaveAsFile (xFileName)
          Set xFolderItem = xFolder.ParseName(xFileName)
          xFolderItem.InvokeVerbEx ("print")
      End Select
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
  Exit Sub
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

Notas:

3. Vá em frente e clique Ferramentas > Referências. No surgimento Referências - Projeto1 caixa de diálogo, verifique a Tempo de execução de scripts da Microsoft e, em seguida, clique no OK botão.

4. Salve o código e pressione o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

Observação: Certifique-se de que o Habilitar todas as macros opção está habilitada no seu Outlook. Você pode marcar esta opção seguindo as etapas mostradas abaixo.

Etapa 2: criar uma regra para usar o script

Depois de adicionar o script VBA no Outlook, você precisa criar uma regra para usar o script com base em determinadas condições.

1. Vá para a guia Início, clique em Regras > Gerenciar regras e alertas.

2. No Regras e Alertas caixa de diálogo, clique no botão Nova regra botão para criar uma regra.

Dicas: Se você adicionou várias contas de email ao seu Outlook, especifique uma conta no Aplicar alterações a esta pasta lista suspensa onde você deseja aplicar a regra. Caso contrário, ele será aplicado à caixa de entrada da conta de e-mail selecionada no momento.

3. No primeiro Assistente de regras caixa de diálogo, selecione Aplicar regra nas mensagens que recebo no Passo 1 caixa e, em seguida, clique em Avançar.

4. Na segunda Assistente de regras caixa de diálogo, você precisa:

5. No terceiro Assistente de regras caixa de diálogo, você precisa configurar da seguinte maneira.

Dicas: Se oexecute um script” está faltando no seu Assistente de regras, você pode exibi-lo seguindo o método mencionado neste artigo: restaurar a pption Executar um script ausente na regra do Outlook.

6. Depois outro Assistente de regras aparece pedindo exceções. Você pode selecionar as exceções, se necessário, caso contrário, clique no botão Próximo botão sem nenhuma seleção。

7. No último Assistente de regras, você precisa especificar um nome para a regra e, em seguida, clicar no botão Acabamento botão.

8. Em seguida, ele retorna para o Regras e Alertas caixa de diálogo, você pode ver a regra que você criou listada dentro, clique no OK botão para terminar todas as configurações.

A partir de agora, quando um e-mail da pessoa especificada for recebido, os arquivos anexados serão impressos automaticamente.

Artigos relacionados

---

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.

Saiba Mais       Download grátis      Comprar