Incorrect "Show total number of items" count on Inbox

I have a mailbox which is shared to about 20 or more people. Under the properties of the inbox I have configured it to display "Show total number of items" rather than "Show number of unread items".

Next to the Inbox, it's displaying 1 extra numeric character. For instance, if there are 10 emails in the inbox, the "Show total number of items" would read 11.

Any help on correcting this would be appreciated!
klikonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Joseph DalyCommented:
This may not be a fix for it but have you tried clicking on the inbox and selecting "mark all as read" This should set the count on unread items to zero. This may just resolve the problem.
0
klikonAuthor Commented:
I have tried that, it didn't work. I've also tried toggling between show total number and show unread but no dice.
0
Chris BottomleySoftware Quality Lead EngineerCommented:
Is there an additional non email item in teh mailbox?

Chris
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Chris BottomleySoftware Quality Lead EngineerCommented:
If you need a hand to find such then you could try the snippet.  This will print the subject for items which are not mailitems .... or if you enable the commented line delete them.

Chris
Sub findNoneMail()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olfldr As Outlook.MAPIFolder
Dim oopsItem As Object
Dim itemCount As Long
Dim strFilter As String
    
    Set olApp = Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    Set olfldr = olNS.GetDefaultFolder(olFolderInbox)
 
    For itemCount = olfldr.Items.count To 1 Step -1
        Set oopsItem = olfldr.Items(itemCount)
        If oopsItem.Class <> olMail Then Debug.Print oopsItem.subject
'        If oopsItem.Class <> olMail Then oopsItem.dedlete
    Next
End Sub

Open in new window

0
klikonAuthor Commented:
I get this error when I run your script...

Line: 2
Char: 11
Error: Expected end of statement

This mailbox is also not my default one so will your script be looking through all Inbox's which I have access to or only the default one?
0
Chris BottomleySoftware Quality Lead EngineerCommented:
It is an outlook macro rather than a script ... do you need it as a script and I will modify to allow you to pick the folder  if I can.  Not sure about OL2003 capabilitis in that regard.

Chris
0
klikonAuthor Commented:
OK I've tried running it as a macro in Outlook and it has not corrected the incorrect count for the shared Inbox.
0
Chris BottomleySoftware Quality Lead EngineerCommented:
That was my two pennorth.

You did notice that as posted it merely prints the deatils of the items in teh immediate window and that to actually delete it needed you to enable the commented out line of code?

Chris
0
klikonAuthor Commented:
It didn't do anything I'm afraid. When I run it, nothing happens.
0
Chris BottomleySoftware Quality Lead EngineerCommented:
Looking again ... there was a typo in the script try the following just in case!

Chris
Sub findNoneMail()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olfldr As Outlook.MAPIFolder
Dim oopsItem As Object
Dim itemCount As Long
Dim strFilter As String
    
    Set olApp = Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    Set olfldr = olNS.GetDefaultFolder(olFolderInbox)
 
    For itemCount = olfldr.Items.count To 1 Step -1
        Set oopsItem = olfldr.Items(itemCount)
        If oopsItem.Class <> olMail Then Debug.Print oopsItem.subject
        If oopsItem.Class <> olMail Then oopsItem.delete
    Next
End Sub

Open in new window

0
klikonAuthor Commented:
I ended up just deleting the mailbox and re-creating it. That solved the problem.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.