Get Number of Unread Messages in Outlook Inbox

Category:

Office/VBA

Type:

Snippets

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility:

More information:

Refer to code comments for more information.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function UnreadMessagesInInbox() As Long
'*****************************************
'RETURNS:  Unread messages in the inbox on the local system,
'          or 0 if an error occurs

'REQUIRES: Outlook and Outlook Object Library

'          Application must have reference to
'          Outlook Object Library

'NOTES:     Same technique can be used to
'           Retrieve unread messages in other
'           Folders.  Just pass a diferent
'           parameter to GetDefaultFolder, or
'           Identify the folder by name using
'           The MAPIFolder's Folders collection.
'           Refer to documentation or other examples
'           on FreeVBCode.com for more detail
'******************************************

Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder

On Error GoTo ErrorHandler

Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
UnreadMessagesInInbox = oFldr.UnReadItemCount

ErrorHandler:
Set oFldr = Nothing
Set oNs = Nothing
Set oOutlook = Nothing

End Function