Hur skriver man bara ut bilagor från en e-post eller utvalda e-postmeddelanden i Outlook?
I Outlook kan du skriva ut e-postmeddelandena, men har du bara skrivit ut bilagorna från ett e-postmeddelande eller utvalda e-postmeddelanden i Outlook? I den här artikeln presenterar jag knep för att lösa detta jobb.
Skriv bara ut bilagor från ett e-postmeddelande med Snabbutskrift
Skriv bara ut bilagor från utvalda e-postmeddelanden med VBA
Skriv bara ut bilagor från ett e-postmeddelande med Snabbutskrift
Om du bara vill skriva ut bilagorna utan e-postadress kan du använda funktionen Snabbutskrift.
1. I meddelandefönstret högerklickar du på den bilaga som du vill skriva ut och väljer Snabbutskrift från snabbmenyn.
2. Klicka sedan Save > Save för att spara bilagan på en plats.
3. Gå nu till platsen där du placerade bilagan och öppna filen för att skriva ut som vanligt.
Skriv bara ut bilagor från utvalda e-postmeddelanden med VBA
Om du vill skriva ut bilagorna från valda e-postmeddelanden kan du använda VBA-kod.
1. Välj e-postmeddelandena som du vill skriva ut bilagorna, tryck på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. Dubbelklicka ThisOutlookSession från Project1 rutan, kopiera och klistra in under koden i skriptet.
VBA: Skriv ut bilagor från valda e-postmeddelanden
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. Klicka sedan verktyg > Referensprojekt, och i Referensprojekt dialogrutan, kontrollera Microsoft Scripting Runtime kryssrutan.
4. klick OK, Tryck sedan på F5 för att skriva ut alla bilagor i de valda e-postmeddelandena i bulk.
Anmärkningar: Om bilagan är bild, kommer den att dyka upp a Skriv ut bilder Klicka först i dialogrutan Skriva ut för att gå till Spara utskriftsutgång som dialog.
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.