Inicio MS / Office VBScript – Guardar Archivos Adjuntos de Correos .MSG Automaticamente (Guardar adjuntos de...

VBScript – Guardar Archivos Adjuntos de Correos .MSG Automaticamente (Guardar adjuntos de correos adjuntos)

493
0
COMPARTIR


A solicitud de un usuario hemos creado un Script el cual su funcionamiento es guardar adjuntos de correos adjuntos automáticamente. Este consiste al momento de recibir un correo que contenga correos adjuntos en este, es decir archivos .msg este los va a guardar en una carpeta temporal, va a leer y guardara los adjuntos de cada correo (.msg) en esta carpeta.

También es posible que ya tengas guardados lo correos .msg en una carpeta y deseas extraer los adjuntos de estos puedes hacerlo con el siguiente Script Ver: VBScript – Guardar Archivos Adjuntos de Correos .MSG Ya Guardados en el Disco Duro

Código

Instrucciones de Uso

1.- Creamos el modulo en VBScript (Ver: Como utilizar el Editor VBA en Office Outlook).

2.- Configuramos la regla del cual normalmente recibimos los correos adjuntos en los correos (por asi llamarlo) para que se ejecute cuando lo recibamos (Ver:Crear y Configurar Reglas).

3.- Una vez que tengamos configurado lo anterior debemos crear la carpeta temporal que vemos en la linea 10 del código el cual es: Temp esta la crearemos en el C:\Temp\ si deseamos cambiar la ruta también se debe realizar en el código en las lineas 10 y 23.

4.- Modificamos el tipo de archivo que deseamos guardar en el ejemplo solicitaron que fueran .pdf y .xml asi que en la linea 71 se especifico de la siguiente manera, lo pueden modificar a la extension de el archivo que deseen.

Si deseamos que guarde todos los archivos adjuntos podemos eliminar las lineas 71 y 73 el cual sería la linea anterior y el End If.

5.- Ya configurado y creadas las carpetas requeridas al momento de recibir un correo con correos adjuntos por ejemplo:

Ejemplo-Guardar adjuntos de correos adjuntosEd

6.- El script se ejecutara, guardara los archivos en la ruta temporal y nos preguntara donde deseamos guardar los adjuntos de esos correos; extraerá y guardara los adjuntos en la carpeta indicada.Ruta - Guardar adjuntos de correos adjuntos7.- En la siguiente imagen se muestra que guardo los pdf contenidos, en los correos venian adjuntos archivos .xls, .doc y ninguno traia adjunto un xml.

Documentos - Guardar adjuntos de correos adjuntos

8.- Una vez guardados se eliminan los correos de la carpeta temporal.

9.- Listo, finaliza nuestro proceso, así con cada correo que recibamos con adjuntos y que cumpla con las condiciones que se especificaron al crear la regla.

Deja un comentario...