Кодировка и вложения при отправке через Indy

[artemavd]

Всем добрый день!
Сто лет ничего не спрашивал, вообще некогда.
Мне нужная отправлялка по электронной почте письма с вложением.
Отправлялку я имею, но вот есть две проблемы на данный момент:
1. Не отображается в тексте полученного письма русский текст, а вместо него вопросительные знаки;
2. Не отправляется вложение, ответ приходит в программу, что типа почтовый сервер принимает мое вложение за спам и посылает меня в поддержку.
Прошу помочь с решением этим двух вопросов!

[Iron Monk]

Всё по русски)))

procedure TForm1.Button1Click(Sender: TObject);
begin
  TIdAttachment.Create(IdMessage1.MessageParts,'D:\test.rar');
  IdMessage1.From.Text := 'Bill Gates<Bill.Gates@microsoft.com>'; //отправитель
  IdMessage1.Recipients.Add;
  IdMessage1.Recipients.Items[0].Text := '"User" <..@mail.ru>'; //Получатель
  IdMessage1.Subject := 'Тема'; //Тема письма
  IdMessage1.Body.Add('Первая строка');
  IdMessage1.Body.Add('Вторая строка');
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host := '..ip';
  IdSMTP1.Username := '..@gmail.com';
  IdSMTP1.Password := '..user';
  IdSMTP1.Port:= 25;
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
  begin
    IdSMTP1.Send(IdMessage1);
  end;
  IdSMTP1.Disconnect;
end;

procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
  var VHeaderEncoding: Char; var VCharSet: String);
begin
  VTransferHeader := bit7;    // Бит на кодирование
  VHeaderEncoding := 'B';     // Тип кодировки: Q - QuotedPrintable, B - Base64
  VCharSet := 'windows-1251'; // Кодировка - кириллица Windows
end;

[artemavd]

Не знаю важно ли это. У меня Delphi XE.
Я к чему, я к тому, что, например у меня нет этого свойства

procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
  var VHeaderEncoding: Char; var VCharSet: String);

У меня событие выглядит так:

procedure TForm1.IdMessage1InitializeISO(var VHeaderEncoding: Char; var VCharSet: string);
begin
// VTransferHeader := bit7;    // Бит на кодирование
 VHeaderEncoding := 'B';     // Тип кодировки: Q - QuotedPrintable, B - Base64
 VCharSet := 'windows-1251'; // Кодировка - кириллица Windows
end;

К тому же свойства

IdSMTP1.AuthenticationType := atLogin;

у меня тоже нет))
Пока что письмо так и приходит с вопросами вместо русских букв.

----------------------
Ой, все! Работает!
Разобрался.
Подправил строчку:

 FileDir:=ExtractFilePath(ParamStr(0)) + 'test.html';
 TIdAttachmentFile.Create(IdMessage1.MessageParts,FileDir); //Вложение

и все заработало! И по-русски. Спасибо, Iron Mork! Если даст форум, то нажму на весы!

[Iron Monk]

uses IdCoderHeader