Acerca de enviar texto con formato...

[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

[ContraVeneno]

Código Delphi [-]
Uses r2hconv

....
procedure Tfrm.EnviaCorreoClick(Sender: TObject);
var strOrigen: string;
begin
  inherited;
  redtMail.lines.SaveToFile('c:\temp.rtf');
  r2hconv.rtf2html('c:\temp.rtf', 'c:\temp.htm', ['']);
  redtHTML.Lines.LoadFromFile('c:\temp.htm');
  redtHTML.Lines.Add('');
  redtHTML.Lines.Add('');
  //leve verificación sobre el fomato de la dirección escrita
   if trim(edtMail0.text)='' then begin
    messagebox(Handle,'No ha escrito la dirección de correo del destinatario seleccionado.'+#13+'Correo No enviado.',
    'Error', MB_ICONError); Exit;
   end else begin
    if not ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+',
        edtMail0.Text) then begin
      messagebox(Handle,'La dirección escrita no es una dirección de correo válida.'+#13+'Correo No enviado.',
      'Error', MB_ICONError);
      exit;
      //verificación sobre la segunda dirección
      if trim(edtMail1.text)<>'' then
       if not ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+',
         edtMail1.Text) then
           edtMail1.text:='';
    end; //if not execregexpr
   end; //if trim mail0
   //Enviar el mail despues de guardar los datos
   frm.SMTP.Host:=Host;
   frm.SMTP.UserId:=Usuario;
   strOrigen:=strOrigen;
   frm.SMTP.Port:=25;
  with frm.SMTP do begin
   try
    try
     Connect;
    except on E:Exception do begin
     messagebox(Handle,'No se pudo establecer la conexión.'
     ,'Error.',MB_oK+MB_ICONERROR);
     end; //fin except
    end; // fin try - except
   finally
    if Connected then begin
      PostMessage.FromAddress:=strOrigen;
      PostMessage.ToAddress.Text:=edtMail0.Text;
      if edtMail1.Text<>'' then
        PostMessage.ToCarbonCopy.Text:=edtmail1.text;
      with PostMessage.Body do begin
       Clear;
       Add(redtHTML.Text);
      end; //with body
       PostMessage.Subject:=edtAsunto.Text;
       SendMail;
       Disconnect;
      end;
     end; //if connected
   end; //fin try - finally
   end; //with smtp
end;
....

usando un componente SMTP.

Aunque personalmente prefiero utilizar el método ShellExec con un comando mailto.

Más explícito que eso, no creo, pero puedes preguntar

[Phantom_Drake]

de hecho si tengo dudas aun en la linea:

Código Delphi [-]
if not ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+',edtMail0.Text) then

marca error en el ExecRegExpr
a ke se debe esto???