Hogyan nyomtathatja ki az összes mellékletet egy / több e-mailben az Outlook programban?
Mint tudja, csak akkor nyomtatja ki az e-mail tartalmát, mint a fejléc, a törzs, amikor a gombra kattint filé > a Microsoft Outlook alkalmazásban, de ne nyomtassa ki a mellékleteket. Itt megmutatjuk, hogyan nyomtathatja könnyedén az összes mellékletet egy kiválasztott e-mailben a Microsoft Outlook alkalmazásban.
- Nyomtassa ki az összes mellékletet egy e-mailben egyenként
- Az összes mellékletet kötegesen nyomtathatja ki egy e-mailben
- Az összes melléklet és kép kötegelt nyomtatása több kiválasztott e-mailben
- Az összes melléklet kötegelt nyomtatása több kiválasztott e-mailben, kivéve a törzsben található képeket
Nyomtassa ki az összes mellékletet egy e-mailben egyenként
A Microsoft Outlook biztosítja számunkra Gyors nyomtatás funkcióval, amely egyesével nyomtathat egy e-mail mellékleteket.
1. Válassza ki azt az e-mail üzenetet, amelynek mellékletét később kinyomtatja.
2. Kattintson az egyik mellékletre ebben az e-mailben.
3. Kattintson az Gyors nyomtatás gombot a Hozzászólások csoport a Berendezés Tab.
Megjegyzés: a Melléklet eszközök addig nem aktiválódik, amíg nem kattint az e-mailekben található mellékletekre.
4. Megjelenik a Nyitó levélmelléklet párbeszédpanel, és kattintson a gombra Nyisd ki gombot.
Felhívjuk figyelmét, hogy ez a lépés megnyitja a kiválasztott mellékletet, és ezzel egyidejűleg kinyomtatja a kiválasztott mellékletet is.
Az e-mailben található egyéb mellékletek kinyomtatásához ismételje meg a 2. és 4. lépést.
Gyorsan mentse / exportálja az összes mellékletet több e-mailből az Outlook programban
Normál esetben a melléklet aktiválásával egyetlen e-mailből menthetjük a mellékleteket Melléklet eszközök és alkalmazza a Az összes melléklet mentése funkció az Outlookban. De mi van akkor, ha több e-mail mellékletét menti, vagy az Outlook teljes levélmappájából? Próbálja ki a Kutools for Outlook programot Összes mentése (Mellékletek) funkció.
Az összes mellékletet kötegesen nyomtathatja ki egy e-mailben
Ha sok melléklet van egy e-mailben, időigényes lesz egyenként kinyomtatni őket. A következő módszer pedig végigvezeti Önt a kiválasztott e-mail üzenet összes mellékletének kötegelt nyomtatásán.
1. Válassza ki azt az e-mail üzenetet, amelynek mellékletét később kinyomtatja.
2. Az Outlook 2010 vagy újabb verzióiban kattintson a gombra filé > > Nyomtatási beállítások. Lásd a következő képernyőképet:
3. A Nyomtatás párbeszédpanelen ellenőrizze a Csatolt fájlok nyomtatása. A mellékletek csak az alapértelmezett nyomtatóra nyomtathatók lehetőség a Nyomtatási beállítások szakasz.
4. Kattintson az gombot.
5. A felbukkanó Levelezési melléklet megnyitása párbeszédpanelen kattintson a gombra Nyisd ki gombot. (Megjegyzések: Ez a párbeszédpanel minden melléklethez külön jelenik meg.)
Mostantól a kiválasztott e-mail üzenet összes melléklete egyszerre kinyomtatásra kerül.
Az összes melléklet és kép kötegelt nyomtatása több kiválasztott e-mailben
Ha több e-mail összes mellékletét, valamint az üzenettörzs összes képét szeretné kinyomtatni az Outlook programban, kövesse az alábbi lépéseket a VBA-kód alkalmazásához.
1. A levelezőlistán tartsa lenyomva Ctrl or műszak gombokkal válassza ki több e-mailt, amelyeknek a mellékletét kinyomtatja.
2. nyomja meg más + F11 gombokat együtt a Microsoft Visual Basic for Applications ablak megnyitásához.
3. A Microsoft Visual Basic for Applications ablakban kattintson a gombra Eszközök > Referenciák. És akkor ellenőrizze a Microsoft Scripting Runtime opciót az alábbiak szerint. Ha végzett, kattintson OK.
4. Kattints betétlap > Modulok, majd illessze be a VBA kód alá az új modul ablakba.
VBA: Az összes melléklet nyomtatása több Outlook e-mailben
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. nyomja meg F5 vagy kattintson a gombra futás gombot a VBA kód futtatásához. Most látni fogja, hogy a kiválasztott e-mailek összes melléklete és a meesage törzsben lévő képek ki vannak nyomtatva.
Jegyzet:
- Minden képen megjelenik egy felugró párbeszédpanel, amely a nyomtatás megerősítését kéri. Míg más típusú fájlokat közvetlenül nyomtat.
- Ha az e-mail-aláírásban képek vannak, akkor felugró párbeszédpanelek is megjelennek.
- Ha kapsz A makrók ebben a projektben le vannak tiltva hiba, kérjük, ellenőrizze ezt az oktatóanyagot: Hogyan lehet makrókat engedélyezni és letiltani az Outlookban?
Az összes melléklet kötegelt nyomtatása több kiválasztott e-mailben, kivéve a törzsben található képeket
Ha csak több e-mail mellékletét szeretné kinyomtatni, de az üzenettörzsben lévő képeket az Outlook programban, kövesse az alábbi lépéseket a VBA-kód alkalmazásához.
1. A levelezőlistán tartsa lenyomva Ctrl or műszak gombokkal válassza ki több e-mailt, amelyeknek a mellékletét kinyomtatja.
2. nyomja meg más + F11 gombokat együtt a Microsoft Visual Basic for Applications ablak megnyitásához.
3. A Microsoft Visual Basic for Applications ablakban kattintson a gombra Eszközök > Referenciák. És akkor ellenőrizze a Microsoft Scripting Runtime opciót az alábbiak szerint. Ha végzett, kattintson OK.
4. Kattints betétlap > Modulok, majd illessze be a VBA kód alá az új modul ablakba.
VBA: Az összes melléklet nyomtatása több Outlook e-mailben
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. nyomja meg F5 vagy kattintson a gombra futás gombot a VBA kód futtatásához. Most látni fogja, hogy a kiválasztott e-mailek összes melléklete ki van nyomtatva.
Jegyzet:
- Minden csatolt képen megjelenik egy felugró párbeszédpanel, amely a nyomtatás megerősítését kéri. Míg más típusú fájlokat közvetlenül nyomtat.
- Az üzenettörzsben szereplő képek nem kerülnek kinyomtatásra.
- Ha kapsz A makrók ebben a projektben le vannak tiltva hiba, kérjük, ellenőrizze ezt az oktatóanyagot: Hogyan lehet makrókat engedélyezni és letiltani az Outlookban?
Bemutató: az egyik vagy az összes melléklet kinyomtatása egy Outlook e-mailben
típus: Ebben a videóban, Kutools lapot hozzáadta Kutools az Outlook számára. Ha szüksége van rá, kattintson itt 60 napos ingyenes próbaidőszak korlátozás nélkül!
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.