Ir al contenido


Foto

Enviar Correo tipo HTML


  • Por favor identifícate para responder
5 respuestas en este tema

#1 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 08 junio 2009 - 07:38

Tengo el siguiente codigo que me permite enviar un correo via POP:



delphi
  1. var
  2.   mail : TIDMessage;
  3.   smtp : TIdSMTP;
  4.   cArchivo: String;
  5. begin
  6.   smtp := TIdSMTP.Create(self);
  7.   smtp.Name := 'Smtp';
  8.   // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  9.   with smtp do begin
  10.     AuthenticationType := atLogin;
  11.     Host := Sistema.hostcorreo;
  12.     port := Sistema.portcorreo;
  13.     Username := Sistema.username;
  14.     Password := Sistema.Password;
  15.   end;
  16.  
  17.   mail := TIdMessage.Create(Self);
  18.   // CONFIGURACION DEL MENSAJE A ENVIAR
  19.   with mail do begin
  20.     From.Address := 'automaticosalvador@salvador.com.ve';
  21.     Recipients.EMailAddresses := Sistema.Correoenviar;
  22.     Subject := 'TICKETS ' + Empresa.Nombre;
  23.     body.text := 'CORREO GENERADO AUTOMATICAMENTE EL ' + DatetoStr(now) + ' A LAS ' + TimetoStr(Time) + ' DESDE ' + Empresa.Nombre + ' Trae: ' + cLinea1 + ' ' + cLinea2;
  24.   end;
  25.  
  26.   //Archivo adjunto
  27.   if FileExists(cArchivo) then
  28.     TIdAttachment.create(mail.MessageParts, cArchivo);
  29.  
  30.   try
  31.     // CONEXION CON EL SERVIDOR DE CORREO
  32.     smtp.Connect(10000);
  33.     try
  34.       // ENVIO DEL MENSAJE
  35.       smtp.Send(mail);
  36.       ShowMessage('Se envio el correo');
  37.     except
  38.       on E: Exception do
  39.         ShowMessage('Fallo al enviar: ' + E.Message);
  40.     end;
  41.   finally
  42.     if SMTP.Connected then SMTP.Disconnect;
  43.     smtp.free;
  44.     mail.free;
  45.   end;
  46.  
  47. end;



Este me permite enviar correos de texto plano, pero ahora necesito enviar correos que contienen imagenes y texto en formato HTML, alguien sabe como hacer esto?
  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 08 junio 2009 - 08:05

Pregunta, ¿cArchivo ya viene previamente con un contenido o algún código lo genera?, digo porque si viene con un contenido fijo en un texto plano como dices pues sólo deberí­as poner el contenido formateado en HTML de manera manual.

Saludos.
  • 0

#3 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 08 junio 2009 - 08:08

cArchivo es un archivo adjunto, si quieres enviar un archivo adjunto simplemente le das la ruta y listo.

Hacer lo que dices que en el Body.Text colocarle el contenido formateado no me sirve, porque en el destino se ve igual el texto plano con las etiquetas.

Seguro que debo mover alguna propiedad pero no se cual, sigo buscando
  • 0

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 08 junio 2009 - 08:47

8-| :^)
  • 0

#5 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 12 junio 2009 - 03:24

Problema resuelto, despues de tantas horas de prueba y error me di cuenta que esta es la propiedad que hay que cambiarle al objeto mail.



delphi
  1. mail.ContentType := 'text/html';



Y el body.text es un texto escrito en HTML
  • 0

#6 GSN

GSN

    Newbie

  • Miembros
  • Pip
  • 2 mensajes

Escrito 30 julio 2013 - 05:41

pondrias el source completo...  ;)
  • 0




IP.Board spam blocked by CleanTalk.