?
Solved

Incorrect "Show total number of items" count on Inbox

Posted on 2008-10-27
11
Medium Priority
?
2,011 Views
Last Modified: 2012-05-05
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!
0
Comment
Question by:klikon
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 5
11 Comments
 
LVL 35

Expert Comment

by:Joseph Daly
ID: 22819110
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
 

Author Comment

by:klikon
ID: 22819113
I have tried that, it didn't work. I've also tried toggling between show total number and show unread but no dice.
0
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 22819464
Is there an additional non email item in teh mailbox?

Chris
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 22819512
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
 

Author Comment

by:klikon
ID: 22826960
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
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 22828798
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
 

Author Comment

by:klikon
ID: 22836777
OK I've tried running it as a macro in Outlook and it has not corrected the incorrect count for the shared Inbox.
0
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 22838420
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
 

Author Comment

by:klikon
ID: 22845756
It didn't do anything I'm afraid. When I run it, nothing happens.
0
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 22874540
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
 

Accepted Solution

by:
klikon earned 0 total points
ID: 22917913
I ended up just deleting the mailbox and re-creating it. That solved the problem.
0

Featured Post

Free learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many people use more than one email account and so it becomes difficult for them to manage them when they use separate accounts,  so, in this article, I have shared an easy way to add Other Mail Accounts in your Google Inbox. It helps to combine all…
In this article I discuss my selections of the Top Four free Outlook OST File Viewers available. Open, view and read even damaged OST files by using these tools. They all provide a clear preview of all data such as emails, notes, tasks, calendars, e…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…
Suggested Courses

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question