¿Cómo guardar automáticamente los correos electrónicos de Outlook en el disco duro?

Author Kelly Last modified 2025-08-26

Para realizar copias de seguridad, evidencias de trabajo u otros propósitos, es posible que desee guardar los correos electrónicos de Outlook en el disco duro. Es fácil guardar varios correos arrastrándolos manualmente desde Outlook al disco. Sin embargo, ¿sabe cómo guardar automáticamente cada correo entrante en el disco? Este artículo presentará una macro VBA para manejarlo en Outlook.

Guardar automáticamente los correos electrónicos de Outlook en el disco duro

Guardar automáticamente los correos electrónicos de Outlook en el disco duro

Este método presentará una macro VBA para guardar automáticamente cada correo electrónico entrante en Outlook como un archivo HTML individual en el disco específico. Por favor, siga los siguientes pasos:

1. Presione las teclas "Alt" + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Expanda el Proyecto1 y haga doble clic en "ThisOutlookSession" para abrirlo, luego pegue el siguiente código VBA en la ventana ThisOutlookSession. Ver captura de pantalla:

VBA: Guardar automáticamente los correos electrónicos de Outlook como archivos HTML en el disco

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
    Dim xNameSpace As Outlook.NameSpace
    Set xNameSpace = Outlook.Application.Session
    Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
    Dim FSO
    Dim xMailItem As Outlook.MailItem
    Dim xFilePath As String
    Dim xRegEx
    Dim xFileName As String
    On Error Resume Next
    xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
    xFilePath = xFilePath & "\MyEmails"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists(xFilePath) = False Then
        FSO.CreateFolder (xFilePath)
    End If
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.IgnoreCase = False
    xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
    If objItem.Class = olMail Then
        Set xMailItem = objItem
        xFileName = xRegEx.Replace(xMailItem.Subject, "")
        xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
    End If
    Exit Sub
End Sub

3. Guarde el código VBA y reinicie su Microsoft Outlook.

A partir de ahora, cada correo entrante se guardará como un archivo HTML individual en la carpeta “MyEmails”.

Notas:
(1) Esta macro VBA creará una carpeta llamada “MyEmails” dentro de la carpeta Documentos. Puede encontrar los correos guardados automáticamente con esta ruta de carpeta: C:\Users\su_nombre_de_usuario\Documents\MyEmails
(2) Esta macro VBA funcionará con los correos recibidos en la carpeta Bandeja de entrada de la cuenta de correo predeterminada.

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