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

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

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

• Функция удаления не нужных тегов. Быстродействие
• Рассылка. Выпуск 135
• В КНДР выпустили собственную ОС на основе Linux
• Как выполнить операция циклического сдвига влево?
• Узнать о редиректе при отправке данных формы
• Несколько получателей письма Outlook
• Cвернуть всё кроме моей формы
• Заменить элементы матрицы, лежащие ниже главной диагонали
• Развернуть программу из трея
• Если текстовый файл существует, то открыть его и добавить перед третьей строкой новую строчку текста