¿Cómo copiar todos los archivos adjuntos de varios correos electrónicos a un nuevo correo en Outlook?
Administrar archivos adjuntos de correo electrónico de manera eficiente en Outlook puede ser un desafío, especialmente cuando necesitas extraer archivos adjuntos de varios correos y consolidarlos en un nuevo correo o copiar todos los archivos adjuntos de un correo en una respuesta. Guardar y volver a adjuntar archivos manualmente no solo es una tarea que consume tiempo, sino que también es propensa a errores. Afortunadamente, existen dos formas efectivas para simplificar esta tarea. Puedes usar VBA para extraer e insertar archivos adjuntos de varios correos en uno nuevo, aunque esto requiere ciertos conocimientos técnicos. 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 archivos adjuntos de un correo a una respuesta, lo que la convierte en 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)
Copia todos los archivos adjuntos de un correo a una 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 electrónicos en un nuevo correo.
Paso 1: Selecciona varios correos electrónicos
En Outlook, selecciona los correos que contienen los archivos adjuntos que deseas copiar.
- Mantén presionada la tecla "Ctrl" para seleccionar varios correos no adyacentes.
- Mantén presionada la tecla "Shift" para seleccionar un rango de correos adyacentes.
Paso 2: Abre el editor de VBA
Presiona "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic for Applications".
Paso 3: Inserta el código VBA en un nuevo módulo
Haz clic en "Insertar" > "Módulo" para crear un nuevo módulo. Luego, pega el siguiente código VBA en la ventana del módulo:
VBA: Copia todos los archivos 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: Ejecuta el código VBA
Presiona "F5" o haz clic en el botón Ejecutar para ejecutar el código. Se abrirá un nuevo correo que contendrá todos los archivos adjuntos extraídos de los correos seleccionados.
Desventajas:
- ❌ Requiere conocimiento de VBA: No es amigable 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 archivos 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 todos (Adjuntos) te permite guardar adjuntos de múltiples correos electrónicos o carpetas completas con solo unos pocos clics. Olvídate de los tediosos procesos manuales y controla tu bandeja de entrada sin esfuerzo.
Copia todos los archivos adjuntos de un correo a una respuesta instantáneamente con una herramienta increíble 👍
Para una solución más simple y rápida, puedes usar la función Responder con Adjunto Original en "Kutools para Outlook". Este método te permite copiar todos los archivos adjuntos de un correo directamente en una respuesta con un solo clic, sin necesidad de usar VBA ni copiar manualmente los archivos adjuntos.
¡Desbloquea la máxima eficiencia en el correo electrónico con Kutools para Outlook! Accede a 70 funciones poderosas completamente gratis, para siempre. ¡Descarga la versión gratuita 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 archivos 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 se necesita codificación en 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 archivo adjunto a otro correo en Outlook?
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!
📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...
📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos 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 de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails 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 en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...
Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!
