Enviar email con Cuerpo HTML
 

Hola,

Como puedo enviar un email con el cuerpo en HTML?
Aqui esta mi codigo:

Código Delphi [-]
 var OleApp,OleItem : OleVariant; i: integer;
begin
  try
    try
       OleApp := GetActiveOleObject('Outlook.Application');
    except
       OleApp := CreateOleObject('Outlook.Application');
    end;

    OleItem := OleApp.CreateItem(0);
    OleItem.Subject := IBQueryEx1CAMPANYA.AsString;
    for i:=0 to Destinatarios.Count-1 do begin
        OleItem.Recipients.Add(Destinatarios[i]);
    end;
    OleItem.Body := ' Ke pasa Neng  Esto es una prueba  ';
    OleItem.Send;
    OleItem := VarNull;
    OleApp := VarNull;
    MessageDlg('Operación Completada',mtInformation,[mbOk],0);
  except
     OleItem := VarNull;
     OleApp := VarNull;
     MessageDlg('No se ha podido enviar el correo a todos los destinatarios',mtError,[mbOk],0);
  end;

Lo he probado asi (no pongo los simbolos < > aqui xke sino no se ven en el post),

Código Delphi [-]
OleItem.Body := ' html  head Ke pasa Neng /head body Esto es una prueba  /body /html';

pero no funciona, sale como texto normal.
A ver si alguien puede darme alguna idea de como hacerlo.
Muchas gracias de antemano!

Para hacer eso nada mejor que Indy compañero, consiguete la versión de producción actual y bájate los ejemplos, allí incluyen uno que precisamente envía correo en formato html.

Nosotros precisamente lo usamos para enviar correos con gráficas de barra y rejillas de datos. Todo en formato html.


Suerte

Tambien puedes hacer uso del componente TNMSMTP de la paleta FastNet, que tambien sirve para enviar correos y tiene una propiedad para especificar el tipo del body del mail (texto plano / html)

Saludos

de todas maneras te recomiendo los de INDY ya que con los TNMSMTP dependiendo de la version que utilices (no conozco todas) no soportan Autenticacion. y terminaras con el problema de que si tu servidor no soporta RElay anonimo no podras mandar correos a quienes esten fuera de tu domino.
Saludos
y perdon si me equivoco.

regresar a OLe
 

si quieres utilizar to codigo Ole puedes ocupar la variant HtnlBody, de esta forma outlook reconoce que le estas pasando un codigo html y no lo "traduce

Hola, en este hilo esta publicado un codigo que funciona para mandar e-mail con codigo html y adjuntando fotos. Recordar que para que las lea la persona a la que le enviais el correo, antes del nombre de la imagen en html, se debe poner la palabra cid, es decir, <image src ="cid:logo.jpg">.

http://www.clubdelphi.com/foros/show...t=18819&page=3

UN SALUDO.