[agustibaldo]

Hola amigos de ClubDelphi, una vez mas recurro a uds para consultarles por un problema que estoy teniendo con una aplicación que tiene un proceso que arma un archivo Excel y luego lo envía por correo electrónico.

La forma de adjuntar el archivo al componente TIdMessage se realiza de la siguiente manera:

Código Delphi [-]
if (AdjuntoEmail <> '') and (FileExists(AdjuntoEmail)) then
   TIdAttachmentFile.Create(MailMessage.MessageParts, AdjuntoEmail);

y las propiedades del componente TIdMessage son:

Código Delphi [-]
    AttachmentEncoding = 'UUE' //Probé con MIME y XXE y sucede lo mismo.
    BccList = <>
    CharSet = 'utf-8'
    CCList = <>
    ContentType = 'text/plain'
    Encoding = meDefault
    FromList = <
      item
      end>
    Organization = 'Empresa SA'
    Recipients = <>
    ReplyTo = <>
    ConvertPreamble = True
    Left = 216
    Top = 232

El problema en cuestión es que llega el correo sin el adjunto y en el cuerpo un "chorizo" de caracteres sin sentido.

A alguien se le ocurre que puede estar sucediendo?
Desde ya, muchas gracias.