Note: The other languages of the website are Google-translated. Back to English

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.
příloha k tisku dokumentu 1

2. Pak klikněte na tlačítko Uložit > Uložit uložit soubor přílohy na místo.
příloha k tisku dokumentu 2
příloha k tisku dokumentu 3

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

příloha k tisku dokumentu 4

3. Pak klikněte na tlačítko Tools > Reference, a v Reference dialog, zkontrolujte Microsoft Scripting Runtime checkbox.
příloha k tisku dokumentu 5   příloha k tisku dokumentu 6

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.
příloha k tisku dokumentu 7


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
jak mohu povolit makra? Minulý týden to fungovalo perfektně.
Tento komentář byl moderátorem webu minimalizován
Vyzkoušel jsem možnost vložení kódu VBA pomocí více e-mailů, ale když jej spustím stisknutím klávesy F5, zobrazí se chyba syntaxe se zvýrazněným tímto řádkem:
If xItem.Class = olMail Then


Nějaké nápady?
Tento komentář byl moderátorem webu minimalizován
Zaškrtli jste políčko Microsoft Scripting Runtime?
Tento komentář byl moderátorem webu minimalizován
jak tisknete přílohy ve více e-mailech, ale s určitým rozsahem stránek
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL