Hogyan nyomtathat ki csak egy mellékletet egy e-mailből vagy az Outlook kiválasztott e-mailjeiből?
Az Outlook programban kinyomtathatja az e-maileket, de a mellékleteket csak egy e-mailből nyomtatta ki, vagy az Outlookban kiválasztott e-mailekből nyomtatta ki? Ebben a cikkben bemutatom a munka megoldásának fortélyait.
Csak egy e-mailből nyomtasson mellékleteket a Gyors nyomtatással
Csak a VBA-val ellátott kiválasztott e-mailekből nyomtasson mellékleteket
Csak egy e-mailből nyomtasson mellékleteket a Gyors nyomtatással
A mellékletek csak e-mail törzs nélkül történő nyomtatásához használja a Gyors nyomtatás funkciót.
1. Az üzenetablakban kattintson a jobb gombbal a nyomtatni kívánt mellékletre, majd válassza a lehetőséget Gyors nyomtatás a helyi menüből.
2. Ezután kattintson Megtakarítás > Megtakarítás hogy a mellékletfájlt egy helyre mentse.
3. Most menjen arra a helyre, ahová a mellékletfájlt helyezte, és nyissa meg a fájlt a szokásos módon történő nyomtatáshoz.
Csak a VBA-val ellátott kiválasztott e-mailekből nyomtasson mellékleteket
Ha ki szeretné nyomtatni a mellékleteket a kiválasztott e-mailekből, használhatja a VBA kódot.
1. Válassza ki a csatolmányokat kinyomtatni kívánt e-maileket, majd nyomja meg az gombot Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. Dupla kattintás ThisOutlookSession ból ből Project1 ablaktáblán, másolja és illessze be a kód alatti parancsfájlt.
VBA: Mellékletek nyomtatása a kiválasztott e-mailekből
Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count = 0 Then Exit Sub
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTmpFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
xTempFolderItem.InvokeVerbEx ("print")
Next
End If
Next
'If xFSO.FolderExists(xTmpFldPath) Then
' xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub
3. Ezután kattintson Eszközök > Referenciák, és a Referenciák párbeszédpanelen ellenőrizze Microsoft Scripting Runtime jelölőnégyzetet.
4. kettyenés OK, Majd nyomja meg a gombot F5 gombot a kiválasztott e-mailek összes mellékletének tömeges kinyomtatásához.
Megjegyzések: Ha a melléklet kép, akkor kiugrik a Képek nyomtatása először kattintson a gombra menni A nyomtatási kimenet mentése párbeszéd.
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.