Avatar billede midcom Nybegynder
17. maj 2007 - 10:44 Der er 1 løsning

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
Avatar billede midcom Nybegynder
02. marts 2008 - 23:03 #1
lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Quadsat ApS

Robotics Engineer

Netcompany A/S

Software Developer

Cognizant Technology Solutions Denmark ApS

Test Manager

Center Denmark Fonden

Cloud Engineer