使用 Delphi/Indy 标记和删除 GMail 邮件

Question

如何使用 Delphi 10.3.3/stock Indy 在 GMail 中删除和标记邮件。

以下方法不起作用（我省略了 try/finally 压缩代码的东西）：

var
  imap: TIdIMAP4;
  msg: TIdMessage;
  ...
  imap := TIdIMAP4.Create(nil);
  ...
  if imap.SelectMailBox('INBOX') then
  begin
    for i := 1 to imap.MailBox.TotalMsgs do
    begin
      imap.Retrieve(i, msg);
      imap.getUID(i, UID);
      ...
      imap.UIDStoreFlags(UID, sdReplace, msg.Flags - [mfSeen]);  -> DOESNT WORK
      ...
      imap.UIDStoreFlags(UID, sdReplace, msg.Flags + [mfAnswered]);  -> DOESNT WORK
      ...
      imap.UIDDeleteMsg(UID); -> DOESNT WORK
      ...
    end;
  end;
  ...
  imap.disconnect;
  imap.free;
  ...

有没有我省略的更新语句？还是我需要在 gmail 帐户中进行特殊设置？

更新：删除现在有效，但仍未设置标志。删除显示稍有延迟，但标志仍然存在...

Answer 1

找到解决方案：是我的急躁造成的。

标志更改会在 GMail 中反映出来最多需要几分钟时间。当我正在构建一个每 30 秒运行一次的转发器时，我将存储过去一小时左右看到的消息的 UID，并将此列表也考虑在内。