PDA

Ver la Versión Completa : No entiendo, problemas al adjuntar archivos


Walterdf
01-09-2003, 21:27:47
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
02-09-2003, 15:35:19
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.:D

Walterdf
02-09-2003, 18:54:32
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