|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
|
|
#1
November 16th 06, 10:15 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
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. 
|
|
#2
November 17th 06, 02:40 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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.
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Count Backward | Barbara B. | Outlook - Calandaring | 1 | September 6th 06 06:59 PM |
| Count dates | [email protected] | Outlook and VBA | 7 | August 10th 06 05:13 PM |
| Recurring Days That Count Up | Ron Anthony Quinn | Outlook - Calandaring | 0 | May 10th 06 07:37 PM |
| How can I count how many contacts I have ? | How can I count how many contacts I have | Outlook - Using Contacts | 1 | May 4th 06 10:24 PM |
| count contacts | ems@drg | Outlook - Using Contacts | 1 | February 23rd 06 06:54 PM |
Hybrid Mode
