Note: The other languages of the website are Google-translated. Back to English

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

En términos generales, puede guardar todos los archivos adjuntos de un correo electrónico haciendo clic en Archivos adjuntos > Guardar todos los archivos adjuntos en Perspectiva. Pero, si necesita guardar todos los archivos adjuntos de todos los correos electrónicos recibidos y recibir correos electrónicos, ¿alguna idea? Este artículo presentará dos soluciones para descargar automáticamente archivos adjuntos de Outlook a una carpeta determinada.


Descargue automáticamente los archivos adjuntos de Outlook a la carpeta con VBA y la regla

Este método introducirá un script VBA y ejecutará este script con una regla para descargar y guardar automáticamente los archivos adjuntos de Outlook en una carpeta determinada. Haz lo siguiente:

1. prensa otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Módulo, y luego pegue debajo del script VBA en la nueva ventana del Módulo de apertura.

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 averigüe sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"y reemplace la ruta de la carpeta de destino según lo necesite.

3. Guarde el script VBA y cierre la ventana de Microsoft Visual Basic para aplicaciones.

4. Ir a la Mande Por Correo ver y haga clic en Inicio > Reglas > Administrar reglas y alertas. Ver captura de pantalla:

5. En el cuadro de diálogo de apertura Reglas y alertas, haga clic en el Nueva regla botón de la Reglas de correo electrónico lengüeta. Ver captura de pantalla:

6. Ahora, en el cuadro de diálogo Asistente de reglas, haga clic para seleccionar el Aplicar regla sobre los mensajes que recibo opción, y haga clic en Siguiente del botón.

7. En el Asistente de reglas (¿qué condición (es) desea verificar?) Cuadro de diálogo, desmarque cualquier opción y haga clic en Siguiente botón. Y luego haga clic en el en el cuadro de diálogo emergente de Microsoft Outlook. Ver captura de pantalla:

8. Ahora, en el cuadro de diálogo del Asistente de reglas (¿qué desea hacer con el mensaje?), Por favor: (1) Asegúrate de leer ejecutar un script opción; (2) Haga clic en el texto de un guión para abrir el cuadro de diálogo Seleccionar secuencia de comandos, seleccione la secuencia de comandos que agregamos en el Paso 2 y haga clic en el OK botón; (3) Haga clic en el Siguiente del botón.

9. En el cuadro de diálogo Asistente de reglas (¿hay alguna excepción?), Haga clic en el Siguiente botón directamente.

10. Ahora, en el último cuadro de diálogo del Asistente de reglas, 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. Cierre el cuadro de diálogo Reglas y alertas.

Y ahora todos los archivos adjuntos se descargan de su cuenta de correo electrónico y se guardan en la carpeta de destino especificada. Y todos los archivos adjuntos de los correos electrónicos entrantes se descargarán y guardarán automáticamente en la carpeta especificada también.


Descargue automáticamente los archivos adjuntos de Outlook a la carpeta con Kutools for Outlook

Si tiene Kutools for Outlook instalado, puede aplicar su Desconexión automática opción para descargar automáticamente todos los archivos adjuntos de Outlook y guardarlos en una carpeta determinada fácilmente.

Kutools for Outlook: Agregue más de 100 útiles herramientas para Outlook, de forma gratuita y sin límite en 60 días. Leer más      Prueba gratuita ahora

1. Hacer clic Kutools > Desconexión automática > permitir para habilitar la función Desconexión automática.

2. Adelante, haga clic Kutools > Desconexión automática > Administrador de desconexión automática.

3. En el cuadro de diálogo Desconectar automáticamente adjuntos, marque la casilla Separar automáticamente todos los archivos adjuntos recibidos opción, y luego configure de la siguiente manera:
(1) Haga clic en el botón Examinar  para especificar la carpeta de destino para guardar archivos adjuntos separados automáticamente;
(2) Es opcional verificar la Crear subcarpetas en el siguiente estilo opción, y luego seleccione un estilo de subcarpeta de la lista desplegable a continuación;
(3) Es opcional verificar el único separe los archivos adjuntos con la siguiente extensión opción, y luego escriba las extensiones del archivo adjunto en el cuadro de abajo;
(4) Es opcional verificar el icono de archivo adjunto todavía permanece en los correos electrónicos .

