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' 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.