Attachment имя вложенногофайла квадратиками

[Lexovt]

Помогите плиз не могу разобраться кодировкой Attachment... Сорри я не профи если что.. У меня Delphi 7 LiteEdit. v 7.3.4.3 (Build 8.1).... Насколько я вкурсе. Indy вроде бы как 9 версия точно не могу сказать... Проблема вот в чём... есть программа она отправляет автоматом документ вордовский... сообщение отправляется файл то же приходит... при скачивании он норм открывается... только имя файла в письме квадратиками... Что посоветуете?? очень буду благодарен если ещё и подскажете и другие компоненты для отправки писем кроме(Indy и SendMail).. Ноо может как то можно решить вопрос с кодировкой??... Задача в рограмме состоит в самой простой отправке файла (но каждый раз разного и с разным именем ) нуу и имя содержит конечно же русский текст

 put:=getcurrentdir+'\Akts\'+dtp1.text+'\'+edt1.Text+'.doc';

 SMTP.Host:='mail.rambler.ru'; // адресс почтового сервера
  SMTP.Port:=25;    // порт по которому будет осуществляться подключение

  SMTP.Username:='123@rambler.ru';  // логин пользователя
  SMTP.Password:='111111';     // пароль пользователя
  SMTP.AuthenticationType:=atLogin;
 with IdMessage do
     begin

      From.Text := '123@rambler.ru';
      Recipients.EMailAddresses := '456@mail.ru';
      Subject := 'Файл';

      attach:=TIdAttachment.Create(IdMessage.MessageParts,put);

      end;

   SMTP.Connect;
   try
  showmessage('подключился');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
     attach.Free;

[astecenko]

Вариант решения проблемы с кодировкой имен файлов в вложении

[Lexovt]

Сообщение от astecenko

Вариант решения проблемы с кодировкой имен файлов в вложении

попробую понять что там спс....Буду признателен узреть ещё варианты.

[Lexovt]

Есть у каво ещё варианты?? плиииз