Jak v Outlooku tisknout pouze přílohy z jednoho e-mailu nebo vybraných e-mailů?
V Outlooku můžete e-maily tisknout, ale tiskli jste přílohy pouze z jednoho e-mailu nebo vybraných e-mailů v Outlooku? V tomto článku představuji triky při řešení této úlohy.
Tiskněte přílohy pouze z jednoho e-mailu pomocí funkce Rychlý tisk
Tisknout přílohy pouze z vybraných e-mailů pomocí VBA
Tiskněte přílohy pouze z jednoho e-mailu pomocí funkce Rychlý tisk
Chcete-li tisknout přílohy pouze bez těla e-mailu, můžete použít funkci Rychlý tisk.
1. V okně zprávy klepněte pravým tlačítkem myši na přílohu, kterou chcete vytisknout, vyberte Rychlá tisk z kontextové nabídky.
2. Pak klikněte na tlačítko Uložit > Uložit uložit soubor přílohy na místo.
3. Nyní přejděte do umístění, kde jste umístili soubor přílohy, a otevřete soubor, který chcete vytisknout jako obvykle.
Tisknout přílohy pouze z vybraných e-mailů pomocí VBA
Chcete-li vytisknout přílohy z vybraných e-mailů, můžete použít kód VBA.
1. Vyberte e-maily, které chcete vytisknout, stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.
2. Dvojklik ThisOutlookSession od Project1 podokno, zkopírujte a vložte pod kód do skriptu.
VBA: Tisk příloh z vybraných e-mailů
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. Pak klikněte na tlačítko Tools > Reference, a v Reference dialog, zkontrolujte Microsoft Scripting Runtime checkbox.
4. cvaknutí OK, Poté stiskněte tlačítko F5 klíč k hromadnému tisku všech příloh ve vybraných e-mailech.
Poznámka: Pokud je příloha obrázkem, vyskakuje a Tisk obrázků nejprve klikněte na Tisk přejděte na Uložit výstup tisku jako dialog.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.
