Saltar al contenido principal

¿Cómo archivar sin archivos adjuntos en Outlook?

En general, la función Archivo de Outlook guardará todos los elementos del correo electrónico, incluido el contenido del correo electrónico, el encabezado del correo electrónico, los archivos adjuntos del correo electrónico, etc. Sin embargo, los archivos adjuntos pueden hacer que el archivo PST archivado sea voluminoso. Aquí, presentaré dos soluciones para archivar sin archivos adjuntos en Outlook.

Pestaña Office: habilite la edición y navegación con pestañas en Microsoft Office, haciendo que el trabajo sea muy sencillo
Kutools para Outlook: mejore Outlook con más de 100 funciones avanzadas para una eficiencia superior
Mejore su Outlook 2021 - 2010 o Outlook 365 con estas funciones avanzadas. ¡Disfruta de una prueba completa gratuita de 60 días y mejora tu experiencia de correo electrónico!

Archivo sin archivos adjuntos por VBA

Este método introducirá un VBA para eliminar todos los archivos adjuntos de la carpeta especificada que archivará, y luego podrá archivar sin archivos adjuntos. Haz lo siguiente:

1. En la Correo ver, seleccione la carpeta que archivará y presione otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy luego pegue debajo de VBA en la nueva ventana del módulo.

VBA: elimine todos los archivos adjuntos de la carpeta de correo seleccionada en Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & "" End If Wend If xDeletedFilePath <> "" Then If xMailItem.BodyFormat <> olFormatHTML Then xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body Else xMailItem.HTMLBody = "

" & _ "The file(s) were saved to: " & xDeletedFilePath & "

" & xMailItem.HTMLBody End If xMailItem.Save xDeletedFilePath = "" End If End If Next Exit Sub: Set xAttachments = Nothing Set xMailItem = Nothing End Sub

3. presione el F5 o haga clic en el Ejecutar botón para ejecutar el código. Luego, todos los archivos adjuntos se eliminan inmediatamente de la carpeta de correo seleccionada.

4. Hacer clic Archive > Info > Herramientas > Limpiar artículos viejos (o Archive > Info > Herramientas de Limpieza > Archive ).

5. En el cuadro de diálogo Archivo, haga clic para resaltar la carpeta copiada, escriba HOY existentes Archivar elementos anteriores a cuadro, y luego haga clic en el Explorar botón. Ver captura de pantalla:

6. En el cuadro de diálogo Abrir archivos de datos de Outlook, abra la carpeta en la que guardará el archivo PST archivado, nombre el archivo PST en el Nombre de archivo cuadro, y luego haga clic en el OK botón. Ver captura de pantalla:

7. Ahora regresa al cuadro de diálogo Archivo, haga clic en el OK para finalizar el archivado.
Hasta ahora, ha archivado la carpeta de correo sin ningún archivo adjunto.


Archivar sin archivos adjuntos de Kutools para Outlook

Si tiene Kutools para Outlook instalado, puede aplicar su Separar todo función para eliminar rápidamente todos los archivos adjuntos de la carpeta especificada que archivará y luego archivarlos sin archivos adjuntos fácilmente.

Kutools para Outlook: kit de herramientas definitivo de Outlook con más de 100 herramientas útiles. ¡Pruébalo GRATIS durante 60 días, sin limitaciones, sin preocupaciones!   Leer más ...   ¡Comience la prueba gratuita ahora!

1. En la Correo ver, abra la carpeta de correo especificada que archivará, seleccione todos los correos electrónicos presionando Ctrl + A claves y luego haga clic en Kutools > Separar todo. Ver captura de pantalla:

2. En el cuadro de diálogo Seleccione una carpeta, haga clic en el Explorar .  para especificar la carpeta en la que guardará el archivo adjunto, especifique un estilo de subcarpeta desde el crear subcarpetas en el siguiente estilo lista desplegable y haga clic en el Ok botón. Ver captura de pantalla:

3. Por favor haz click botón y OK sucesivamente en los cuadros de diálogo emergentes.

4. Continuar para hacer clic Archive > Info > Herramientas > Limpiar artículos viejos (o Archive > Info > Herramientas de Limpieza > Archive ).

5. En el cuadro de diálogo Archivar, haga clic para resaltar la carpeta especificada que archivará sin archivos adjuntos, escriba HOY existentes Archivar elementos anteriores a cuadro, y luego haga clic en el Explorar botón. Ver captura de pantalla:

6. En el cuadro de diálogo Abrir archivos de datos de Outlook, abra la carpeta en la que guardará el archivo PST archivado, nombre el archivo PST en el Nombre de archivo cuadro, y luego haga clic en el OK botón. Ver captura de pantalla:

7. Ahora regresa al cuadro de diálogo Archivo, haga clic en el OK para finalizar el archivado.

Hasta ahora, ya ha archivado la carpeta de correo especificada sin archivos adjuntos.

Kutools para Outlook: Potencia Outlook con más de 100 herramientas imprescindibles. Pruébelo GRATIS durante 60 días, ¡sin condiciones!   Leer más ...   ¡Descargar ahora!


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 profesionalesGuardar 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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations