¿Cómo guardar automáticamente los correos electrónicos de Outlook en el disco duro / disco?
Para realizar copias de seguridad, pruebas de trabajo u otros fines, es posible que desee guardar los correos electrónicos de Outlook en el disco duro. Es fácil guardar varios correos electrónicos en el disco arrastrándolos manualmente desde Outlook al disco. Sin embargo, ¿sabe cómo guardar automáticamente cada correo electrónico entrante en el disco? Este artículo presentará un VBA para manejarlo en Outlook.
Guarde automáticamente los correos electrónicos de Outlook en el disco duro / disco
Guarde automáticamente los correos electrónicos de Outlook en el disco duro / disco
Este método introducirá un VBA para guardar automáticamente cada correo electrónico entrante en Outlook como un archivo HTML individual en el disco específico. Haz lo siguiente:
1. prensa otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Expanda el Proyecto1 y haga doble clic Esta sesión de Outlook para abrirlo y luego pegar debajo del código VBA en la ventana ThisOutlookSession. Ver captura de pantalla:
VBA: guarde 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 Microsoft Outlook.
De ahora en adelante, cada correo electrónico entrante se guardará como un archivo HTML individual en la carpeta "Mis correos electrónicos".
Notas:
(1) Este VBA creará una carpeta llamada "Mis correos electrónicos" en la carpeta Documentos. Puede encontrar los correos electrónicos guardados automáticamente con esta ruta de carpeta: C:\Usuarios\su_nombre_de_usuario\Documentos\Mis correos electrónicos
(2) Este VBA funcionará con los correos electrónicos recibidos en la carpeta Bandeja de entrada de la cuenta de correo electrónico predeterminada.
Artículos Relacionados
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.