Finding emails for users in an AD Group

Here is the code that emails each user in the AD group.

Function SMTPGroupTemplate(ByVal K2 As ClientEventContext, ByVal strADGroup As String)
'To be called from Client Event
'Purpose: Emails each member in the AD group

Dim group_entry As New System.DirectoryServices.DirectoryEntry("LDAP://CN=" & strADGroup & ",OU=yourcompany User Groups,DC=yourcompany,DC=Com")
Dim strGroup_member As String
Dim entry As New System.DirectoryServices.DirectoryEntry
Dim searcher As New System.DirectoryServices.DirectorySearcher
Dim result As System.DirectoryServices.SearchResult
Dim sEmail As String = String.empty

For Each strGroup_member In group_entry.Properties("member")
entry = New System.DirectoryServices.DirectoryEntry("LDAP://" & strGroup_member)

searcher = New System.DirectoryServices.DirectorySearcher(entry)
searcher.PropertiesToLoad.Add("mail")

result = searcher.FindOne
If Not result Is Nothing Then
Try
sEmail = result.Properties("mail")(0).ToString()
SMTPFunction(K2, sEmail)
Catch ex As exception
'suppress error in case AD user does not have email address
End Try
End If
Next
End Function