Microsoft Outlook ci fornisce Stampa veloce funzione, che può aiutarti a stampare gli allegati in un messaggio di posta elettronica uno per uno.

1. Seleziona il messaggio e-mail di cui stamperai gli allegati in seguito.

2. Fare clic su un allegato in questa email.

3. Clicca il Stampa veloce nel pulsante Azioni gruppo sul allegati scheda.

Notare la Strumenti per gli allegati non verrà attivato finché non fai clic sugli allegati nelle e-mail.

4. Viene visualizzata una finestra di dialogo di apertura dell'allegato di posta e fare clic su Apri pulsante.

Tieni presente che questo passaggio aprirà l'allegato selezionato e allo stesso tempo stamperà l'allegato selezionato.

Per stampare altri allegati in questa e-mail, ripetere i passaggi da Passaggio 2 a Passaggio 4.

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

Normalmente possiamo salvare gli allegati da un'e-mail attivando il file Strumenti per gli allegati e applicando il Salva tutti gli allegati funzionalità in Outlook. Ma cosa succede se si salvano allegati da più e-mail o dall'intera cartella di posta in Outlook? Prova Kutools per Outlook Salva tutto Funzione (Allegati).

Se ci sono molti allegati in un messaggio di posta elettronica, sarà necessario molto tempo per stamparli uno per uno. E il seguente metodo ti guiderà attraverso la stampa in batch di tutti gli allegati in un messaggio di posta elettronica selezionato facilmente.

1. Seleziona il messaggio e-mail di cui stamperai gli allegati in seguito.

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

3. Nella finestra di dialogo Stampa, controlla il Stampa i file allegati. Gli allegati verranno stampati solo sulla stampante predefinita opzione nel Opzioni di stampa .

4. Clicca il Stampa pulsante.

5. Nella finestra di dialogo Apertura allegato di posta che si apre, fare clic su Apri pulsante per andare avanti. (Note:: Questa finestra di dialogo verrà visualizzata separatamente per ogni allegato.)

Ora tutti gli allegati in questo messaggio e-mail selezionato verranno stampati contemporaneamente.

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

1. Nella mailing list, tieni premuto Ctrl or Shift tasti per selezionare più messaggi di posta elettronica i cui allegati verranno stampati.

2. stampa altro + F11 tasti insieme per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Nella finestra di Microsoft Visual Basic, Applications Edition, fare clic su Strumenti > Riferimenti. E poi controlla il file Runtime di script Microsoft opzione come mostrato di seguito. Una volta terminato, fare clic OK.

4. Clic inserire > Moduli, quindi incolla sotto il codice VBA nella finestra del nuovo modulo.

VBA: stampa tutti gli allegati 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. Stampa F5 o fare clic su Correre pulsante per eseguire questo codice VBA. Ora vedrai che tutti gli allegati nelle e-mail selezionate e le immagini nel corpo del messaggio vengono stampati.

Nota:

• Ogni immagine farà apparire una finestra di dialogo pop-up per chiederti la conferma della stampa. Mentre altri tipi di file verranno stampati direttamente.
• Se sono presenti immagini in una firma e-mail, verranno visualizzate anche finestre di dialogo a comparsa.
• Se ottieni Le macro in questo progetto sono disabilitate errore, controlla questo tutorial: Come abilitare e disabilitare le macro in Outlook?

Per stampare solo gli allegati in più e-mail ma le immagini nel corpo del messaggio in Outlook, segui i passaggi seguenti per applicare un codice VBA.

1. Nella mailing list, tieni premuto Ctrl or Shift tasti per selezionare più messaggi di posta elettronica i cui allegati verranno stampati.

2. stampa altro + F11 tasti insieme per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Nella finestra di Microsoft Visual Basic, Applications Edition, fare clic su Strumenti > Riferimenti. E poi controlla il file Runtime di script Microsoft opzione come mostrato di seguito. Una volta terminato, fare clic OK.

4. Clic inserire > Moduli, quindi incolla sotto il codice VBA nella finestra del nuovo modulo.

VBA: stampa tutti gli allegati 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. Stampa F5 o fare clic su Correre pulsante per eseguire questo codice VBA. Ora vedrai che tutti gli allegati nelle e-mail selezionate vengono stampati.

Nota:

• Ciascuna immagine allegata farà apparire una finestra di dialogo pop-up per chiederti la conferma della stampa. Mentre altri tipi di file verranno stampati direttamente.
• Le immagini nel corpo del messaggio non verranno stampate.
• Se ottieni Le macro in questo progetto sono disabilitate errore, controlla questo tutorial: Come abilitare e disabilitare le macro in Outlook?