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

Author: Kelly Last Modified: 2025-08-06

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.