Estoy usando para el envio de e-mail la rutina de abajo....:
se puede que en el cuerpo del mensaje incorporar una imagen? para que el que recibe el correo visualice dicha imagen?.
Con la rutina la puedo poner como documento adjunto, pero quiero ver como dije que el que recibe el correo visualice dicha imagen.
muchas gracias
david
Argentina
Code: Select all
#include "MAIL.ch"
*xOrigin = Direccion de Origen {}
*xRecipients = Direccion de Destino {}
*xFiles = Archivos a Enviar {}
*xMensaje = Mensaje {}
*xSubject = Titulo de E-mail ''
*************************************
FUNCTION xEnviarMail( xOrigin ,;
xRecipients ,;
xFiles ,;
xMensaje ,;
xSubject )
*************************************
Local oMail
Local cMensaje1 := xMensaje[1]
Local cMensaje2 := xMensaje[2]
Local cMensaje3 := xMensaje[3]
local cSubject := xSubject //"Título del mensaje"
*local cNoteText := cMensaje1 + CRLF + CRLF + cMensaje2 + CRLF + CRLF + cMensaje3
local cNoteText := cMensaje1 + chr(13)+ chr(13) + cMensaje2 + chr(13) + chr(13) + cMensaje3
* local cNoteText := cMensaje1 + ' ' + cMensaje2 + ' 'cMensaje3
local cMsgType := nil
local cConversationID := nil
local dDate := Date()
local cTime := Time()
local lReceipt := .f.
local lFromUser := .t. // Abre el gestor de correo
local aOrigin := xOrigin //{"tudireccion@dominio.com"}
local aRecipients := xRecipients //{CLIENTES->Mail}
local aFiles := xFiles //{"c:\factura1.pdf","c:\factura2.pdf"}
//
cMensaje1 := xMensaje[1] //"Linea 1 del mensaje"
cMensaje2 := xMensaje[2] //"Linea 2 del mensaje"
cMensaje3 := xMensaje[3] //"Linea 3 del mensaje"
//
oMail:=TMail():New(cSubject ,;
cNoteText ,;
cMsgType ,;
cConversationID ,;
dDate,;
cTime,;
lReceipt,;
lFromUser,;
aOrigin,;
aRecipients,;
aFiles)
oMail:Activate()
oMail:End()
RETURN NIL 