How to find email address in many distribution lists in Outlook

Managing many distribution lists might be difficult especially when their content is often changed. The most common problem is that when a contact is removed in Outlook, it is not automatically removed from the distribution lists.

A macro below finds a given e-mail address in all distribution lists from the current folder. After the search is finished the macro shows in what distribution lists the contact was found.

Sub SearchInDistLists()
    On Error Resume Next
    Dim oFolder As MAPIFolder
    oFolder = Application.ActiveExplorer.CurrentFolder
    ' Ask for SMTP address to search
    Dim strSearchAddress As String
    strSearchAddress = InputBox("Please enter SMTP address to search in distribution lists in the folder.")
    If InStr(strSearchAddress, "@") < 1 Then
        MsgBox("Wrong SMTP")
        Exit Sub
    End If
    Dim strDistListNames As String
    For Each item In oFolder.Items
        Dim oDistList As DistListItem
        oDistList = item
        If Not oDistList Is Nothing Then
            For nIndex = 1 To oDistList.MemberCount
                If UCase(oDistList.GetMember(nIndex).Address) = UCase(strSearchAddress) Then
                    strDistListNames = strDistListNames & oDistList.DLName & vbCrLf
                    Exit For    ' address found
                End If
            Next
        End If
    Next
    ' Show results
    If strDistListNames <> "" Then
        MsgBox "Address '" & strSearchAddress & "' found in the following distribution lists:" & vbCrLf & vbCrLf & strDistListNames, vbInformation

    Else
        MsgBox "Address '" & strSearchAddress & "' not found in any distribution lists in the folder.", vbInformation

    End If

End Sub