Как получить отчет о доставке e-mail

[wnyp]

Добрый день. Подскажите как получить отчет о доставке письма? Отправляю почту при помощи библиотеки Synapse. Вот код процедуры отправки :

Procedure TmodTool.SendMail (Host, Subject, pTo, From , login,password : string;strAttach : TStringList);
var Msg : TMimeMess;
    StringList : TStringList;
    MIMEPart : TMimePart;
    j : integer;
    i : integer;
    iGauge: integer;
begin
  Msg := TMimeMess.Create;
  StringList := TStringList.Create;
 With uMain.frmMain do begin
  sbMain.Panels.Items[1].Text := 'Подготовка к отправке!';
  try
    sbMain.Panels.Items[1].Text := 'Подготовка к отправке сообщения!';
    try
    Msg.Header.CustomHeaders.Add('Return-Receipt-To: '+From); // заголовок для отчета о ДОСТАКЕ
    Msg.Header.Subject := Subject;
    Msg.Header.From := From;
    Msg.Header.ToList.Add(pTo);
    MIMEPart := Msg.AddPartMultipart('Mixed', nil);
    StringList.Add(sTextFormat);
    StringList.Add(' ');
    Msg.AddPartText(StringList, MIMEPart);
    try
    If strAttach.Count <> 0 then
    begin
      iGauge := 100 div strAttach.Count;
      For j := 0 to strAttach.Count-1 do
      begin
        Msg.AddPartBinaryFromFile(strAttach.Strings[j],MIMEPart);
        Forms.Application.ProcessMessages;
        Gauge1.AddProgress(iGauge);
      end;
    end;
    except
    CreateLog('Ошибка при попытке прикрепить файл ' + strAttach.Strings[i]);
    If IniTool.ReadString('user', 'admin', '') = 'ok' then ShowMessage('Ошибка при попытке прикрепить файл ' + strAttach.Strings[i] + '!');
   end;{end try-except}
    Msg.Header.CustomHeaders.Add('Disposition-Notification-To: '+From); // заголовок для отчета о ПРОЧТЕНИИ
    Msg.Header.CustomHeaders.Add('X-Confirm-Reading-To: '+From);// заголовок для отчета о ПРОЧТЕНИИ
    Msg.EncodeMessage;
    smtpsend.SendToRaw(From, pTo, Host, Msg.Lines, login, password);
   finally
   Msg.Free;
   StringList.Free;
   end;
   If tbJournal.Enabled=False then
   begin
     Application.Initialize;                                    //
     Application.CreateForm(TfrmJournal, frmJournal);
   end;
   CreateLog('Сообщение отправлено!');
   uMain.frmMain.sbMain.Panels.Items[1].Text := 'Сообщение отослано!';
   uMain.frmMain.Gauge1.Progress := 0;
   except
   CreateLog('Ошибка при отсылке сообщения!');
   ShowMessage('Ошибка при отсылке сообщения!');
   sbMain.Panels.Items[1].Text := '';
   Exit;
  end;
 end;
end;

Нагуглил что заголовок Msg.Header.CustomHeaders.Add('Retur n-Receipt-To: '); должен это делать , но у меня не работает . В чем может быть проблема?