Salt la conținutul principal

Cum se imprimă atașament (e) numai dintr-un e-mail sau e-mailuri selectate în Outlook?

În Outlook, puteți imprima e-mailurile, dar ați imprimat atașamentele numai dintr-un singur e-mail sau e-mailuri selectate în Outlook? În acest articol, vă prezint trucurile pentru rezolvarea acestui job.

Imprimați numai atașament (e) dintr-un singur e-mail cu Imprimare rapidă

Imprimați numai atașamentele din e-mailurile selectate cu VBA


Imprimați numai atașament (e) dintr-un singur e-mail cu Imprimare rapidă

Pentru a imprima atașamentele numai fără corpul e-mailului, puteți utiliza funcția Imprimare rapidă.

1. În fereastra mesajului, faceți clic dreapta pe atașamentul pe care doriți să îl imprimați, selectați Imprimare rapidă din meniul contextual.
atașament de imprimare doc 1

2. Apoi apasa Economisiți > Economisiți pentru a salva fișierul atașament într-o locație.
atașament de imprimare doc 2
atașament de imprimare doc 3

3. Acum mergeți la locația în care ați plasat fișierul atașat și deschideți fișierul pentru a imprima ca de obicei.


Imprimați numai atașamentele din e-mailurile selectate cu VBA

Dacă doriți să imprimați atașamentele din e-mailurile selectate, puteți utiliza codul VBA.

1. Selectați e-mailurile pe care doriți să le imprimați atașamentele, apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.

2. Dublu click Această sesiune Outlook din Project1 , copiați și lipiți codul de mai jos în script.

VBA: tipăriți atașamente din e-mailurile selectate

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

atașament de imprimare doc 4

3. Apoi apasa Instrumente > Referinte, și în Referinte dialog, verificați Runtime Microsoft Scripting caseta.
atașament de imprimare doc 5   atașament de imprimare doc 6

4. clic OK, Apoi apăsați F5 tasta pentru a imprima toate atașamentele din e-mailurile selectate în bloc.

notițe: Dacă atașamentul este imagine, va apărea a Imprimați imagini dialog mai întâi, faceți clic pe a merge la Salvați rezultatul tipăririi ca dialog.
atașament de imprimare doc 7


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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