correo con html
Publicado por Pablo (26 intervenciones) el 26/12/2008 20:47:16
Estimados Amigos
Tengo el siguiente problema:
He realizado un programa en Visual foxpro para enviar correo electronico con outlook, lo tengo ejecutando sin problemas, pero deseo perfeccionarlo mas aun, asi que estoy haciendo que el correo electronico tenga formato html y lo que necesito es pasarle los campos de una tabla al codigo html para que aparezca con la informacion de la bd.
Este es el codigo que utilizo, me pueden indicar como hacerlo.
objOutlook = CreateObject("Outlook.Application")
oEMailItem = objOutlook.CreateItem(0)
WITH oEMailItem
.Recipients.Add([email protected]')
.Subject = "Prueba de envio"
.Importance = 2 &&importancia media
.htmlbody = .T.
TEXT TO mcodigo NOSHOW
<p><i><b>Nombre:</b><br>
<b>Apellido:</b><br>
ENDTEXT
.htmlbody = mcodigo
.Send
ENDWITH
RELEASE objOutlook
RELEASE oEMailItem
Los nombres de los campos son
nomb_alu
ape_alu
y deben de ir al donde le corresponden dentro de la instruccion TEXT
Espero sus comentarios
Saludos
Pablo Carranza
Tengo el siguiente problema:
He realizado un programa en Visual foxpro para enviar correo electronico con outlook, lo tengo ejecutando sin problemas, pero deseo perfeccionarlo mas aun, asi que estoy haciendo que el correo electronico tenga formato html y lo que necesito es pasarle los campos de una tabla al codigo html para que aparezca con la informacion de la bd.
Este es el codigo que utilizo, me pueden indicar como hacerlo.
objOutlook = CreateObject("Outlook.Application")
oEMailItem = objOutlook.CreateItem(0)
WITH oEMailItem
.Recipients.Add([email protected]')
.Subject = "Prueba de envio"
.Importance = 2 &&importancia media
.htmlbody = .T.
TEXT TO mcodigo NOSHOW
<p><i><b>Nombre:</b><br>
<b>Apellido:</b><br>
ENDTEXT
.htmlbody = mcodigo
.Send
ENDWITH
RELEASE objOutlook
RELEASE oEMailItem
Los nombres de los campos son
nomb_alu
ape_alu
y deben de ir al donde le corresponden dentro de la instruccion TEXT
Espero sus comentarios
Saludos
Pablo Carranza
Valora esta pregunta


0