Perform Count of Incoming Emails?

[Nox]

Re: Outlook 2003

I've been asked to keep a record of how many emails are received in a week, I know I can do this manually (pen and paper, old school style), but there has got to be a way to some how record the number of emails received per week (per day would be even better). Is this possible?

Perhaps have the count tracked in Notepad or Excel, whatever.. All ideas welcome.

Thank you in advance for all assistance,
-Nox

[Andy Pope]

Try this.



Sub X()

Dim objOLApp As Object
Dim objMAPI As Object
Dim objOLFolder As Object
Dim objOLMail As Object
Dim datStart As Date
Dim datEnd As Date
Dim lngCount As Long

Const olFolderInbox = 6

Set objOLApp = GetObject(, "Outlook.Application")
Set objMAPI = objOLApp.GetNamespace("MAPI")

datStart = "1/Nov/2008"
datEnd = "21/Nov/2008"

Set objOLFolder = objMAPI.GetDefaultFolder(olFolderInbox)
For Each objOLMail In objOLFolder.Items
If objOLMail.receivedtime >= datStart And objOLMail.receivedtime <= datEnd Then
Debug.Print objOLMail.receivedtime, objOLMail.Subject
lngCount = lngCount + 1
End If
Next
MsgBox lngCount & " messages between " & datStart & " and " & datEnd

Set objOLFolder = Nothing
Set objMAPI = Nothing
Set objOLApp = Nothing

End Sub

[Nox]

Great, I'll give that shot.

Now, if this isn't a count that is going to be in the default user inbox, how do I get it to run in a group email box?

Thank you!

[Nox]

Okay, actually, I don't need to do that (above).

How can I modify that code to count things from a specific person/email address?

[Andy Pope]

You need to check other properties of the mail item such as Subject, Sender.

If you include a reference the Outlook object library, via Tools > References, you can use the object browser to see properties of outlook items.