添加 ReplyRecipient 后未收到邮件

Question

使用 Outlook for Microsoft Office 365 32 位和 Delphi XE8

我正在评估 Redemption.dll，因为 Windows 11 已阻止我的应用程序访问 Outlook。

我的 Outlook 配置了多个配置文件和商店，

我可以打开配置文件找到商店/帐户并可以发送/接收。

在一种组合中，我没有收到电子邮件。

问题是，

Mail.ReplyRecipients.Add('[email protected]');

如果我注释掉这一行，我会收到电子邮件，

在发送的文件夹中，我可以双击，然后单击回复，我会看到回复地址，但在（收件人的）收件箱中我什么也得不到。我扫描了所有 Outlook 项目，但无济于事。

相反，我确实收到了电子邮件。

我打算在完成评估后购买该产品。但这个功能很重要

procedure TForm61._Send(Profile, Sender, _To, _CC, _BCC, Subject, Body: String;
  ReadReceiptRequested: Boolean; _Attachments: TArray<String>);
var
  FolderFound: Boolean;
  c, j, Count, k: Integer;

  Session: IRDOSession;
  Store: IRDOStore;
  Drafts: IRDOFolder;
  Recip: IRDORecipient;
  MAil: IRDOMail;
  IPMRoot: IRDOFolder;
  ReplyRecip: IRDORecipient;
  _name: String;
begin
  Session:=CoRDOSession.Create;
  Session.Logon(Profile,'', False, True,EmptyParam,EmptyParam);
  Drafts:=Session.GetFolderFromPath('\\'+Sender+'\Inbox');

  Mail:= Drafts.Items.Add(olMailItem);
  Recip := Mail.Recipients.Add(_To);
  Recip.type_:= olTo;
  if not _CC.IsEmpty then
  begin
    Recip := Mail.Recipients.Add(_CC);
    Recip.type_:= olCC;
  end;
  if not _BCC.IsEmpty then
  begin
    Recip := Mail.Recipients.Add(_BCC);
    Recip.type_:= olBCC;
  end;
//    Recip.Resolve(EmptyParam, EmptyParam);

//   ReplyRecip:=Mail.ReplyRecipients.Add('[email protected]');
     Mail.ReplyRecipients.Add('[email protected]');

//   ReplyRecip.Resolve(EmptyParam, EmptyParam);

  for j:=0 to Length(_Attachments)- 1 do
    Mail.Attachments.Add(_Attachments[j], EmptyParam, EmptyParam, EmptyParam);

  Mail.Subject:=Subject;
  Mail.ReadReceiptRequested:=ReadReceiptRequested;
  Mail.HTMLBody:=Body;

  if SignatureIndex>-1 then
  begin
    Signature:=Session.Signatures.Item(SignatureIndex+1);  //noy zero-based
    Signature.ApplyTo(Mail, False);
  end;
  Mail.OriginatorDeliveryReportRequested:=True;
  Mail.Save;
  Mail.Send;
end;

TIA

Ephraim