Problema con indi en delphi 2009
saludos tebgo un procedure con indi para mandar un adjunto que me funciona bien pero el adjunto llega 1000002.dat no con el formato del fichero que mando. este es el procedimiento
procedure TForm1.Correo(Servidor,Cuerpo,Asunto,DeDir,DeNom,AdjuntoDir,DestinoDir,DestinoNom,Usuario,Clave:stri ng); var Mensaje: TIdMessage; Conexion: TIdSMTP; Direcciones: TIdEmailAddressItem ; Adjunto: TIdAttachment; begin with datamodule1 do begin Mensaje := TIdMessage.Create(nil); Conexion := TIdSMTP.Create(nil); Conexion.Host := Servidor; // SMTP server host name Mensaje.Body.Add(Cuerpo); Mensaje.Subject := Asunto ; Mensaje.From.Text := DeDir; Mensaje.From.Name := DeNom; Adjunto := TIdAttachmentFile.Create(Mensaje.MessageParts, AdjuntoDir); Direcciones := Mensaje.Recipients.Add; Direcciones.Address := DestinoDir; // email address of recipient Direcciones.Name := DestinoNom; Conexion.Username := Usuario; // SMTP user name Conexion.Password :=Clave; // SMTP user password Conexion.Connect; Conexion.Send(Mensaje); Conexion.Disconnect; Adjunto.Free; Mensaje.Free; Conexion.Free; end; end; y esta es la llamada Correo('192.168.25.45','Cuerpo del mensaje','Asunto del mensaje','inf.psr@std.com','juan','c:\263.rar','inf.psr@std.com','Pulpo','inf.psr','okkkkk'); funciona correctamente pero llega un adjunto llamado 100002.dat helme please. |
La franja horaria es GMT +2. Ahora son las 08:20:46. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi