Enviar Mails funciona pero...
Publicado por Ramrio (20 intervenciones) el 15/01/2007 14:24:55
Yo temgo este codigo para enviar mails, pero lo que nose es como poder agregar desde este codigo el mensage del Mail.
Lo que no quiero es tener que agregar el mesage cuando habre el outlook, solo quiero que lo habra que ya lo hace y ver os datos antes de guardarlo.
Dim oOutlook As Variant
Dim oMail As Variant
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)
oMail.To = "v_Destinatario"
oMail.CC = " "
oMail.Subject = "Visitas para agendar"
'' Aca tendria que ir el codigo para agregar el mensage que lo tomo de una variable "
oMail.Display
Gracias Ramiro
Lo que no quiero es tener que agregar el mesage cuando habre el outlook, solo quiero que lo habra que ya lo hace y ver os datos antes de guardarlo.
Dim oOutlook As Variant
Dim oMail As Variant
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)
oMail.To = "v_Destinatario"
oMail.CC = " "
oMail.Subject = "Visitas para agendar"
'' Aca tendria que ir el codigo para agregar el mensage que lo tomo de una variable "
oMail.Display
Gracias Ramiro
Valora esta pregunta
0