"Pablo Morales" <pmorales@alfabeta.net> wrote in message
news:446dd65d@newsgroups.borland.com...
> unMensaje.Body.Clear;
> unMensaje.Body.Assign(memo1.Lines);
>
> tIdAttachmentFile.create(unMensaje.messageParts, 'c:\ver.sql');
You should not be using the Body property at all in this situation. When
sending attachments, you must use the MessageParts for *all* content of the
message, including the body text. Use TIdText for that, ie:
unMensaje.Clear;
unMensaje.From.Name := deTextoEdit.Text;
unMensaje.From.Address := deMailEdit.Text;
unMensaje.Recipients.EMailAddresses := edit2.Text;
unMensaje.Subject := edit1.Text;
unMensaje.ContentType := 'multipart/mixed';
with TIdText.Create(unMensaje.messageParts, memo1.Lines) do
begin
ContentType := 'text/plain';
// set other properties as needed ...
end;
with TIdAttachmentFile.Create(unMensaje.messageParts, 'c:\ver.sql') do
begin
// set properties as needed ...
end;
Gambit
