¿Cómo imprimir solo archivos adjuntos de un correo electrónico o correos electrónicos seleccionados en Outlook?
En Outlook, puede imprimir los correos electrónicos, pero ¿ha impreso los archivos adjuntos solo desde un correo electrónico o correos electrónicos seleccionados en Outlook? En este artículo, presento los trucos para resolver este trabajo.
Imprima solo los archivos adjuntos de un correo electrónico con Impresión rápida
Imprima solo archivos adjuntos de correos electrónicos seleccionados con VBA
Imprima solo los archivos adjuntos de un correo electrónico con Impresión rápida
Para imprimir los archivos adjuntos solo sin el cuerpo del correo electrónico, puede utilizar la función Impresión rápida.
1. En la ventana del mensaje, haga clic derecho en el archivo adjunto que desea imprimir, seleccione Impresión rápida desde el menú contextual.
2. Luego haga clic Guardar > Guardar para guardar el archivo adjunto en una ubicación.
3. Ahora vaya a la ubicación donde colocó el archivo adjunto y abra el archivo para imprimirlo como de costumbre.
Imprima solo archivos adjuntos de correos electrónicos seleccionados con VBA
Si desea imprimir los archivos adjuntos de los correos electrónicos seleccionados, puede usar el código VBA.
1. Seleccione los correos electrónicos en los que desea imprimir los archivos adjuntos, presione Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Haga doble clic Esta sesión de Outlook en Proyecto1 , copie y pegue el siguiente código en el script.
VBA: imprime archivos adjuntos de correos electrónicos seleccionados
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. Luego haga clic Herramientas > Referencias, Y en el Referencias diálogo, comprobar Tiempo de ejecución de secuencias de comandos de Microsoft casilla de verificación.
4. Hacer clic en OK, entonces presione F5 para imprimir todos los archivos adjuntos en los correos electrónicos seleccionados de forma masiva.
Note: Si el archivo adjunto es una imagen, aparecerá un Imprimir imágenes cuadro de diálogo primero, haga clic en Imprimir para ir a la Guardar salida de impresión como diálogo.
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.
