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
[-]
IdSMTP1.Host:=DbEdit6.Text;
IdSMTP1.Port:=25;
IdMessage1.From.Address:=DbEdit7.Text;
IdMessage1.Subject:=DbEdit5.Text;
IdMessage1.Body.Text:=RichEdit1.Text;
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!