Macro for Outlook

[zabiullakhan]

howto count the #no of emails in my inbox.. Please help

 

[VoG]

Try

Sub CountInbox()
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
MsgBox Fldr.Items.Count
Set Fldr = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub

 

[zabiullakhan]

it works but can i automate to count mails for my achive forlder or sent items or personal folders with specific name(ex: "office","Personal","Bank") etc..

Please help

 

[Ruddles]

I posted something like this a couple of weeks ago. Do a search for my name and outlook mail count or something like that.