[juank1971]

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.