No entiendo, problemas al adjuntar archivos

[Walterdf]

Hola otra vez,
Necesito enviar un mensaje con formato (html) y con un adjunto.
Cuando envío el mensaje sin adjuntos llega perfecto pero cuando hago un attach, en el cuerpo del mensaje recibo un montón de porquerías (el attach llega bien).

Lo hice de esta manera:

NMSMTP1.PostMessage.FromAddress := 'walter@mihost.com';
NMSMTP1.PostMessage.Subject := 'Mensaje de prueba';
NMSMTP1.PostMessage.Attachments.Add('c:\miarchivo.xls');
end;

NMSMTP1.PostMessage.Body.LoadFromFile('cuerpo.htm');

NMSMTP1.PostMessage.ToBlindCarbonCopy.Clear;
NMSMTP1.PostMessage.ToBlindCarbonCopy.LoadFromFile('d:\mails.txt');

if not NMSMTP1.Connected then
NMSMTP1.Connect;

NMSMTP1.SendMail;

Aclaro que la propiedad SubType esta en mtHtml

¿Qué puede ser?
Gracias.
Walter

[acertij022]

No se si será de gran ayuda, pero yo utlizo los componentes indy y funciona perfectamente revisa el ejemplo MailClient no tiene nada que envidiar al OutLoock.

[Walterdf]

Hola acertijo
Gracias por responderme.
Mirá, probé con las Indy pero me hace exactamente lo mismo.
Lo hice asi:

SMTP.Connect;

MSG.From.Text:='walter@rodamet.com';

MSG.ContentType:='html';

MSG.Body.LoadFromFile(Filenameedit1.FileName); {aquí adjunto un archivo con diseño HTML}

MSG.BccList.EMailAddresses:='walter@mihost.com'

TidAttachment.Create(MSG.MessageParts,Opendialog1.FileName);

MSG.MessageParts.Add;

SMTP.Send(MSG);

SMTP.Disconnect;

Si envío el mensaje solo, lleva perfecto, cuando le agrego un attach, sale todo mal.
Gracias
Walter