ps como no he tenido tiempo de acomodar el ejemplo ahi te va el codigo espero ke le puedas entender por ke esta todo desacomodado alguna duda no hay pex tu pregunta
Código Delphi
[-]procedure TFrm_Email.Button2Click(Sender: TObject);
var I,J,K,L,enviados:Integer;
cadena,correo:string;
Check: TcheckBox;
ChildControl: TControl;
html: TStrings;
htmpart, txtpart: TIdText;
bmppart: TIdAttachment;
email: TIdMessage;
filename,ss,filename1: string;
a,count:Integer;
idStars: TIdAttachment;
begin
bandera:=true;
enviados:=0;
count:=0;
Redt_Texto.Lines.SaveToFile('C:\WINDOWS\EMKTMP.RTF');
r2hconv.rtf2html('C:\WINDOWS\EMKTMP.RTF', 'C:\WINDOWS\EMKTMP.HTM',['']);
try
RichEdit2.lines.LoadFromFile('C:\WINDOWS\EMKTMP.HTM');
for A:=0 to RichEdit2.lines.Count -1 do
begin
SS:=RichEdit2.Lines.Strings[A];
RichEdit1.Lines.Add(SS);
end;
finally
richedit1.Lines.Add('');
richedit1.Lines.Add('
');
richedit1.Lines.Add('
');
richedit1.Lines.Add('
');
richedit1.Lines.Add('
');
richedit1.Lines.Add('
');
richedit1.Lines.Add('
');
richedit1.Lines.Add('
');
richedit1.Lines.Add('