Come stampare esclusivamente gli allegati da un'email o da email selezionate in Outlook?

In Outlook è possibile stampare le email, ma hai mai stampato solo gli allegati di un messaggio o di più messaggi selezionati? In questo articolo ti svelo alcuni trucchi per soddisfare proprio questa esigenza.

Stampa soltanto gli allegati da un'email con Stampa rapida

Stampa soltanto gli allegati da email selezionate con VBA

---

Stampa soltanto gli allegati da un'email con Stampa rapida

Per stampare esclusivamente gli allegati, senza il corpo dell'email, utilizza la funzione Stampa rapida.

1. Nella finestra del messaggio, fai clic con il tasto destro sull'allegato che vuoi stampare e scegli «Stampa rapida» dal menu contestuale.

2. Quindi fai clic su «Salva» > «Salva» per salvare il file allegato in una posizione a tua scelta.

3. Ora vai nella posizione in cui hai salvato il file allegato e aprilo per stamparlo come fai di solito.

---

Stampa soltanto gli allegati da email selezionate con VBA

Se desideri stampare gli allegati delle email selezionate, puoi utilizzare il codice VBA.

1. Seleziona le email da cui desideri stampare gli allegati, quindi premi i tasti «Alt» + «F11» per aprire la finestra di «Microsoft Visual Basic for Applications».

2. Fai doppio clic su «ThisOutlookSession» nel riquadro «Project1», quindi copia e incolla il codice seguente nello script.

VBA: stampa allegati da email selezionate

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. Quindi fai clic su «Strumenti» > «Riferimenti» e, nella finestra di dialogo «Riferimenti», seleziona la casella «Microsoft Scripting Runtime».
  

4. Fai clic su «OK», quindi premi il tasto «F5» per stampare in blocco tutti gli allegati delle email selezionate.

Nota: se l'allegato è un'immagine, verrà visualizzata innanzitutto la finestra di dialogo «Stampa immagini»; fai clic su «Stampa» per passare alla finestra «Salva output di stampa con nome».