Acerca de enviar texto con formato...

[JuanBCT]

Finalmente logré enviar el mensaje; explico acá lo que hice por si le sirva a alguien...

1) Guardo el contenido del cuerpo en un archivo RTF temporal

Código Delphi [-]
 Datamodule1.MailsCuerpo_Mail.SaveToFile('C:\WINDOWS\EMKTMP.RTF');

2) Convierto el RTF en HTML (lo hice con una rutina freeware q encontré en Torry.net)

3) Leo el HTML y lo cargo en un RichEdit invisible:

Código Delphi [-]
 try
 Archiv.LoadFromFile('C:\WINDOWS\EMKTMP.HTM');
  for A:=0 to Archiv.Count -1 do
   begin
     SS:=archiv.Strings[A];
     richedit1.Lines.Add(SS);
   end;
 finally
    Archiv.Free;
 end;

4) Mando el mail, y en el Body le asigno el texto del RichEdit invisible:

Código Delphi [-]
 //Seteando propiedades del SMTP
 IdSMTP1.Host:=DbEdit6.Text;
 IdSMTP1.Port:=25;
 //Seteando propiedades del mensaje
 IdMessage1.From.Address:=DbEdit7.Text;
 IdMessage1.Subject:=DbEdit5.Text;
 IdMessage1.Body.Text:=RichEdit1.Text;
 //Envío el mensaje
 try
   try
     IdSMTP1.Connect(1000);
     IdSMTP1.Send(IdMessage1);
     except on E:Exception do
       ShowMessage ('Error. Chequee las direcciones en "Configuración de cuenta".');
     end;
   finally
     if IdSMTP1.Connected then IdSMTP1.Disconnect;
     ShowMessage ('Mensaje enviado.');
   end;

Listo!

[JuanBCT]

Perdón, en 3), antes de Archiv.Free; iría esto:

richedit1.Lines.Add('');
richedit1.Lines.Add('</BODY>');
richedit1.Lines.Add('</HTML>');

[ContraVeneno]

a mi me sirvió, Gracias

[ContraVeneno]

Empezado por JuanBCT

2) Convierto el RTF en HTML (lo hice con una rutina freeware q encontré en Torry.net)

¿me podrías pasar esa rutina?
Lo que hiciste me resolvió un problema, pero con la conversión que hacía, me surgen más y más problemas. He tratado de buscar esa rutina que mencionas, pero no he podido encontrarla. Si fueras tan amable de facilitármela te lo agradecría mucho.

[JuanBCT]

Hola Contraveneno, disculpa que no había visto antes tu mensaje. Acá está la rutina en cuestión... http://www.torry.net/quicksearchd.ph...rter&Title=Yes

... en realidad solo usé r2hconv.pas, lo incluí en el proyecto y lo llamé así:

Código Delphi [-]
r2hconv.rtf2html('C:\WINDOWS\EMKTMP.RTF', 'C:\WINDOWS\EMKTMP.HTM',['']);

(no sé si el autor permite usar el archivo por separado, pero bueno... me tomé esa libertad)

Espero que te sirva, saludos!

[ContraVeneno]

No hay problema JuanBCT, la paciencia no es una de mis virtudes, pero entiendo que se atravesó el fin de semana, en fin, no hay problema con eso.

Con la rutina que mencinoas, ya me fuinconó perfecto. Y yo tambien solo utilizé esa unidad, digo, es lo único que necesito .

Muchas Gracias.

[Phantom_Drake]

yo intente utilizando ese codigo pero a mi correo me llego puro codigo html y nada de formato podrian ser un poco mas esplicitos por favor