Note: The other languages of the website are Google-translated. Back to English

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

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). Kliknite za 60-dnevno brezplačno preskusno različico brez omejitev!
shrani priloge v več e-poštnih sporočilih

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!


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (23)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
To je zelo koristno, vendar mi ne pomaga pri Office 365??
Ta komentar je moderator na spletnem mestu minimiziral
Ta del bi lahko ugotovil sam – poskušam ugotoviti, zakaj se priloge kljub temu ne bi tiskale. Za vsako prilogo se prikaže sporočilo o napaki, ki sprašuje, ali želim "odpreti" ali "shraniti". Če izberete katero koli možnost, dobite točno te rezultate - z drugimi besedami, še vedno ni tiskanja, samo odpiranje ali shranjevanje. Imam 20 prilog iz 4 e-poštnih sporočil. Resnično nočem odpreti 80 dokumentov samo zato, da bi jih lahko natisnil. Očitno obstaja neka varnostna nastavitev "reši me samega sebe", ki jo je treba izbrisati, da bom lahko uporabljal svoj računalnik in operacijski sistem, ki sem ga kupil in plačal. To moram vedeti.
Ta komentar je moderator na spletnem mestu minimiziral
Dvokliknite na e-poštno sporočilo, da se samodejno "izklopi". Z desno miškino tipko kliknite eno od prilog in kliknite »izberi vse«, nato pa »hitro tiskanje«.
Ta komentar je moderator na spletnem mestu minimiziral
Strinjam se z Leah, to ne deluje. Natisne samo glavnino e-pošte in prvo prilogo, ne vseh. Potrebujete navodila, kako jih vse natisniti z zgoraj prikazanimi možnostmi »izberi vse«.
Ta komentar je moderator na spletnem mestu minimiziral
če želite natisniti vse priloge skupaj v 1 e-poštnem sporočilu, naredite to. najprej naredite mapo na namizju....svoj sem poimenoval "print". pojdite na e-poštno sporočilo s prilogami .... označite vse priloge, kliknite z desno tipko miške, shranite vse priloge v mapo za tiskanje. Odprite mapo za tiskanje.....označite vse.....desni klik.....natisni.



zdaj, ko bi le lahko ugotovil, kako natisniti vse priloge v 200 e-poštnih sporočilih, ne da bi vsakega odpiral in natisnil.
Ta komentar je moderator na spletnem mestu minimiziral
Funkcija Kutools for Outlook Odstrani vse (priloge) vam lahko pomaga prenesti vse priloge iz več e-poštnih sporočil z več kliki! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Ta komentar je moderator na spletnem mestu minimiziral
če ima pdf isto ime, makro natisne samo en pdf, kako lahko spremenim kodo, da spremenim ime pdf?
Ta komentar je moderator na spletnem mestu minimiziral
koda VBA daje sintakso napako
Ta komentar je moderator na spletnem mestu minimiziral
v 9. vrstici mi je uspelo odstraniti "Ob napaki nadaljevati nadaljevanje".
Ta komentar je moderator na spletnem mestu minimiziral
ja, tudi meni je to pravkar delovalo. Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala 
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, že nekaj tednov uporabljam to bližnjico, natisnem vse priloge iz več e-poštnih sporočil hkrati, pred kratkim pa sem moral odstraniti 9. vrstico, kot je rekla Nilanka, ki deluje, vendar to ne deluje več. Dobivam okence z opozorilom, ki pravi, da so makri v tem projektu onemogočeni.....in tako naprej... če ima kdo rešitev, da bi to delovalo, kot je bilo pred zdaj, prosim lmk, ker izberem približno 60 e-poštna sporočila, ki vsebujejo priloge za tiskanje. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni vsi, 2022. avgusta 08 smo posodobili kodo VBA v vadnici. Če morate še vedno natisniti vse priloge, preverite novo kodo. 😊
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, to mi je včeraj dobro delovalo, zdaj pa piše 'makri v tem projektu so onemogočeni' Kakšen nasvet, kako jih omogočiti? 
Ta komentar je moderator na spletnem mestu minimiziral
Ta komentar je moderator na spletnem mestu minimiziral
Vielen, vielen Dank dafür! Hat uns enorm viel Arbeit erspart.Auch ich musste - wie bereits in den Kommentaren geschrieben - die neunte Zeile "Dim xAttachment As Outlook.Attachment On Error Resume Next" entfernen, dann lief der Code einfandfrei durch.
Ta komentar je moderator na spletnem mestu minimiziral
halo, ich möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
Ta komentar je moderator na spletnem mestu minimiziral
Uporabljam Microsoft 365 in to je delovalo po izbrisu vrstice 9. Hvala! To mi je prihranilo nekaj časa.
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani,

Preizkusil sem VBA in koda se izvaja, vendar se na zaslonu odpre veliko pojavnih oken za tiskanje slik iz poštnega podpisa (očitno se to šteje za prilogo). Ve kdo, kako to rešiti?

S.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Oprostite, tiskanje slik bo prikazalo pojavna okna. Za prenos vseh slik boste morali potrditi vsako. Če vam ni treba natisniti slik, kliknite Prekliči.

Amanda
Ta komentar je moderator na spletnem mestu minimiziral
Če ne želite natisniti slik v telesu sporočila, uporabite spodnjo kodo:
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
Ta komentar je moderator na spletnem mestu minimiziral
Draga Amanda,

Hvala za kodo. Delovalo je!

S.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije