Count the No of Mails
 

Hi ..!

How to count the no of mails in the INBOX?
Is there any syntax for shows no of mails in the INBOX?

Thanks in advance for your reply.

Count the No of Mails
 

Do you mean getting the count in code? Any folder's Items collection has a
Count property that you can use.

--
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
...
Hi ..!

How to count the no of mails in the INBOX?
Is there any syntax for shows no of mails in the INBOX?

Thanks in advance for your reply.

Count the No of Mails
 

Dear Ken Slovak,

Ya, I need the code.

"Ken Slovak - [MVP - Outlook]" wrote:

Do you mean getting the count in code? Any folder's Items collection has a
Count property that you can use.

--
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
...
Hi ..!

How to count the no of mails in the INBOX?
Is there any syntax for shows no of mails in the INBOX?

Thanks in advance for your reply.

Count the No of Mails
 

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.

Count the No of Mails
 

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.