Hi all. How do I incorporate this code into invoke code?
> Imports Outlook = Microsoft.Office.Interop.Outlook
> Private Sub GetDistributionListMembers()
> Dim snd As Outlook.SelectNamesDialog = _
> Application.Session.GetSelectNamesDialog()
> Dim addrLists As Outlook.AddressLists = _
> Application.Session.AddressLists
> For Each addrList As Outlook.AddressList In addrLists
> If addrList.Name = "All Groups" Then
> snd.InitialAddressList = addrList
> Exit For
> End If
> Next
> snd.NumberOfRecipientSelectors = _
> Outlook.OlRecipientSelectors.olShowTo
> snd.ToLabel = "D/L"
> snd.ShowOnlyInitialAddressList = True
> snd.AllowMultipleSelection = False
> snd.Display()
> If (snd.Recipients.Count > 0) Then
> Dim addrEntry As Outlook.AddressEntry = _
> snd.Recipients(1).AddressEntry
> If (addrEntry.AddressEntryUserType = _
> Outlook.OlAddressEntryUserType. _
> olExchangeDistributionListAddressEntry) Then
> Dim exchDL As Outlook.ExchangeDistributionList = _
> addrEntry.GetExchangeDistributionList()
> Dim addrEntries As Outlook.AddressEntries = _
> exchDL.GetExchangeDistributionListMembers()
> If Not (addrEntries Is Nothing) Then
> For Each exchDLMember As _
> Outlook.AddressEntry In addrEntries
> Debug.WriteLine(exchDLMember.Name)
> Next
> End If
> End If
> End If
> End Sub