¿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.
- Automatiza el envío de correos electrónicos con Auto CC / BCC, Reenvío automático por reglas; enviar Respuesta automática (Fuera de la oficina) sin necesidad de un servidor Exchange...
- Recibe recordatorios como Advertencia de BCC al responder a todos mientras estás en la lista CCO, y Recordar si faltan archivos adjuntos para apegos olvidados...
- Mejore la eficiencia del correo electrónico con Responder (todos) con archivos adjuntos, Agregar automáticamente saludo o fecha y hora a la firma o al asunto, Responder varios correos electrónicos...
- Optimice el envío de correos electrónicos con Recuperar correos electrónicos, Herramientas de adjunto (Comprimir todo, Guardar todo automáticamente...), Eliminar duplicadosy Informe rápido...
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 Sí 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
¿Cómo archivar automáticamente los archivos adjuntos solo en Outlook?
¿Cómo archivar correos electrónicos por año / mes / fecha en Outlook?
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.