Hvordan udskrives kun vedhæftede filer fra en e-mail eller udvalgte e-mails i Outlook?
I Outlook kan du udskrive e-mails, men har du kun udskrevet vedhæftede filer fra en e-mail eller udvalgte e-mails i Outlook? I denne artikel introducerer jeg tricks til at løse dette job.
Udskriv kun vedhæftede filer fra en e-mail med Quick Print
Udskriv kun vedhæftede filer fra valgte e-mails med VBA
Udskriv kun vedhæftede filer fra en e-mail med Quick Print
For at udskrive vedhæftede filer kun uden e-mail-krop kan du bruge funktionen Hurtig udskrivning.
1. I meddelelsesvinduet skal du højreklikke på den vedhæftede fil, du vil udskrive, vælge Hurtig udskrivning fra kontekstmenuen.
2. Klik derefter på Gem > Gem for at gemme vedhæftningsfilen et sted.
3. Gå nu til det sted, hvor du placerede vedhæftningsfilen, og åbn filen for at udskrive som normalt.
Udskriv kun vedhæftede filer fra valgte e-mails med VBA
Hvis du vil udskrive vedhæftede filer fra valgte e-mails, kan du bruge VBA-kode.
1. Vælg de e-mails, du vil udskrive vedhæftede filer, og tryk på Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Dobbeltklik Denne OutlookSession fra Project1 rude, kopier og indsæt nedenstående kode i scriptet.
VBA: Udskriv vedhæftede filer fra valgte e-mails
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. Klik derefter på Værktøjer > Referencer, og i Referencer dialog, tjek Microsoft Scripting Runtime afkrydsningsfelt.
4. klik OK, Og tryk derefter på F5 nøgle til at udskrive alle vedhæftede filer i de valgte e-mails i bulk.
Bemærk: Hvis den vedhæftede fil er et billede, vil den springe ud a Udskriv billeder Klik først på dialogboksen Print at gå til Gem udskrivning som dialogen.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.