Inicio MS / Office VBScript – Adjuntar archivos automáticamente y enviar correo Outlook

VBScript – Adjuntar archivos automáticamente y enviar correo Outlook

COMPARTIR


La función del siguiente VBScript es adjuntar un archivo o archivos automáticamente en base a la búsqueda de una serie de dígitos en el nombre del archivo y enviarlos por correo electrónico.

Instrucciones de Uso

1.- Abrir el editor de Visual Basic (ALT+F11).

2.- Insertar un modulo nuevo (Insert > Module).

3.- Copiar el código VBScript.

4.- Realizamos las modificaciones necesarias tal como ruta donde se guardan los archivos, las lineas que modificaremos son las: 17, 35 a la 39.

5.- Ejecutamos con la tecla F5

6.- Cuando lo ejecutemos nos mostrara una ventana donde capturamos el dato a buscar (Detecta mayúsculas y minúsculas).

6.- Una vez que demos OK para la búsqueda, nos abrirá un correo con los adjuntos encontrados y el cuerpo de correo que hayamos especificado.

Otro ejemplo donde se adjuntan todos los archivos que contienen el numero 347.

7.- Podemos enviar después de revisar el correo, si deseamos que se envíe automáticamente se pusieron comentarios en las lineas 38 y 39 del código.

Para mas información de configuración ver: Como utilizar el Editor VBA en Office (Utilizar Macros VBScript) y Outlook – Crear y configurar reglas

Código

Código basado en codigo de Diane Poremsky y modificado a solicitud de morpvin.

2 Comentarios

  1. Esta perfecto pero claro, si me pregunta la extension o los datos no es del todo automatico, me puedes indicar que puedo cambiar para que no pregunte e incluir directamente la seleccion en el script, es decir que seleccione la extension que necesito pero fija en el script, gracias y perdona tanta molestia. Un Saludo.

Deja un comentario...