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

Por motivos de copia de seguridad, pruebas laborales u otros fines, es posible que desee guardar los correos electrónicos de Outlook en su disco duro. Guardar varios mensajes manualmente es sencillo: basta con arrastrarlos desde Outlook hasta una carpeta del disco. Pero, ¿sabe cómo guardar automáticamente cada correo entrante en el disco? En este artículo le presentamos un código VBA para lograrlo en Outlook.

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

---

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

Este método presenta un código VBA que guarda automáticamente cada correo entrante en Outlook como un archivo HTML individual en una ubicación específica del disco. Siga estos pasos:

1. Pulse las teclas «Alt» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Expanda el Proyecto1, haga doble clic en «ThisOutlookSession» para abrirlo y, a continuación, pegue el siguiente código VBA en la ventana de ThisOutlookSession. Consulte la captura de pantalla:

VBA: Guardar automáticamente los correos electrónicos de Outlook como Archivo 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 Microsoft Outlook.

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

Notas:
(1) Este código VBA creará una carpeta llamada «MyEmails» dentro de la carpeta Documentos. Podrá encontrar los correos guardados automáticamente en la siguiente ruta: C:\Users\su_nombre_de_usuario\Documents\MyEmails
(2) Este código VBA funcionará con los mensajes recibidos en la carpeta Bandeja de entrada de la cuenta de correo predeterminada.

---

Artículos relacionados

¿Cómo exportar correos electrónicos masivos o seleccionados a un archivo de Excel, texto o PST en Outlook?