¿Cómo guardar varios correos electrónicos seleccionados como archivos MSG en masa en Outlook?
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:

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

Guardar fácilmente correos electrónicos seleccionados en diferentes formatos de archivo en 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!
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...

