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

发布时间：2020-12-15 04:32:21 所属栏目：大数据来源：网络整理

导读：我正在尝试使用Indy 10.6.0.4975中的TIdIMAP4来获取我的IMAP邮箱的未读邮件数. 问题是,即使访问的邮箱中有一些未读邮件,UnseenMsgs属性也会返回0.这是我使用的代码： procedure TForm1.FormClick(Sender: TObject);var TotalMsgs: Integer; UnseenMsgs: Inte

我正在尝试使用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而不是正确的数字？

解决方法

在访问该属性之前调用 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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!