Saltar al contenido principal

¿Cómo descargar / guardar automáticamente archivos adjuntos de Outlook en una carpeta determinada?

Si bien guardar todos los archivos adjuntos de un solo correo electrónico en Outlook es sencillo usando el Archivos adjuntos > Guardar todos los archivos adjuntos Como opción, administrar archivos adjuntos de varios correos electrónicos, especialmente en grandes cantidades, puede ser más desafiante. Este artículo presenta dos soluciones efectivas para descargar automáticamente archivos adjuntos de correos electrónicos de Outlook a una carpeta específica. Estos métodos son particularmente útiles cuando se trata de numerosos correos electrónicos y archivos adjuntos, simplificando el proceso y ahorrando tiempo.


Descargar automáticamente archivos adjuntos de Outlook a una carpeta con VBA y regla

Este enfoque implica el uso de un script VBA que, cuando se ejecuta con una regla específica, descargará y guardará automáticamente los archivos adjuntos de los correos electrónicos de Outlook en una carpeta designada. Continúe con los siguientes pasos:

  1. Prensa Alt + F11 para abrir el Microsoft Visual Basic para aplicaciones ventana.
  2. Haga Clic en recuadro > Móduloy luego pegue debajo del script VBA en el recién abierto Módulo ventana.

    VBA: guardado automático de archivos adjuntos de Outlook en una carpeta determinada

    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
    For Each oAttachment In MItem.Attachments
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
    End Sub

    Nota: Por favor localice la línea sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"y reemplácelo con la ruta de la carpeta de destino deseada.

  3. Guarde el script VBA y cierre el Microsoft Visual Basic para aplicaciones ventana.
  4. Visite la Correo ver y haga clic en Inicio > Reglas > Administrar reglas y alertas.
  5. En la apertura Reglas y Alertas cuadro de diálogo, haga clic en el Nueva regla botón de la Reglas de correo electrónico .
  6. En Asistente de reglas cuadro de diálogo que aparece, seleccione el Aplicar regla sobre los mensajes que recibo opción, y haga clic en Siguiente del botón.
  7. En Asistente de reglas (¿Qué condiciones desea verificar?) cuadro de diálogo, haga clic en Siguiente botón sin seleccionar ninguna opción. Y luego haga clic en botón en la ventana emergente microsoft Outlook caja de diálogo.
  8. En la siguiente Asistente de reglas (¿Qué desea hacer con el mensaje?) cuadro de diálogo, proceda de la siguiente manera:
    1. Asegúrate de leer ejecutar un script . Consejo: Si no ve la opción, por favor vaya a este tutorial sobre cómo habilitar la opción "ejecutar un script" en Outlook.
    2. Haga clic en el texto "un script" subrayado en azul para abrir el Seleccionar guion caja de diálogo. Aquí, elija el script que agregó Paso 2 Y haga clic en el OK del botón.
    3. Haga clic en el Siguiente Para continuar.
  9. En Asistente de reglas (¿Hay alguna excepción?) cuadro de diálogo, haga clic en el Siguiente botón directamente.
  10. En el último Asistente de reglas cuadro de diálogo, nombre la regla en el Paso 1 casilla, marque las opciones que necesite en el Paso 2 sección, y haga clic en Acabado del botón.
  11. Cierra el Reglas y Alertas caja de diálogo.

Resultado

Ahora, si seleccionó la opción "Ejecutar esta regla ahora en los mensajes que ya están en la bandeja de entrada", todos los archivos adjuntos de su cuenta de correo electrónico se descargarán y almacenarán en la carpeta de destino especificada. Además, si marcó la opción "Activar esta regla", todos los archivos adjuntos de los correos electrónicos entrantes se descargarán y guardarán automáticamente en la carpeta designada.


Descargue automáticamente archivos adjuntos de Outlook a una carpeta con Kutools para Outlook

Con Kutools para Outlook instalado en su computadora, su Desconexión automática La función le permite descargar automáticamente todos los archivos adjuntos de Outlook o específicos según sus condiciones establecidas, dirigiéndolos convenientemente a una carpeta elegida. Además, esta característica ofrece la flexibilidad de crear subcarpetas. Proporciona dos alternativas para nombrar estas subcarpetas: puede seleccionar uno de los formatos, como [carpeta de mensajes]-[asunto del mensaje]u opte por agregar una cadena de texto personalizada como sufijo al formato elegido. Esta capacidad mejora enormemente la organización y accesibilidad de sus 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!

  1. Haga Clic en Kutools > Desconexión automática para abrir el cuadro de diálogo de funciones.
  2. En Desmontaje automático de archivos adjuntos diálogo, seleccione el Separar automáticamente todos los archivos adjuntos recibidos opción y configúrelo de la siguiente manera:
    1. Haga clic en el botón Examinar para especificar la carpeta de destino para guardar los archivos adjuntos desconectados automáticamente.
    2. (Opcional) Marque la Separe los archivos adjuntos en el estilo a continuación opción si desea crear subcarpetas para almacenar los archivos adjuntos.
      • Cree subcarpetas en el estilo siguiente: asigne un nombre a las subcarpetas en uno de los formatos predefinidos, como [carpeta de mensajes]-[asunto del mensaje].
      • Cambie el nombre de los archivos adjuntos guardados en el estilo siguiente: asigne un nombre a las subcarpetas utilizando uno de los formatos predefinidos y agregue una cadena de texto personalizada como sufijo.
    3. (Opcional) Marque la El icono de archivo adjunto aún permanece en los correos electrónicos Opción de mantener un indicador visual en los correos electrónicos que tenían archivos adjuntos.
    4. Haga Clic en De acuerdo.

Resultado

A partir de ahora, todos los archivos adjuntos se guardarán automáticamente en la carpeta especificada al recibir los correos electrónicos.

