¿Cómo imprimir solo los adjuntos de un correo o de correos seleccionados en Outlook?
En Outlook, puedes imprimir los correos electrónicos, pero ¿has impreso solo los adjuntos de un correo o de correos seleccionados en Outlook? En este artículo, te presento algunos trucos para resolver esta tarea.
Imprimir solo los adjuntos de un correo con la función Imprimir Rápido
Imprimir solo los adjuntos de correos seleccionados con VBA
Imprimir solo los adjuntos de un correo con la función Imprimir Rápido
Para imprimir solo los adjuntos sin el cuerpo del correo, puedes usar la función Imprimir Rápido.
1. En la ventana del mensaje, haz clic derecho en el adjunto que deseas imprimir y selecciona "Imprimir Rápido" desde el menú contextual.
2. Luego haz clic en "Guardar" > "Guardar" para guardar el archivo adjunto en una ubicación.
3. Ahora ve a la ubicación donde colocaste el archivo adjunto y abre el archivo para imprimirlo como de costumbre.
Imprimir solo los adjuntos de correos seleccionados con VBA
Si deseas imprimir los adjuntos de correos seleccionados, puedes usar código VBA.
1. Selecciona los correos de los cuales deseas imprimir los adjuntos, presiona las teclas "Alt" + "F11" para habilitar la ventana "Microsoft Visual Basic para Aplicaciones".
2. Haz doble clic en "ThisOutlookSession" en el panel "Project1", copia y pega el siguiente código en el script.
VBA: Imprimir adjuntos de correos 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 haz clic en "Herramientas" > "Referencias", y en el cuadro de diálogo "Referencias", marca la casilla "Microsoft Scripting Runtime".
4. Haz clic en "Aceptar", luego presiona la tecla "F5" para imprimir todos los adjuntos de los correos seleccionados en masa.
Nota: Si el adjunto es una imagen, aparecerá primero un cuadro de diálogo "Imprimir imágenes", haz clic en "Imprimir" para ir al cuadro de diálogo "Guardar salida de impresión como".
Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS
Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:
- Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
- Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
- Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
- Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
- Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.
Esta función admite:
- Respuestas inteligentes de correo electrónico
- Contenido optimizado
- Borradores basados en palabras clave
- Extensión inteligente de contenido
- Resumen de correos electrónicos
- Traducción multilingüe
¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

