Counting Number of emails received in outlook per month in a year

[vij]

Hi,
At the outset I had posted this under Excel Questions also today which may not be the appropriate forum I feel hence a repeat post here.

I have over 75000 emails that I received/replied from Jan 2015 to Dec 2015.
I want to count the total number of emails which I received/sent per month from Jan to Dec 2015.
Is this possible?

I am using MS Outlook 2013.

Thanks,
Vij

 

[mole999]

I have moderated the other two posts and removed them from the system

 

[vij]

Thanks

 

[NickyCC]

Hi Vij
assuming you are looking only in a default inbox and sent mail folders, this macro should work
it could be slow if you have a lot of emails
it will display a text box with the number of emails received and sent each month, and also copy the text to the clipboard

Sub CountEmails()
    Dim MyNameSpace As Outlook.NameSpace
    Dim InFolder As Outlook.folder
    Dim SentFolder As Outlook.folder
    Dim MyText As DataObject
    Dim x As Long, n As Long, InArray(11) As Variant, SentArray(11) As Variant, MonthArray As Variant, txt As String
    
    For x = 0 To 11
        SentArray(x) = 0
        InArray(x) = 0
    Next x
    
    MonthArray = Split("Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec", ",")
    
    Set MyNameSpace = Application.GetNamespace("MAPI")
    Set InFolder = MyNameSpace.GetDefaultFolder(olFolderInbox)
    Set SentFolder = MyNameSpace.GetDefaultFolder(olFolderSentMail)
    
    For n = 1 To SentFolder.items.Count
        On Error Resume Next
        x = Month(SentFolder.items(n).SentOn) - 1
        SentArray(x) = SentArray(x) + 1
    Next n
    
    For n = 1 To InFolder.items.Count
        On Error Resume Next
        x = Month(InFolder.items(n).SentOn) - 1
        InArray(x) = InArray(x) + 1
    Next n
    
    txt = ""
    For n = 0 To 11
    txt = txt & MonthArray(n) & "  - emails sent: " & SentArray(n) & " ; emails received: " & InArray(n) & Chr(13)
    Next n
    MsgBox txt


Set MyText = New DataObject
MyText.SetText txt
MyText.PutInClipboard

End Sub

 

[vij]

Hi NickyCC,
Thanks for such a prompt response.
Am I pasting the code in the correct place.
This is the error I am getting.

 

[vij]

Hi NickyCC,

I was trying to attach an image but goofed up. Apologies for the same.
Thanks for such a prompt response.
Where and how do I paste the code.

Vij

 

[NickyCC]

Hi Vij
not sure what's happening there, but I think you must have copied it in the wrong place. To run a macro in Outlook you must have macros enabled in your Outlook settings and have the developer tab visible. Then copy the code into Visual Basic (on the developer tab, select Visual Basic and insert a new module if necessary, then run the macro.

 

[vij]

Still getting an error as under
Sub CountEmails()
Dim MyNameSpace As Outlook.NameSpace
Dim InFolder As Outlook.Folder
Dim SentFolder As Outlook.Folder
Dim MyText As DataObject
Dim x As Long, n As Long, InArray(11) As Variant, SentArray(11) As Variant, MonthArray As Variant, txt As String


Compile error!!!
User type not defined.

 

[NickyCC]

Looks like you need to reference an object library
try these steps:

https://support.microsoft.com/en-us/kb/289664