Modificar script de envio de correo automatico
Publicado por Morpvin (4 intervenciones) el 11/12/2016 08:46:45
Tengo este script para envios automaticos de correos con adjuntos, pero quisiera modificarlo para que en el asunto despues del texto incluido en el asunto añada la fecha del dia automaticamente, es decir, si en el asunto va "informe" añada a continuacion "11/12/2016". Eso por un lado, ademas, que a la hora de añadir el adjunto no seleccione un archivo concreto de la carpeta si no los que cumplan, por ejemplo, que todos los que empiecen por "informe" o por "ventas", sea uno o varios naturalmente, espero haberme explicado bien, espero vuestra ayuda, gracias.
Este es el script:
Este es el script:
1
2
3
4
5
6
7
8
9
10
11
para = "mail1@empresa.com; mail2@empresa.com; mail3@empresa.com"
asunto = "Reporte"
mensaje = "Estimados, adjunto i."
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. SendValora esta pregunta
0
