I use this code for sending text from TAdvRichEditor via email, using Indy.
Attachement is not beeing sent. Email body is sent with no pproblem.
idmessage.From.Address:=....
IdMessage.Sender.Address := ....
dmessage.UseNowForDate:=true;
idmessage.Subject:=....
idmessage.Recipients.EMailAddresses:=....
emailio := TAdvRichEditorEmailIO.Create(Self);
emailio.RichEditor :=....
if opendialog.filename<>'' then
TIdAttachmentFile.Create(idmessage.MessageParts, opendialog.FileName);
try
emailio.GenerateEmail(idmessage);
Idsmtp.Connect;
idsmtp.Send(idMessage);
idsmtp.Disconnect;
finally
emailio.Free;
end;