FoxPro/Visual FoxPro - Enviar correo como HTML

   
Vista:

Enviar correo como HTML

Publicado por Juan (71 intervenciones) el 11/03/2015 15:03:43
Buenas tardes.

Alguien sabe cómo se puede hacer que al enviar un correo con Outlook, el cuerpo lo pueda generar como HTML o decirle directamente que me coja un fichero?.

Yo lo hago de la siguiente manera pero no se como decirle o generar un HTML para agregar una firma.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
	#DEFINE olFormatHTML 2
 
	cText1='<HTML><BODY>'
	cText2='Prueba de texto'
	cTetx3='</BODY></HTML>'
 
	cEmail=prueba@prueba.com
 
	oOutlook = CREA ("outlook.application")
	oMail = oOutlook.createitem(0)
        oMail.BodyFormat = olFormatHTML
	oMail.HTMLBody = cText1+cText2+cText3
	oMail.attachments.add(fichero_para_adjuntar)
	oMail.recipients.add(cEmail)
	oMail.Subject = 'Asunto'
	oMail.display
 
	oMail.send(1)
	oMail = .NULL.
	release oMail
	oOutlook = .NULL.
 
	release oOutlook

Un saludo.
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

Enviar correo como HTML

Publicado por Juan (71 intervenciones) el 11/03/2015 15:54:14
Ya está solucionado:

1
oMail.HTMLBody = filetostr(nombre_del_archivo)
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