Visual Basic para Aplicaciones - Enviar Mail vía Outlook (Cuerpo de Mail)

Life is soft - evento anual de software empresarial
   
Vista:

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
Sin-titulo

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder