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.
2. Apoi apasa Economisiți > Economisiți pentru a salva fișierul atașament într-o locație.
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
3. Apoi apasa Instrumente > Referinte, și în Referinte dialog, verificați Runtime Microsoft Scripting caseta.
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.
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 Pro: Salvaț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.