Отправка почты через SMTP с использованием Synapse

[chandrasecar]

Написал программку которая отправляет письма по smtp с использованием библиотек Synapse.

Вот пример кода:

uses
    mimepart, mimemess, SMTPSend;


   * * * * * * * * * * * * * *


var
    tmpMsg : TMimeMess;
    tmpStringList : TStringList;
    tmpMIMEPart : TMimePart;
begin
    tmpMsg := TMimemess.Create;
    if AsHtml.Checked then
      tmpMsg.AddPartHTML(MsgBox.Lines,nil) //Добавляю текст письма в HTML
    else
      tmpMsg.AddPartText(MsgBox.Lines,nil); //Простой текст письма
    tmpMsg.MessagePart.ForcedHTMLConvert:=True;

    tmpMsg.Header.Priority := MP_high;
    tmpMsg.Header.From := LoginBox.Text; //Логин учетной записи почты
    tmpMsg.Header.ToList.Add(SendToBox.Text); //Email получателя
    tmpMsg.Header.Subject := SubjectBox.Text; //Тема письма
    tmpMsg.Header.Organization := 'Çîëîòûå Öâåòû';
    tmpMsg.EncodeMessage;
    if SendToRaw(tmpMsg.Header.From, SendToBox.Text, SmtpServer.Text, tmpMsg.Lines, LoginBox.Text, PassBox.Text) then begin  // отправка письма
      LogList.Lines.Add('письмо отправлено');
    end else begin
      LogList.Lines.Add('письмо не отправлено');
    end;
    tmpMsg.Free;
end;

Очень часто бывает так, что письма не доставляются адресату. Причина в основном в том, что адрес почты отсутствует или заблокирован. Для отправки писем использую сервер smtp.mail.ru. В такой ситуации в ответ приходит письмо от "Mail Delivery System <Mailer-Daemon@smtp4.mail.ru>" с темой "Mail delivery failed: returning message to sender" - письмо не доставлено.

Вопрос. Можно как-то обрабатывать данные сообщения от сервера почты, чтобы вести статистику доставленных сообщений?

[mss]

А что этому мешает ?
Адрес отправителя сообщения о недоставке известен, тема тоже ..

[chandrasecar]

Мне кажется что при отправке письма сервер возвращает значение (это какой-то код). Если письмо доставлено - один код. Если произошла ошибка - другой код. Если оно так, то как получить данный ответ и его обработать?
Вот тут есть список этих кодов (http://www.delphimaster.ru/articles/smtp/)

Как их получить в Synapse?

[mss]

Эти коды не имеют отношения к факту доставки или недоставки, если адресат сообщения принадлежит другому домену, НЕподконтрольному тому smtp-серверу, через который ты отправляешь сообщение.

[chandrasecar]

Сообщение на сервер приходит в независимости от того принадлежит ли ему адрес получателя письма. Значит все таки можно как-то узнать: доставлено или нет.
Есть компонент Light SMTP, в нем реализована функция получения ответа от сервера, правда ошибки он не принимает (коды начинающиеся на 5).

А что вы говорили о "Адрес отправителя сообщения о недоставке известен, тема тоже .. " ?

Как такое узнать через SMTP? Считывание данных почтового ящика это уже вроде через POP.

[Mafik2121]

http://thedelphi.ru/articles/otpravk...herez-smtp.php