¿Cómo copiar todos los archivos adjuntos de varios correos electrónicos a un nuevo correo en Outlook?
Gestionar eficientemente los archivos adjuntos en Outlook puede ser un desafío, especialmente cuando necesitas extraer adjuntos de varios correos y consolidarlos en un nuevo correo o copiar todos los adjuntos de un correo en una respuesta. Guardar y volver a adjuntar archivos manualmente no solo es tedioso sino que también es propenso a errores. Afortunadamente, hay dos formas efectivas para simplificar esta tarea. Puedes usar VBA para extraer e insertar adjuntos desde varios correos en uno nuevo, aunque requiere algo de conocimiento técnico. Sin embargo, para una solución más rápida y sin complicaciones, la herramienta Kutools para Outlook proporciona una opción de un solo clic para copiar instantáneamente todos los adjuntos de un correo en un correo de respuesta, siendo la opción más eficiente y fácil de usar.
Copiar todos los archivos adjuntos de varios correos electrónicos a un nuevo correo usando VBA (Manual y Técnico)
Copiar todos los archivos adjuntos de un correo a un correo de respuesta instantáneamente con una herramienta increíble 👍 (Sin esfuerzo y Recomendado)
Copiar todos los archivos adjuntos de varios correos electrónicos a un nuevo correo usando VBA
Si prefieres usar VBA para automatizar el proceso, puedes seguir estos pasos para extraer y copiar rápidamente todos los archivos adjuntos de varios correos en uno nuevo.
Paso 1: Seleccionar varios correos electrónicos
En Outlook, selecciona los correos que contienen los adjuntos que deseas copiar.
- Mantén presionado "Ctrl" para seleccionar varios correos no adyacentes.
- Mantén presionado "Shift" para seleccionar un rango de correos adyacentes.
Paso 2: Abrir el editor de VBA
Presiona "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic for Applications".
Paso 3: Insertar el código VBA en un nuevo módulo
Haz clic en "Insertar" > "Módulo" para crear un nuevo módulo. Y pega el siguiente código VBA en la ventana del módulo:
VBA: Copiar todos los adjuntos de varios correos electrónicos a un nuevo correo
Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String
Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If
For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub
Paso 4: Ejecutar el código VBA
Presiona "F5" o haz clic en el botón Ejecutar para ejecutar el código. Se abrirá un nuevo correo, conteniendo todos los adjuntos extraídos de los correos seleccionados.
Desventajas:
- ❌ Requiere conocimientos de VBA: No es apto para principiantes e implica trabajar con código.
- ❌ Configuración manual requerida: Necesitas abrir el editor de VBA, insertar el código y ejecutarlo cada vez.
- ❌ Posibles restricciones de seguridad: Algunas versiones de Outlook bloquean las macros debido a políticas de seguridad.
- ❌ Sin flexibilidad: Debes volver a ejecutar el script cada vez que necesites copiar adjuntos nuevamente.
📂 Guardar adjuntos de varios correos electrónicos sin esfuerzo
¿Cansado de guardar adjuntos uno por uno en Outlook? ¡Optimiza tu flujo de trabajo con Kutools para Outlook! La poderosa función Guardar todo (Adjuntos) te permite guardar adjuntos de varios correos electrónicos o carpetas completas en solo unos clics. Di adiós a los tediosos procesos manuales y controla tu bandeja de entrada sin esfuerzo.
Copiar todos los adjuntos de un correo electrónico a un correo de respuesta instantáneamente con una herramienta increíble 👍
Para una solución más simple y rápida, puedes usar la función Respuesta con Adjunto Original en "Kutools para Outlook". Este método te permite copiar todos los adjuntos de un correo directamente en un correo de respuesta con un solo clic, sin necesidad de usar VBA ni copiar adjuntos manualmente.
¡Dile adiós a la ineficiencia de Outlook! Kutools para Outlook facilita el procesamiento de correos electrónicos en lote, ¡ahora con funciones gratuitas impulsadas por inteligencia artificial! Descarga Kutools para Outlook ahora!!
1. En la vista de Correo, selecciona el correo al que deseas responder. Luego haz clic en "Kutools" > "Responder con Adjunto Original o Responder a Todos con Adjunto Original".
2. Ahora, todos los adjuntos del correo seleccionado se copian automáticamente en el correo de respuesta.
Ventajas del método Kutools para Outlook:
- ✅ Sin copiado o pegado manual: Funciona instantáneamente con un solo clic.
- ✅ No es necesario escribir código VBA: Fácil de usar y sin complicaciones.
- ✅ Ahorro de tiempo: Reduce drásticamente el esfuerzo en comparación con los métodos manuales.
- ✅ Compatible con todas las versiones de Outlook: Sin restricciones de macros ni advertencias de seguridad.
Artículos relacionados
¿Cómo copiar un adjunto a otro correo en Outlook?
Las mejores herramientas de productividad para Office
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint