delphi - 为什么 TIdMailBox.UnseenMsgs 属性返回 0 值？

Question

我正在尝试使用 Indy 10.6.0.4975 中的 TIdIMAP4 获取 IMAP 邮箱中未读邮件的数量。

问题在于，即使访问的邮箱中有一些未读邮件，UnseenMsgs 属性也会返回 0。这是我使用的代码:

procedure TForm1.FormClick(Sender: TObject);
var
  TotalMsgs: Integer;
  UnseenMsgs: Integer;
begin
  IdIMAP41.Connect(True);
  IdIMAP41.SelectMailBox('Inbox');

  TotalMsgs := IdIMAP41.MailBox.TotalMsgs; // returns correct value
  UnseenMsgs := IdIMAP41.MailBox.UnseenMsgs; // <- returns always 0

  IdIMAP41.Disconnect(False);
end;

为什么 TIdMailBox.UnseenMsgs 属性返回 0 而不是正确的数字？

Answer 1

调用StatusMailBox方法，然后再访问该属性。 UnseenMsgs中提到属性文件为:

UnseenMsgs is updated when the results from the TIdIMAP4.StatusMailBox method are parsed.

所以这样做:

IdIMAP41.Connect(True);
IdIMAP41.SelectMailBox('Inbox');
IdIMAP41.StatusMailBox('Inbox', IdIMAP41.MailBox);

UnseenMsgs := IdIMAP41.MailBox.UnseenMsgs;