Nota:: Si necesita desvincular automáticamente los archivos adjuntos de los remitentes, puede marcar la Separar archivos adjuntos automáticamente por reglas opción, haga clic en la Nueva y, a continuación, escriba la dirección de correo electrónico del remitente y especifique la carpeta de destino en el segundo cuadro de diálogo Desconectar automáticamente archivos adjuntos.

4. Haga clic en Ok para guardar la configuración

A partir de ahora, todos los archivos adjuntos (o archivos adjuntos con extensiones de archivo especificadas o archivos adjuntos de remitentes específicos según su configuración) se guardarán automáticamente.

Nota:: Puedes aplicar Kutools for Outlook, Separar todo (Adjuntos) función o Salvar a todos (Archivos adjuntos) función para descargar / guardar rápidamente todos los archivos adjuntos de varios / todos los correos electrónicos recibidos en Outlook.


Demostración: descargue automáticamente los archivos adjuntos de Outlook a la carpeta con Kutools for Outlook


Consejo: En este video, Kutools pestaña es agregada por Kutools for Outlook. Si lo necesita, haga clic en aquí para tener una prueba gratuita de 60 días sin limitación!


Artículos relacionados:


Kutools for Outlook - ¡Trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil!

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (109)
4.5 clasificado de 5 · 1 calificaciones
Este comentario fue minimizado por el moderador en el sitio
Hola a todos El script no funciona para mí. Hay algo más que se debe hacer. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Adjuntos" para cada oAdjunto en MItem.Attachments oAdjunto .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub
Este comentario fue minimizado por el moderador en el sitio
Hola SRINIVAS, creo que debes agregar la letra Drive al comienzo de tu enlace. es decir, C:\users\test\etc ¡Espero que esto ayude! Andrés
Este comentario fue minimizado por el moderador en el sitio
En VBA, también debe agregar una barra invertida final al final de la ruta de su archivo. Como sigue. "D:\Archivos adjuntos de Outlook\" Espero que esto solucione cualquier problema. Matt
Este comentario fue minimizado por el moderador en el sitio
HI

el script de VBA funcionó muy bien para mí ... una vez, nunca más.

Incluso eliminé los archivos en la carpeta y volví a ejecutar y nada.

