Adjunto noname en mail con Indy

[IVAND]

Gracias por responder , si con la misma forma , uso delphi 2009 y los indy que vienen por defecto , uso el mismo codigo en delphi 11 y funciona sin problemas , parece que algo me falta en delphi 2009

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var smtp:TIdSMTP;
  mail:TIdMessage;
  Attachmentfile: TIdAttachmentFile;
begin
    smtp := TIdSMTP.Create(Self);
      Mail := TIdMessage.Create(Self);
      with smtp do
      begin

        Port:=465;
        Host:= 'smtp.gmail.com';
        Username:='[email protected]';
        Password:='hyzvtyccwttttt';  // 
        IOHandler:=SSLIOHandler;
        UseTLS := utUseExplicitTLS;
        AuthType:=satDefault ;
      end;

      SSLIOHandler.Port:= 465;
      SSLIOHandler.Host:= 'smtp.gmail.com';
      SSLIOHandler.Destination:='smtp.gmail.com:' + IntToStr(SSLIOHandler.Port);

      with mail do
      begin
        Recipients.Add;
        Recipients[0].Name   :='SitiSystems';
        Recipients.EmailAddresses:='[email protected]';
        From.Name            :='Integral ERP';
        From.Address         :='[email protected]';
        Subject              :='Se ha enviado un documento electronico';
        Body.Text:='Prueba de correo..revise adjunto'; // Es el texto del mensaje
        //ContentType := 'text / plain';
        CharSet      := 'utf-8';
        Encoding     := meMIME;
        Priority     := mpNormal;
        ContentType := 'multipart/mixed';
      end;
      Attachmentfile:=TIdAttachmentFile.Create(mail.MessageParts,'C:\Embajada\Ruc.pdf');
   //   Attachmentfile.FileName:='C:\Embajada\Ruc.pdf';
   //   Attachmentfile.ContentType := 'application/octet-stream';
   //   Attachmentfile.ContentID:='C:\Embajada\Ruc.pdf';
  //    Attachmentfile.DisplayName:='C:\Embajada\Ruc.pdf';
      try
        smtp.Connect;
      except
        ShowMessage('Ocurred an Error, The Message was not Sent');
      end;
        Screen.Cursor:=CrDefault;

      try
        smtp.Send(mail);
      except
      //on E: Exception do
        ShowMessage('The Message was not Sent');
      end;

      if smtp.Connected then
        smtp.Disconnect;
      mail.Free;
      smtp.Free;
end;

en uno funciona bien en otro no , que puede estar pasando , esperando sus consejos 
en 2009 envia el correo perfecto pero adjunta el archivo como noname y en delphi 11

[Casimiro Noteví]

Prueba cambiando esto:

Código Delphi [-]
Attachmentfile:=TIdAttachmentFile.Create(mail.MessageParts,'C:\Embajada\Ruc.pdf');

por esto otro:

Código Delphi [-]
TIdAttachmentFile.Create(mail.MessageParts,'C:\Embajada\Ruc.pdf');

[IVAND]

Muy gentil por darte el tiempo , si efectivamente ya probe esa opcion , sigue colocando el nombre nomame , si lo descargo y renombro se abre sin problemas

Puede ser errror de los indy ?

[Casimiro Noteví]

Empezado por IVAND

Muy gentil por darte el tiempo , si efectivamente ya probe esa opcion , sigue colocando el nombre nomame , si lo descargo y renombro se abre sin problemas
Puede ser errror de los indy ?

No creo, más bien diría que será algo del programa que uses para descargar los emails.
Por probar, envíame un email a esta dirección, para echarle un vistazo.

[IVAND]

Te envio ahora , pero creo que no, porq el otro sistema con el mismo codigo lo envio y llega y el programa para abrir el correo es gmail mismo

[Casimiro Noteví]

Yo lo leo con Thunderbird, y esto es lo que me llega:

[IVAND]

te envie desde delphi 11 con el mismo codigo y veras q llega un pdf , para que veas la diferencia , pero si descargar el primer archivo de daras cuenta que se descarga con nomame si extension