¿Cómo guardar varios correos electrónicos seleccionados como archivos MSG en masa en Outlook?

Author Siluvia Last modified 2025-08-26

Es fácil guardar un correo electrónico como archivo MSG en Outlook. ¿Cómo puedes guardar varios correos electrónicos seleccionados como archivos MSG individuales en masa en Outlook? Este artículo te mostrará un método para lograrlo.

Guardar varios correos electrónicos seleccionados como archivos MSG con código VBA

Guardar varios correos electrónicos seleccionados como archivos MSG con código VBA

El siguiente código VBA puede ayudarte a guardar varios correos electrónicos seleccionados como archivos MSG individuales en masa en Outlook. Por favor, sigue los siguientes pasos.

1. Selecciona los correos electrónicos que deseas guardar como archivos MSG. Luego presiona simultáneamente las teclas "Alt" + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en "Insertar" > "Módulo", y luego copia el siguiente código VBA en la ventana del Módulo.

Código VBA: Guardar varios correos electrónicos seleccionados como archivos MSG individuales en Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Presiona la tecla "F5" para ejecutar el código.

4. En el cuadro de diálogo "Examinar carpeta", especifica una carpeta para guardar los archivos MSG y luego haz clic en el botón "Aceptar". Ver captura de pantalla:

the screenshot of step 1 about saving selected emails as msg files using vba in outlook

Ahora todos los correos electrónicos seleccionados se han guardado como archivos MSG individuales, tal como se muestra en la siguiente captura de pantalla.

the screenshot of step 2 about saving selected emails as msg files using vba in outlook

Con la utilidad "Guardado Masivo" de "Kutools for Outlook", puedes guardar fácilmente varios correos electrónicos seleccionados como archivos individuales en formato HTML, archivos en formato TXT, documentos de Word, archivos CSV así como archivos PDF en Outlook, tal como se muestra en la siguiente captura de pantalla. ¡Descarga ahora la versión gratuita de Kutools for Outlook!

ad about saving emails as multiple file formats in outlook with kutools for 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.

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar tus correos electrónicos sin esfuerzo: responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧 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.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 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

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete