¿Cómo guardar automáticamente los correos electrónicos de Outlook en el disco duro?
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.
Artículos relacionados
¿Cómo exportar correos electrónicos masivos/seleccionados a un archivo Excel/Texto/PST en 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...
