How to check for unread email
Falk0ner, вс, 06/07/2008 - 15:35.
var
Inbox: MAPIFolder;
NewMail: boolean;
...
Inbox := NmSpace.GetDefaultFolder(olFolderInbox);
NewMail := (Inbox.UnreadItemCount > 0);
if NewMail then
ShowMessage(Format('Unread items in Inbox: %d', [Inbox.UnreadItemCount]));
The constant olFolderInbox is defined in Outlook_TLB as $00000006.
Inbox: MAPIFolder;
NewMail: boolean;
...
Inbox := NmSpace.GetDefaultFolder(olFolderInbox);
NewMail := (Inbox.UnreadItemCount > 0);
if NewMail then
ShowMessage(Format('Unread items in Inbox: %d', [Inbox.UnreadItemCount]));
Отправить комментарий