Solved: Count the no of mails in a folder with the name of the user i sent a mail to.

Hire a programmer or write a macro yourself.

Regards,
Victor

Hi, sharath.

The solution to this comes in two parts. This is part 1. Follow these instructions.

1. Start Outlook
2. Click Tools > Macro > Visual Basic Editor
3. If not already expanded, expand Microsoft Office Outlook Objects
4. Right-click on Class Modules, select Insert > Class Module
5. In the Properties panel click on Name and enter MessageCounter
6. Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7. Edit the code as needed. I included comments wherever something needs to or can change
8. Click the diskette icon on the toolbar to save the changes
9. Close the VB Editor

Private Const CLASSNAME = "Message Counter"
 
Private strSender As String, _
    olkRecipient As Outlook.Recipient, _
    bolSubfolders As Boolean, _
    intCount As Integer
 
Public Property Let Sender(strValue As String)
    strSender = strValue
End Property
 
Public Property Get Sender() As String
    Sender = strSender
End Property
 
Public Property Let Subfolders(bolValue As Boolean)
    bolSubfolders As Boolean
End Property
 
Public Property Get Subfolders() As Boolean
    Subfolders = bolSubfolders
End Property
 
Public Function Count() As Integer
    If strSender <> "" Then
        intCount = 0
        Set olkRecipient = Outlook.Session.CreateRecipient(strSender)
        olkRecipient.Resolve
        If olkRecipient.Resolved Then
            ProcessFolder Outlook.Session.GetDefaultFolder(olFolderSentMail)
        Else
            MsgBox "Processing Aborted" & vbCrLf & "The name " & strSender & " could not be resolved.", vbCritical + vbOKOnly, CLASSNAME
        End If
    Else
        MsgBox "Processing Aborted" & vbCrLf & "You must provide a name to search for.", vbCritical + vbOKOnly, CLASSNAME
    End If
    Count = intCount
End Function
 
Private Sub ProcessFolder(olkFolder As Outlook.Folder)
    Dim olkItem As Object, _
        olkAddressee As Outlook.Recipient, _
        olkSubfolder As Outlook.Folder
    On Error Resume Next
    For Each olkItem In olkFolder.Items
        Debug.Print olkItem.Subject
        For Each olkAddressee In olkItem.Recipients
            If olkAddressee.Address = olkRecipient.Address Then
                intCount = intCount + 1
                Exit For
            End If
        Next
    Next
    On Error GoTo 0
    If bolSubfolders Then
        For Each olkSubfolder In olkFolder.Folders
            ProcessFolder olkSubfolder
        Next
    End If
End Sub

Open in new window

David Lee

This is part 2.

Follow these instructions.

1. Start Outlook
2. Click Tools > Macro > Visual Basic Editor
3. If not already expanded, expand Microsoft Office Outlook Objects
4. If not already expanded, expand Modules
5. Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6. Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7. Edit the code as needed. I included comments wherever something needs to or can change
8. Click the diskette icon on the toolbar to save the changes
9. Close the VB Editor

Run this macro when you want to do a search.

Sub CountSentMessages()
    Const MACRONAME = "Count Sent Messages"
    Dim objCounter As New MessageCounter
    With objCounter
        .Sender = InputBox("Enter the name of email address of the person to count for.", MACRONAME)
        .Subfolders = (MsgBox("Check subfolders too?", vbQuestion + vbYesNo, MACRONAME) = vbYes)
        MsgBox "There were " & .Count() & " items sent to " & .Sender, vbInformation + vbOKOnly, MACRONAME
    End With
    Set objCounter = Nothing
End Sub

Open in new window

David Lee

I have a typo in the first code snippet. Change line 17 to read

bolSubfolders = bolValue