Visual Basic - Modificar script de envio de correo automatico

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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:

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. Send
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Modificar script de envio de correo automatico

Publicado por Andres Leonardo (1798 intervenciones) el 12/12/2016 14:54:27
1
2
3
4
5
6
7
8
9
10
11
12
13
para = "mail1@empresa.com; mail2@empresa.com; mail3@empresa.com"
asunto = "Reporte - " & Date   ' Con esto te deberia funcionar.....
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
'aqui un loop para ver  el contenido de la carpeta y segun el nombre lo agregue o no
Correo. Attachments. Add(adjunto)
'fin del loop
Correo. Send
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 7
Ha aumentado su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Modificar script de envio de correo automatico

Publicado por Morpvin (4 intervenciones) el 12/12/2016 18:16:30
Muchas gracias, no tengo ni idea de vbs pero buscare como hacerlo, muy agradecido. Un Saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar