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

前端之家收集整理的这篇文章主要介绍了delphi – 为什么TIdMailBox.UnseenMsgs属性返回0值?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在尝试使用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;
原文链接:https://www.f2er.com/delphi/101237.html

猜你在找的Delphi相关文章