VBScript: Como enviar un reporte por correo automáticamente

"Por favor envíame tu reporte..." Si no es la frase más detestada para cualquiera que trabaje en un área administrativa, de seguro debe estar en el top 5 fijo...

Aunque bueno, no debería molestarnos porque se supone que es nuestra responsabilidad que la información sea oportunamente distribuida al equipo de trabajo, por lo que este tipo de solicitudes nunca deberían presentarse. 

La persona organizada y disciplinada establecería uno o dos momentos en el día para realizar esta tarea. El vago hace un script que se encargue de eso. 

Pequemos de vagos entonces:

Crea un archivo de texto con el block de notas, por ejemplo enviarReporte.txt

Dentro del archivo escribe el siguiente texto, en el cual vas a modificar el texto en azul según tus necesidades:

para = "mail1@empresa.com; mail2@empresa.com; mail3@empresa.com"
asunto = "Reporte"
mensaje = "Estimados, adjunto reporte."
adjunto = "C:\reportes\reporte.xlsx"

Set outlook = CreateObject("Outlook.Application")
Set correo = outlook.CreateItem(olMailItem)
correo.To = para 
correo.Subject = asunto
correo.Body = mensaje
correo.Attachments.Add(adjunto)
correo.Send 

Ahora cambia la extensión del archivo de ".txt" a ".vbs".

Qué cosa? No sabes? Mr MBA?! Bueno ya aquí te explico cómo hacerlo. 

Ya tienes un script de Visual Basic, basta con hacer doble click sobre este para enviar un correo a los destinatarios que especificaste con tu reporte como adjunto.

Pero yo no quiero tener que hacer click, nadie quiere. La idea es que todo esto se haga automáticamente. 

En esta parte nos ayuda el programador de tareas. Allí vas a indicar la hora y los días de la semana en que quieres que se ejecute el script, y listo nunca más tendrás que escuchar la espantosa frase con la que comenzamos el post.