Consejo: Si desea configurar la separación automática de archivos adjuntos según reglas específicas, habilite la opción Separar archivos adjuntos automáticamente por reglas opción en el Desmontaje automático de archivos adjuntos diálogo. Después de eso, haga clic en el Nuevo para definir las condiciones del filtro y la configuración de guardado deseada.

Notas:

  • Quiere acceder al Desconexión automática ¿característica? Descargar Kutools para Outlook ¡ahora! Más allá de esto, Kutools cuenta con una gran variedad de más de 100 funciones y ofrece una prueba gratuita de 60 días. ¡No esperes, pruébalo hoy!
  • Si desea separar o descargar archivos adjuntos existentes de varios o todos los correos electrónicos recibidos en Outlook, aplique Kutools para Outlook Separar todo (archivos adjuntos) or Guardar todo (archivos adjuntos) .

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.

Leer Mas       Descargar gratis      Comprar
 

 

Comments (115)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you for this information
This comment was minimized by the moderator on the site
May i ask some question?

I usually received mail to many people and many kinds of files.
So i should distinguish each file.
But now, It can`t.

So Did you have any idea for this?
(like chacnged file name or and so on...)

Thank you for your help

BR
Hansu
This comment was minimized by the moderator on the site
Thank you for your great code
This comment was minimized by the moderator on the site
Hi,
I create Module in Microsoft VBA & save it
However when go to create Rules in Outlook, I can't see the select box of "Run a script"
What is the reason & how to fix it?
Thank you
This comment was minimized by the moderator on the site
Hi there,

In some versions of Outlook, especially in more recent updates, the "Run a Script" option might be disabled by default due to security concerns. To enable the "Run a Script" option in Outlook, you usually need to modify the registry settings. Here's a general guide on how to do it:

1. Close Outlook: Make sure Outlook is not running.
2. Open Registry Editor: Press Win + R, type regedit, and hit Enter.
3. Navigate to the Outlook Security Settings: Depending on your version of Outlook, you'll need to navigate to a specific path in the Registry Editor. For example, for Outlook 2016, 2019, and Microsoft 365, you might navigate to HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security.
4. Modify/Add the Registry Value:
4.1 Right-click in the right pane and choose New > DWORD (32-bit) Value.
4.2 Name the new value as EnableUnsafeClientMailRules.
4.3 Set its value to 1.
5. Close Registry Editor and restart your computer.
6. Open Outlook and check if the "Run a Script" option is available.
This comment was minimized by the moderator on the site
Ale kupa, oszuści. Maile zaczynają znikać. Nie mam moich wiadomości.
This comment was minimized by the moderator on the site
Hi, code works great however I am saving excel files and was wondering how I can modify the saved name. I recieve files like this "exa 2022-08.xlsx" how can I save the excel file as just "2022-08"?

this is my current code and my file saves however as just a file type not excel.

Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments

Dim SplitName() As String
SplitName = Split(oAttachment.DisplayName, ".")

Dim RightName As String
RightName = Right(SplitName(0), 7)

Dim SaveName As String

SaveName = sSaveFolder & RightName

oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName

Next
End Sub
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments
  Dim SplitName() As String
  SplitName = Split(oAttachment.DisplayName, ".")
  Dim RightName As String
  RightName = Right(SplitName(0), 7) 'You can also declare the file name here, e.g., RightName = "2022-08"
  Dim SaveName As String
  SaveName = sSaveFolder & RightName & "." & SplitName(1)
  oAttachment.SaveAsFile SaveName
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
Hi. is it possible to give the attachment file an entirely new name, using information form the mail (for example the date of delivery).
This comment was minimized by the moderator on the site
Hi,
How can I create a VBA to save attachment (Excel file) in my location drive when email received in my outlook folder and using the file name based on cell value...Many thanks

Regards,
Anthony On
This comment was minimized by the moderator on the site
Bonjour, j'ai réussi à rajouter "exécuter un script" dans les règles et faire fonctionner le script dans outlook. Les pièces jointes d'un mail bien précis s'enregistrent parfaitement dans le dossier demandé. Sauf que j'aimerais enregistrer uniquement les fichiers .txt, et non les .pdf qui s'incrémentent également. Aussi j'ai une autre requête s'il vous plaît, le script fonctionne très bien pour définir un dossier de destination, mais je souhaite définir d'autres règles qui me permettraient d'enregistrer les pièces jointes d'autres mails vers un autre dossier de destination. J'ai essayé de faire un 2e module VBA, cela ne fonctionne pas. J'ai généré un deuxième projet VBA mais Outlook n'en gère qu'un seul. Dans ce cas, comment remédier s'il vous plait ? Merci pour ce tuto très clair pour moi qui suis débutante.
This comment was minimized by the moderator on the site
Hi pearl,
Could you please send the code you generated so that we can fix it?
Amanda
This comment was minimized by the moderator on the site
Hi Can we  download the attachment contains specific letters using VBA code
This comment was minimized by the moderator on the site
Hi DAS,
When you said “the attachment contains specific letters”, did you mean you want to download the attachments from specific letters?
Amanda
This comment was minimized by the moderator on the site
Hi,
I executed the VBA + Rule option and it seemed to work perfectly. However, it recently stopped working with no errors. The rule is set to read the subject line, move to a certain folder if there is a certain subject, and then run the script. I know the trigger is working in the rule because the first action (move to folder) is working as it should.
Any idea why the rule trigger would work, but the documents are no longer being saved?
Things I have tried/checked:-The file path is correct-I added delays in various spots in the vba using application.wait-outlook has been shutdown and re-opened, and so has my laptop
(disclosure: I am a bit of a VBA newbie, but have beginner level coding knowledge)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations