to find no new msg arrived in outlook

[parthi_75]

hi all
can any one help me how count number of msgs in inbox in outlook application
looking for lots of replies
thanks
parthi

[JohnVB6]

Give this a try:
Make sure to set a reference to the MS Outlook object library, then
declare the following:

Private colApp As Outlook.Application 'withevents is allowed
Private colNameSpace As Outlook.NameSpace
Private colFolders As Outlook.MAPIFolder

And this sub should find the inbox's item count:

Private Sub GetInboxTotal()
  Set colApp = CreateObject("Outlook.Application")
  Set colNameSpace = colApp.GetNamespace("MAPI")
  Set colFolders = colNameSpace.GetDefaultFolder(olFolderInbox)
   
  InboxTotal = colFolders.Items.Count
  
  Set colFolders = Nothing
  Set colNameSpace = Nothing
  colApp.Quit
  Set colApp = Nothing
End Sub