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

Posted by obzor under Delphi

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

Iron Monk

uses IdCoderHeader;
...
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;

тема на форуме

Случайные статьи

• Как передать в первую форму из второй, какая из кнопок была нажата?
• Разгон 3G. USB модема
• Создание большого количества форм или фреймов
• Как проверить файл на юникодность
• Динамическое создание форм
• Как осуществить в Delphi вихрь Мерсенна?
• Программа по отправке и принятию UDP пакетов
• Количество четных чисел в массиве
• Перегрузка оператора “=”(присваивание)
• Относительный путь для вывода картинки на html странице