VBA script for counting emails by a certain sender

[Redlad1291]

Hi I currently have a VBA script set up to count how many emails are in a mailbox but would like it to count from a certain sender in that mailbox.

curntly my script is set up with the following;

set objfolder = objnspace.folders("mailbox").folders("inbox")

does anyone know what I can add to this so it only counts it from a certain email address?

 

[mjbeam]

You can loop through a folder and and each item in the folder has a SenderName property if it is an email. While looping through the folder you can count how many of the emails are from a particular email address. For example:

set objfolder = objnspace.folders("mailbox").folders("inbox")

Dim MickeyCount as Integer

MickeyCount = 0

For Each objItem in objFolder
    If objItem.SenderName = "Mickey.Mouse@Disney.Com" then MickeyCount = MickeyCount + 1
Next

 

[Domenic]

Here's another way...

objfolder.Items.Restrict("[SenderEmailAddress] = 'john@xyz.com'").Count

 

[Redlad1291]

Thanks they both worked, do you know if it's possible to get a screenshot of a calendar in outlook through VBA aswell and paste over a certain amount of cells in excel?

 

[mjbeam]

The only way I know of to grab a screen shot would require Outlook to be open, then you would have to do API calls to capture the screen to the clipboard, then copy it to a shape which would be placed on the worksheet. That wouldn't be very much fun to code.

An alternative would be to access the calendar data in Outlook and place the contents in cells on the worksheet, then format the cells such that it looks like a calendar.