Dear Ken Slovak,
Thanks a lot, It's working .. Have a nice day.
"Ken Slovak - [MVP - Outlook]" wrote:
This would only run in Outlook VBA, any other platform would need somewhat
different code:
Sub InboxItemsCount()
Dim oFolder As Outlook.MAPIFolder
Dim lngCount As Long
Set oFolder =
Application.GetNameSpace("MAPI").GetDefaultFolder( olFolderInbox)
lngCount = oFolder.Items.Count
MsgBox "Count of items in Inbox = " & lngCount
End Sub
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
"Avadivelan TCS" wrote in message
...
Dear Ken Slovak,
Ya, I need the code.