Come stampare automaticamente gli allegati quando le email arrivano in Outlook?

Author: Siluvia Last Modified: 2025-08-06

Questa guida dimostra un metodo per combinare uno script VBA e una regola di Outlook per aiutarti a stampare automaticamente gli allegati di determinate email quando arrivano in Outlook.

Stampa automaticamente gli allegati quando arrivano determinate email

Passo 1: Crea uno script in Outlook

Passo 2: Crea una regola per utilizzare lo script

Stampa automaticamente gli allegati quando arrivano determinate email

Supponendo che tu voglia stampare automaticamente gli allegati delle email in arrivo da un certo mittente. Puoi procedere come segue per farlo.

Passo 1: Crea uno script in Outlook

Innanzitutto, devi creare uno script VBA in Outlook.

1. Avvia il tuo Outlook, premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic su Project1 > Microsoft Outlook Objects > ThisOutlookSession per aprire la finestra ThisOutlookSession (Codice), quindi copia il seguente codice in questa finestra di codice.

steps of auto printing attachments when emails arrive in Outlook

Codice VBA 1: Stampa automaticamente gli allegati (tutti i tipi di allegati) quando arrivano le email

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

Nota: Questo codice supporta la stampa di tutti i tipi di allegati ricevuti nelle email. Se vuoi stampare solo un tipo specifico di allegato, come file pdf, applica il seguente codice VBA.

Codice VBA 2: Stampa automaticamente il tipo specifico di allegati quando arrivano le email

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

Note:

1. Prima di applicare questo codice VBA per stampare solo il file pdf nelle email in arrivo, devi prima scaricare e installare Adobe Acrobat Reader e impostarlo come lettore pdf predefinito nel tuo computer.

2. Nella riga Case "pdf", cambia "pdf" con l'estensione del file che desideri stampare.

3. Procedi e clicca su Strumenti > Riferimenti. Nella finestra di dialogo Riferimenti – Project1 che appare, seleziona la casella Microsoft Scripting Runtime, quindi clicca sul pulsante OK.

4. Salva il codice e premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

Nota: Assicurati che l'opzione Abilita tutte le macro sia abilitata nel tuo Outlook. Puoi controllare questa opzione seguendo i passaggi mostrati di seguito.

Passo 2: Crea una regola per utilizzare lo script

Dopo aver aggiunto lo script VBA in Outlook, devi creare una regola per utilizzare lo script in base a determinate condizioni.

1. Vai alla scheda Home, clicca su Regole > Gestisci regole e avvisi.

2. Nella finestra di dialogo Regole e avvisi, clicca sul pulsante Nuova regola per creare una regola.

Suggerimenti: Se hai aggiunto più account email al tuo Outlook, specifica un account nell'elenco a discesa Applica modifiche a questa cartella dove vuoi applicare la regola. Altrimenti, verrà applicata alla posta in arrivo dell'account email attualmente selezionato.

3. Nella prima finestra di dialogo Guida per le regole, seleziona Applica regola sui messaggi che ricevo nella casella Passo 1, quindi clicca su Avanti.

4. Nella seconda finestra di dialogo Guida per le regole, devi:

4.1) Specifica una o più condizioni nella casella Passo 1 in base alle tue esigenze;

In questo caso, voglio stampare solo gli allegati nelle email in arrivo da un mittente specifico. Qui, seleziono la casella da persone o gruppo pubblico.

4.2) Clicca sul valore sottolineato nella casella Passo 2 per modificare la condizione;

4.3) Clicca su Avanti. Vedi screenshot:

5. Nella terza finestra di dialogo Guida per le regole, devi configurare come segue.

5.1) Nella sezione Passo 1: Seleziona azione(i), seleziona la casella esegui uno script;

5.2) Nella sezione Passo 2, clicca sul testo sottolineato “uno script”;

5.3) Nella finestra di dialogo Seleziona Script che si apre, clicca sul nome del codice VBA che hai aggiunto sopra, quindi clicca su OK;

5.4) Clicca sul pulsante Avanti. Vedi screenshot:

Suggerimenti: Se l'opzione “esegui uno script” manca nella tua Guida per le regole, puoi visualizzarla seguendo il metodo menzionato in questo articolo: ripristina l'opzione Run A Script mancante nella regola di Outlook.

6. Poi appare un'altra finestra Guida per le regole che chiede eccezioni. Puoi selezionare le eccezioni se necessario, altrimenti, clicca sul pulsante Avanti senza alcuna selezione.

7. Nell'ultima finestra Guida per le regole, devi specificare un nome per la regola, quindi clicca sul pulsante Fine.

8. Quindi ritorna alla finestra di dialogo Regole e avvisi, puoi vedere la regola che hai creato elencata all'interno, clicca sul pulsante OK per completare tutte le impostazioni.