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.
2. Nato kliknite Shrani > Shrani shranite datoteko s prilogami na mesto.
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
3. Nato kliknite Orodja > Reference, in v Reference pogovorno okno, preverite Izvajanje Microsoftovih skriptov potrditveno polje.
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.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 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 Pro: Shrani 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č.