klikon
asked on
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!
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!
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.
ASKER
I have tried that, it didn't work. I've also tried toggling between show total number and show unread but no dice.
Is there an additional non email item in teh mailbox?
Chris
Chris
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
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
ASKER
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?
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?
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
Chris
ASKER
OK I've tried running it as a macro in Outlook and it has not corrected the incorrect count for the shared Inbox.
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
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
ASKER
It didn't do anything I'm afraid. When I run it, nothing happens.
Looking again ... there was a typo in the script try the following just in case!
Chris
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.