How to check for unread email |
Previous Top Next |
Code: |
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.
©Drkb::04454