Preskoči na glavno vsebino

Kako natisniti priloge samo iz enega e-poštnega sporočila ali izbranih e-poštnih sporočil v Outlooku?

V Outlooku lahko natisnete e-poštna sporočila, vendar ste priloge natisnili samo iz enega ali izbranih e-poštnih sporočil v Outlooku? V tem članku predstavljam trike pri reševanju tega dela.

S hitrim tiskanjem tiskajte samo priloge iz enega e-poštnega sporočila

Natisnite samo priloge iz izbranih e-poštnih sporočil z VBA


S hitrim tiskanjem tiskajte samo priloge iz enega e-poštnega sporočila

Če želite priloge natisniti samo brez telesa e-pošte, lahko uporabite funkcijo hitrega tiskanja.

1. V oknu s sporočilom z desno miškino tipko kliknite prilogo, ki jo želite natisniti, izberite Hitri tisk iz kontekstnega menija.
priloga za tiskanje dokumentov 1

2. Nato kliknite Shrani > Shrani shranite datoteko s prilogami na mesto.
priloga za tiskanje dokumentov 2
priloga za tiskanje dokumentov 3

3. Zdaj pojdite na mesto, kamor ste postavili datoteko s prilogami, in jo odprite za tiskanje kot običajno.


Natisnite samo priloge iz izbranih e-poštnih sporočil z VBA

Če želite natisniti priloge iz izbranih e-poštnih sporočil, lahko uporabite kodo VBA.

1. Izberite e-poštna sporočila, ki jih želite natisniti, kliknite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. Dvojni klik Ta OutlookSession iz Project1 podokno, kopirajte in prilepite spodnjo kodo v skript.

VBA: natisnite priloge iz izbranih e-poštnih sporočil

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

priloga za tiskanje dokumentov 4

3. Nato kliknite Orodja > Reference, in v Reference pogovorno okno, preverite Izvajanje Microsoftovih skriptov potrditveno polje.
priloga za tiskanje dokumentov 5   priloga za tiskanje dokumentov 6

4. klik OK, Nato pritisnite F5 tipko za skupno tiskanje vseh prilog v izbranih e-poštnih sporočilih.

Opombe: Če je priloga slika, se prikaže a Natisni slike najprej pogovorno okno, kliknite Tiskanje Pojdite na Save Print Out As dialog.
priloga za tiskanje dokumentov 7


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how do you print attachments in multiple emails but with a certain page range
This comment was minimized by the moderator on the site
I tried the multiple emails option of pasting the VBA code, but when I press F5 to run it, I get a syntax error with this line highlighted:
If xItem.Class = olMail Then


Any ideas?
This comment was minimized by the moderator on the site
Have you check the Microsoft Scripting Runtime checkbox?
This comment was minimized by the moderator on the site
how can I enable the macro's? Last week it worked perfectly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations