link Ms Outlook

Hi All,


Are there any way to link the number of emails received on particular
folder?

Thanks in advance for the information,


Inung

Souris wrote:
Are there any way to link the number of emails received on particular
folder?


You would need to write a Visual Basic procedure (macro) using
Automation to Outlook to get the information for you.

I guess it would go something like:

Function GetNumberOfItemsInFolder(FolderName As String)
Dim oOut As New Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oF As Outlook.MAPIFolder
Set oNS = oOut.GetNamespace("MAPI")
Set oF = oNS.Folders("Personal Folders").Folders(FolderName)
GetNumberOfItemsInFolder = oF.Items.Count
Set oNS = Nothing
Set oOut = Nothing
End Function

Then in a worksheet cell you could put
=GetNumberOfItemsInFolder("InBox")

If you want it updated at each recalculate then you would need to add
Application.Volatile
before the first Set line

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup

"Bill Manville" wrote in message
...
Souris wrote:
Are there any way to link the number of emails received on particular
folder?


You would need to write a Visual Basic procedure (macro) using
Automation to Outlook to get the information for you.

I guess it would go something like:

Function GetNumberOfItemsInFolder(FolderName As String)
Dim oOut As New Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oF As Outlook.MAPIFolder
Set oNS = oOut.GetNamespace("MAPI")
Set oF = oNS.Folders("Personal Folders").Folders(FolderName)
GetNumberOfItemsInFolder = oF.Items.Count
Set oNS = Nothing
Set oOut = Nothing
End Function

Then in a worksheet cell you could put
=GetNumberOfItemsInFolder("InBox")

If you want it updated at each recalculate then you would need to add
Application.Volatile
before the first Set line

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup



Thanks for the information,

Inung