Kako natisniti vse priloge v enem / več e-poštnih sporočilih v Outlooku?
Kot veste, bo e-poštno vsebino, na primer glavo, telo, natisnil šele, ko kliknete file > Tiskanje v Microsoft Outlooku, vendar ne natisnite prilog. Tu vam bomo pokazali, kako v programu Microsoft Outlook enostavno natisnete vse priloge v izbranem e-poštnem sporočilu.
- Natisnite vse priloge v enem e-poštnem sporočilu enega za drugim
- Skupinsko natisnite vse priloge v enem e-poštnem sporočilu
- Paketno tiskanje vseh prilog in slik v več izbranih e-poštnih sporočilih
- Paketno tiskanje vseh prilog v več izbranih e-poštnih sporočilih, razen slik v telesu
Natisnite vse priloge v enem e-poštnem sporočilu enega za drugim
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).
Skupinsko natisnite vse priloge v enem e-poštnem sporočilu
Č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.
Paketno tiskanje vseh prilog in slik v več izbranih e-poštnih sporočilih
Č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?
Paketno tiskanje vseh prilog v več izbranih e-poštnih sporočilih, razen slik v telesu
Č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?
Predstavitev: natisnite eno ali vse priloge v Outlookovem e-poštnem sporočilu
Nasvet: V tem videu, Kutools zavihek doda Kutools za Outlook. Če jo potrebujete, kliknite tukaj imeti 60-dnevno brezplačno preskusno različico brez omejitev!
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.