Qué estoy haciendo mal ? - la regla se está ejecutando cuando consigo que muestre una alerta al mismo tiempo
Este comentario fue minimizado por el moderador en el sitio
[quote]Hola a todos El script no funciona para mí. Hay algo más que se debe hacer. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Adjuntos" para cada oAdjunto en MItem.Attachments oAdjunto .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Subpor shirinivas[/quote] Lo mismo aquí. Probé todas las opciones. Siento que el script se está ejecutando, pero todavía no veo los archivos que se cargan en la ruta especificada de mi computadora. ¿Puede alguien ayudarme?
Este comentario fue minimizado por el moderador en el sitio
parece que el script tampoco funciona, todo está bien programado, el código, etc. y no hay archivos adjuntos cuando ejecuto la regla. corriendo en office 2007? alguna idea de porque??
Este comentario fue minimizado por el moderador en el sitio
Hola, he probado la opción 1 (Descargar automáticamente adjuntos de Outlook a carpeta con VBA y regla) y funciona perfectamente. Tengo las siguientes dos consultas: i) ¿Hay alguna forma de descargar el mismo archivo adjunto en varias rutas compartidas con el escariado del archivo? ii) También guarda el archivo adjunto con el cursor en A1 en cada hoja y se debe seleccionar la hoja 1. Entonces, cuando abra el archivo desde la hoja de ruta, debe abrirse con el cursor en A1. ¡¡Muchas gracias de antemano!! Saludos, Bhavesh Luhana
Este comentario fue minimizado por el moderador en el sitio
¿Se puede aplicar esta regla o similar a una versión de correo web de Outlook?
Este comentario fue minimizado por el moderador en el sitio
Hola, he estado tratando de seguir los pasos como se indica. pero no obtengo la opción 'ejecutar un script' después de guardar la macro. He habilitado las macros, reinicié Outlook varias veces. pero todavía la opción todavía no funciona. Por favor ayuda. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Estoy de acuerdo con AVNIKA. tengo el mismo problema :-|
Este comentario fue minimizado por el moderador en el sitio
Hola, he estado tratando de seguir los pasos como se indica. Seleccioné todas las opciones anteriores, pero después de seleccionar la opción "ejecutar un script" y seleccionar el enlace "un script", no aparece el script en ese cuadro de diálogo. Por favor, ayuda tan pronto como sea posible. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Tuve el mismo problema. Encontré una resolución aquí: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook-mso_win10/the-option-to-run-a-scritp-has-disappeared-from/d289e698-47fa-497a-80fa-633067a0de37#ThreadAnswers<br /> Una vez que actualicé mi registro con la clave... comenzó a funcionar como se suponía que debía hacerlo de nuevo. Pruébelo y vea si funciona para usted.
Este comentario fue minimizado por el moderador en el sitio
Gracias, todavía funcionó hoy :)
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por los pasos tan claramente mencionados... Estos me ayudaron mucho e hicieron mi trabajo muy fácil... ¡¡GRACIAS.....!!
Este comentario fue minimizado por el moderador en el sitio
Esto me funciona muy bien Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\Dck-server-02\g\00 Uploads\" For Each oAttachment In MItem.Attachments oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub Como puede ver, he dejado el nombre de archivo que es el archivo adjunto como el mismo para cuando se copia en la unidad de red. Sin embargo, si llegan varios correos electrónicos con el mismo nombre de archivo para el archivo adjunto, la secuencia de comandos permite que el archivo adjunto más reciente sobrescriba el archivo adjunto anterior en la carpeta de red. ¿Hay alguna edición que pueda ingresar en el script que agregará un "-1", "-2", "-3", etc. al final del nombre del archivo adjunto? Entonces, por ejemplo, si el archivo adjunto se llama "inspección" y recibo varios que aparecen, ¿puedo cambiar su nombre a "inspección-1" "inspección-2" "inspección-3" Cualquier ayuda sería MUCHO apreciada! Gracias.
Este comentario fue minimizado por el moderador en el sitio
Hola Jayayah. Intente verificar el archivo antes de guardarlo. Dim filepath As String filepath = Dir(sSaveFolder & oAttachment.DisplayName) If filepath = "" Then oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Else oAttachment.SaveAsFile sSaveFolder & "1-" & oAttachment.DisplayName End if y así sucesivamente... Juega con el código y hazme saber cómo te va...
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna posibilidad de cambiar esto para que solo se copien los archivos que tienen ciertas palabras en su nombre?
Este comentario fue minimizado por el moderador en el sitio
¿Se puede configurar Kutools para que solo guarde los archivos adjuntos de ciertos correos electrónicos según el asunto? ¿Y se puede guardar el mismo archivo en varios directorios desde un solo correo electrónico? Queremos usar esto para la distribución de informes en lugar de correo electrónico.
Este comentario fue minimizado por el moderador en el sitio
hola muchas gracias este trabajo pero solo una vez, las proximas veces no se guarda el archivo en el disco :( no se porque, alguna idea? gracias
Este comentario fue minimizado por el moderador en el sitio
Hola, tengo el mismo problema (Funciona solo una vez). ¿Pudiste solucionar el problema?
Este comentario fue minimizado por el moderador en el sitio
Hola,
Compruebe si la carpeta de destino contiene archivos adjuntos de Outlook o no. Y más información sobre este problema será útil. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Hola, debo decir que es un guión excelente, resolvió el 80 % de mi trabajo, pero todavía tengo un problema. Los archivos adjuntos que recibo tienen una nueva marca de fecha y hora a diario y quiero guardar automáticamente estos archivos adjuntos, pero eliminando la marca de fecha/hora para que la próxima vez los reemplace/sobrescriba y guarde una nueva copia con el mismo nombre. No quiero que los archivos adjuntos de todos los días se guarden con una nueva fecha. en cambio, el mismo archivo debe ser reemplazado en la misma ubicación. ¿Puedes ayudarme?
Este comentario fue minimizado por el moderador en el sitio
Hola a todos, ¿Cómo puedo configurar esto para tener un script diferente para enviar archivos a diferentes carpetas? ¡Gracias por cualquier ayuda ofrecida de antemano!
Este comentario fue minimizado por el moderador en el sitio
Hola, estoy configurando el script que tiene en la parte superior de la página y funciona bien, sin embargo, me gustaría nombrar el archivo adjunto que se guarda para que sobrescriba el anterior. ¿Qué necesitaría agregar para que esto suceda? gracias david
Este comentario fue minimizado por el moderador en el sitio
Hola a todos los expertos, me esfuerzo por configurar la descarga automática como se describe anteriormente mediante el script VBA, pero no se ha guardado nada en la carpeta de destino. Probé esto en Outlook 2007 y Outlook 2010, y también me aseguré de que la carpeta tenga todas las autorizaciones necesarias. Pero aún no se ha guardado ningún archivo adjunto. ¿Puede alguien ayudarme con esto? Saludos stanley
Este comentario fue minimizado por el moderador en el sitio
En Outlook 2013, la opción "ejecutar un script" no está disponible. ¿Puedo hacer algo más para guardar archivos adjuntos de un correo electrónico sin usar Kutools?
Este comentario fue minimizado por el moderador en el sitio
Si falta la opción "Ejecutar un script", es porque ahora está bloqueada de forma predeterminada desde una actualización de seguridad hace unos meses. Vea aquí para más información: https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/
Este comentario fue minimizado por el moderador en el sitio
Hola, el script funciona bien... pero quiero extraer los PDF de una subcarpeta, no de la bandeja de entrada principal. ¿Hay alguna manera de cambiar el guión?
Gracias de antemano!
Este comentario fue minimizado por el moderador en el sitio
Hola Eric,
A continuación, el script de VBA guardará todos los archivos adjuntos en PDF de las carpetas de correo. Para guardar desde una determinada carpeta, puede especificar la carpeta al ejecutar manualmente la regla.


Public Sub SaveAttachmentsToDisk (Elemento de correo electrónico como Outlook. Elemento de correo)
Dim xAdjunto como Outlook.Adjunto
Dim xDotPos como entero
Dim xSavePath como cadena, xFileType como cadena
xSavePath = "C:\Usuarios\DT168\Documentos\archivos adjuntos de Outlook\"
Para cada archivo adjunto x en EmailItem.Attachments
xDotPos = InStrRev(xAttachment.DisplayName, ".")
xFileType = Mid(xAdjunto.DisplayName, xDotPos, Len(xAdjunto.DisplayName) - xDotPos + 1)
Si xFileType = ".pdf" Entonces
xAttachment.SaveAsFile xSavePath & xAttachment.DisplayName
Si terminar
Siguiente
End Sub
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿hay un script VBA para archivos adjuntos CSV? Actualmente tengo trabajos de informes que van automáticamente a carpetas con nombre en Outlook. Ahora me gustaría que esos archivos en las carpetas se extraigan y vayan a las carpetas correspondientes en mi escritorio. Espero que esto tenga sentido. ¡Por favor ayuda! Soy muy nuevo en VBA.
Este comentario fue minimizado por el moderador en el sitio
Hice todas las secuencias de comandos para descargar los archivos adjuntos del correo de Outlook y mi secuencia de comandos funciona bien cuando la ejecuto manualmente. Me gustaría automatizar el proceso usando la opción Regla. Pero no pude ver mi macro en la ventana del Asistente de reglas. También he habilitado la siguiente opción en el registro
HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook \ Security
DWORD: EnableUnsafeClientMailRules
Valor: 1

Pero todavía no podía ver mi macro en la lista del Asistente para reglas. Mi lista de asistentes de reglas está vacía, pero ya he creado la macro y funciona bien manualmente. Tengo que traer la macro en mi asistente de Reglas para automatizar el proceso. ¡Por favor ayúdame si tienes alguna idea!
No hay comentarios publicados aquí todavía
Ver más

Síganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL