Enviar Mail vía Outlook (Cuerpo de Mail)
Publicado por Francisco Andrés (11 intervenciones) el 11/05/2015 14:55:54
Les escribo a ustedes para ver si me pueden dar una solución con este tema.
Estoy necesitando armar un mail donde el cuerpo del mismo sea parametrizado.
Yo necesito que el mail sea de la siguiente forma:
Estimados,
Se envía el siguiente mail con información detallada:
'Datos copiados desde libro de excel
Muchas gracias.
Saludos.-
Yo estoy utilizando el siguiente código, donde utilizo filtros avanzados:
Workbooks.Open "K:\Francisco Torre\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx"
Como hago para que el mail me quede armado como yo quiero?
Estoy necesitando armar un mail donde el cuerpo del mismo sea parametrizado.
Yo necesito que el mail sea de la siguiente forma:
Estimados,
Se envía el siguiente mail con información detallada:
'Datos copiados desde libro de excel
Muchas gracias.
Saludos.-
Yo estoy utilizando el siguiente código, donde utilizo filtros avanzados:
Workbooks.Open "K:\Francisco Torre\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx"
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=3, Criteria1:= _
"Francisco Andres"ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=9, Criteria1:= _
"OK"ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range("B:F").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope.Introduction = "A continuación se envían Datos"
.Item.To = "ftorre@ppt@cgdweb.com"
.Item.Subject = "Informe Datos"
.Item.Send
End With
Como hago para que el mail me quede armado como yo quiero?
Valora esta pregunta
0