Кодировка и вложения при отправке почты через 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;

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

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

• Рассылка. Выпуск 253
• Телефон читающий по губам
• Pascal — Заполнить массив случайными числами
• Разработка ресурса для журнала. Часть 1
• Скрыть url скачиваемого файла
• Как отловить нажатие более двух клавиш?
• Деление на ноль, как обработать (Excel)
• Заготовка под службу Win32
• Вызвать из DLL в EXE процедуру
• Получение яндекс каптчи в Image