Outlook kontakter
Hej..Er ved at lave et program. hvor jeg skal hente mail addresser fra outlook til mit program.
Har derfor lavet en form som den outlook viser. nå man skal søge efter en mail adresse.
Har fået min combobox fyldt op med de grupper der er i kontakter.
Men hvordan kan jeg hente informationerne ud af de personer der er i hver gruppe.
Dem skal jeg have lagt ind i et listview.
Her er koden som er skrevet ind til nu.
Private Sub BuildMailList()
Try
'Create Outlook Application
Dim OutlookApp As Outlook.Application = New Outlook.Application()
' Get MAPI Namespace
Dim OutlookNS As Outlook.NameSpace = OutlookApp.GetNamespace("mapi")
' Get global address liste
Dim OutlookAddressLists As Outlook.AddressLists = OutlookNS.AddressLists
Dim MoGal As Outlook.AddressList
Dim I As Integer
For I = 1 To OutlookAddressLists.Count
MoGal = OutlookAddressLists.Item(I)
cboGroupe.Items.Add(MoGal.Name)
MoGal = Nothing
Next
cboGroupe.SelectedIndex = cboGroupe.FindString("Global")
MoGal = OutlookAddressLists.Item(cboGroupe.Text)
Catch ex As Exception
Throw ex
End Try
End sub