Enviar email predefinido adjuntando archivo
Publicado por Salvador (18 intervenciones) el 15/02/2017 22:52:33
Hola:
Tengo este código en un archivo llamado "Ejemplo.vbs" que abre el Outlook con los campos habituales (Para, CC, Asunto, etc) completados. Pero el campo "Adjunto" quisiera que lo tomara de manera automática (para no escribir manualmente la ruta del archivo) al arrastrar dicho archivo al icono "Ejemplo.vbs".
¿Hay alguna forma conseguirlo?
Tengo este código en un archivo llamado "Ejemplo.vbs" que abre el Outlook con los campos habituales (Para, CC, Asunto, etc) completados. Pero el campo "Adjunto" quisiera que lo tomara de manera automática (para no escribir manualmente la ruta del archivo) al arrastrar dicho archivo al icono "Ejemplo.vbs".
¿Hay alguna forma conseguirlo?
1
2
3
4
5
6
7
8
9
10
11
12
para = "mail1@empresa.com; mail2@empresa.com; mail3@empresa.com"
asunto = "Reporte"
mensaje = "Estimados, adjunto reporte."
adjunto = "C:\Users\usuario\Desktop\prueba.jpg" '<<<<<<<<<<<<<<<
Set outlook = CreateObject("Outlook.Application")
Set correo = outlook.CreateItem(olMailItem)
correo.To = para
correo.Subject = asunto
correo.Body = mensaje
correo.Attachments.Add(adjunto) '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
correo.display
Valora esta pregunta


0