Come stampare tutti gli allegati contenuti in una o più email di Outlook?

4. Viene visualizzata la finestra di dialogo Apri allegato di posta; fare clic sul pulsante Apri.

Si noti che questo passaggio aprirà e stamperà contemporaneamente l'allegato selezionato.

Per stampare ulteriori allegati inclusi in questa email, ripeti i passaggi da 2 a 4.

Salva/esporta rapidamente tutti gli allegati da più email in Outlook

Di solito possiamo salvare gli allegati da un'email attivando gli Strumenti allegati e utilizzando la funzione Salva tutti gli allegati in Outlook. Ma cosa fare se si desidera salvare gli allegati da più email o da un’intera cartella della posta in Outlook? Prova la funzione di Kutools per Outlook Salva tutto (Allegati).

Goditi subito la versione gratuita di Kutools per Outlook, che include 100+ funzionalità, e 70+ funzionalità sono gratuite a vita!

Stampa in blocco tutti gli allegati presenti in un'email

Se l’email contiene numerosi allegati, stamparli uno alla volta risulta lungo e dispendioso in termini di tempo. Il metodo seguente mostra come Stampa in Blocco consenta di stampare facilmente tutti gli allegati di un’email selezionata.

1. Seleziona il messaggio email i cui allegati desideri stampare.

2. In Outlook 2010 o versioni successive, fai clic su File > Stampa > Opzioni di stampa. Vedi lo screenshot seguente:

3. Nella finestra di dialogo Stampa, nella sezione Opzioni di stampa, selezionare l’opzione Stampa Allegato. Gli allegati verranno stampati solo sulla stampante predefinita.

4. Fai clic sul pulsante Stampa.

5. Nella finestra popup Apri allegato di posta, fai clic sul pulsante Apriper procedere. ()Nota: questa finestra popup apparirà separatamente per ogni allegato.)

Ora tutti gli allegati presenti nel messaggio e-mail selezionato verranno stampati contemporaneamente.

Stampa in blocco tutti gli allegati e le immagini presenti in più email selezionate

Per stampare tutti gli allegati presenti in più email e tutte le immagini nel corpo del messaggio in Outlook, seguire i passaggi seguenti per applicare un codice VBA.

1. Nell’elenco delle email, tieni premuto Ctrl o Maiusc per selezionare più messaggi i cui allegati desideri stampare.

2. Premi contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.

3. Nella finestra di Microsoft Visual Basic, Applications, fai clic su Strumenti > Riferimenti. Seleziona quindi l’opzione Microsoft Scripting Runtime, come mostrato di seguito, e infine fai clic su OK.

4. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice VBA nella nuova finestra del modulo.

VBA: stampa tutti gli allegati presenti in più email di Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Premere il tasto F5 o fare clic sul pulsante Esegui per eseguire il codice VBA. A questo punto verranno stampati tutti gli allegati delle email selezionate e le immagini presenti nel corpo del messaggio.

Nota:

• Ogni immagine mostrerà una finestra di dialogo popup per chiedere la conferma della stampa. Gli altri Tipo di file verranno invece stampati direttamente.
• Se nella firma dell'email sono presenti immagini, queste mostreranno anch’esse finestre di dialogo popup.
• Se viene visualizzato l’errore Le macro di questo progetto sono disabilitate, consultare questa guida:Come si abilitano e disabilitano le macro in Outlook?

Stampa in blocco tutti gli allegati presenti in più email selezionate, escluse le immagini nel corpo del messaggio

Per stampare soltanto gli allegati presenti in più email, escludendo le immagini nel corpo del messaggio in Outlook, seguire i passaggi seguenti per applicare un codice VBA.

1. Nella Elenco email, tenere premuto Ctrlo Maiuscper selezionare più email i cui allegati si desidera stampare.

2. Premere contemporaneamente i tasti Alt+F11per aprire la finestra Microsoft Visual Basic, Applications.

3. Nella finestra Microsoft Visual Basic, Applications, fare clic su Strumenti>Riferimenti. Selezionare quindi l’opzione Microsoft Scripting Runtimecome mostrato di seguito. Al termine, fare clic su OK.

4. Fare clic su Inserisci>Modulo, quindi incollare il codice VBA seguente nella nuova finestra del modulo.

VBA: stampa tutti gli allegati presenti in più email di Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
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

5. Premere il tasto F5 o fare clic sul pulsante Esegui per eseguire il codice VBA. A questo punto verranno stampati tutti gli allegati delle email selezionate.

Nota:

• Ogni immagine allegata mostrerà una finestra di dialogo popup per chiedere la conferma della stampa. Gli altri Tipo di file verranno invece stampati direttamente.
• Le immagini nel corpo del messaggio non verranno stampate.
• Se viene visualizzato l’errore Le macro di questo progetto sono disabilitate, consultare questa guida:Come abilitare e disabilitare le macro in Outlook?

Demo: stampa uno o tutti gli allegati in un'email di Outlook

---

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook      Scarica ora      Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

• ✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
• 🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
• 🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite⬇ Scarica la Suite💳 Acquista la Suite