Microsoft Outlook nam ponuja Hitri tisk funkcija, s katero lahko eno za drugo natisnete priloge v e-poštnem sporočilu.

1. Izberite e-poštno sporočilo, katerega priloge boste pozneje natisnili.

2. Kliknite eno prilogo v tem e-poštnem sporočilu.

3. kliknite Hitri tisk gumb v Proces skupina na Priponke tab.

Opomba: Orodja za pritrditev ne bo aktiviran, dokler v e-poštnih sporočilih ne kliknete prilog.

4. Odpre se pogovorno okno za odpiranje poštne priloge in kliknite Odprto gumb.

Upoštevajte, da bo s tem korakom odprta izbrana priloga in natisnjena izbrana priloga hkrati.

Če želite natisniti druge priloge v tem e-poštnem sporočilu, ponovite 2. do 4. korak.

Hitro shranite / izvozite vse priloge iz več e-poštnih sporočil v Outlooku

Običajno lahko shranimo priloge iz enega e-poštnega sporočila z aktiviranjem Orodja za pritrditev in uporabo Shrani vse priloge funkcija v Outlooku. Kaj pa, če shranite priloge iz več e-poštnih sporočil ali iz celotne poštne mape v Outlooku? Preizkusite Kutools za Outlook Shrani vse Funkcija (Priloge).

Če je v enem e-poštnem sporočilu veliko prilog, bo njihovo tiskanje eno za drugo dolgotrajno. Naslednja metoda vas bo enostavno vodila skozi paketno tiskanje vseh prilog v izbranem e-poštnem sporočilu.

1. Izberite e-poštno sporočilo, katerega priloge boste pozneje natisnili.

2. V programu Outlook 2010 ali novejših različicah kliknite file > Tiskanje > Možnosti tiskanja. Oglejte si naslednji posnetek zaslona:

3. V pogovornem oknu Natisni označite Natisnite priložene datoteke. Priloge bodo natisnjene samo na privzetem tiskalniku možnost v Možnosti tiskanja oddelek.

4. kliknite Tiskanje gumb.

5. V pojavnem pogovornem oknu Odpiranje priloge pošte kliknite Odprto gumb za naprej. (Opombe: To pogovorno okno se bo prikazalo za vsako prilogo posebej.)

Zdaj bodo vse priloge v tem izbranem e-poštnem sporočilu natisnjene hkrati.

Če želite natisniti vse priloge v več e-poštnih sporočilih in vse slike v telesu sporočila v Outlooku, sledite spodnjim korakom za uporabo kode VBA.

1. Na poštnem seznamu pridržite Ctrl or Shift tipke, da izberete več e-poštnih sporočil, katerih priloge boste natisnili.

2. Pritisnite druga + F11 da odprete okno Microsoft Visual Basic for Applications.

3. V oknu Microsoft Visual Basic for Applications kliknite Orodja > Reference. In nato preverite Izvajanje Microsoftovih skriptov možnost, kot je prikazano spodaj. Ko končate, kliknite OK.

4. Kliknite Vstavi > Moduliin nato pod novo kodo VBA prilepite v novo okno modula.

VBA: natisnite vse priloge v več Outlookovih e-poštnih sporočilih

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. Pritisnite F5 ali kliknite Run gumb za zagon te kode VBA. Zdaj boste videli, da so vse priloge v izbranih e-poštnih sporočilih in slike v telesu sporočila natisnjene.

Opomba:

• Vsaka slika bo prikazala pojavno pogovorno okno, ki vas bo vprašalo za potrditev tiskanja. Medtem ko bodo druge vrste datotek natisnjene neposredno.
• Če so v e-poštnem podpisu slike, se prikažejo tudi pojavna pogovorna okna.
• Če prideš Makri v tem projektu so onemogočeni napaka, preverite to vadnico: Kako omogočiti in onemogočiti makre v Outlooku?

Če želite v Outlooku natisniti samo priloge v več e-poštnih sporočilih, razen slik v telesu sporočila, sledite spodnjim korakom za uporabo kode VBA.

1. Na poštnem seznamu pridržite Ctrl or Shift tipke, da izberete več e-poštnih sporočil, katerih priloge boste natisnili.

2. Pritisnite druga + F11 da odprete okno Microsoft Visual Basic for Applications.

3. V oknu Microsoft Visual Basic for Applications kliknite Orodja > Reference. In nato preverite Izvajanje Microsoftovih skriptov možnost, kot je prikazano spodaj. Ko končate, kliknite OK.

4. Kliknite Vstavi > Moduliin nato pod novo kodo VBA prilepite v novo okno modula.

VBA: natisnite vse priloge v več Outlookovih e-poštnih sporočilih

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. Pritisnite F5 ali kliknite Run gumb za zagon te kode VBA. Zdaj boste videli, da so vse priloge v izbranih e-poštnih sporočilih natisnjene.

Opomba:

• Vsaka priložena slika bo prikazala pojavno pogovorno okno, ki vas bo vprašalo za potrditev tiskanja. Medtem ko bodo druge vrste datotek natisnjene neposredno.
• Slike v telesu sporočila ne bodo natisnjene.
• Če prideš Makri v tem projektu so onemogočeni napaka, preverite to vadnico: Kako omogočiti in onemogočiti makre v Outlooku?