Hente Exchange-adresser m.m. via CDO

Hej macjensen

Det kan gøres sådan her:


      Dim objsession As MAPI.Session
      Dim objAddrEntries As AddressEntries
      Dim objAddressEntry As AddressEntry
      Set objsession = New MAPI.Session
     
      objsession.Logon profilename:=\"Microsoft outlook\" \'Sæt en profil her
      Set objAddrEntries = objsession.AddressLists(\"Global Address List\").AddressEntries
             
      On Error Resume Next
      For Each objAddressEntry In objAddrEntries
          Debug.Print objAddressEntry.Name
          Debug.Print \"E-address: \" & objAddressEntry.Address
          Debug.Print \"Given Name: \" & _
                      objAddressEntry.Fields(CdoPR_GIVEN_NAME).Value
          Debug.Print \"Initials: \" & objAddressEntry.Fields _
                      (CdoPR_INITIALS).Value
          Debug.Print \"Surname: \" & objAddressEntry.Fields _
                      (CdoPR_SURNAME).Value
          Debug.Print \"Display Name: \" & objAddressEntry.Fields _
                      (CdoPR_DISPLAY_NAME).Value
          Debug.Print \"Alias: \" & _
                      objAddressEntry.Fields(CdoPR_ACCOUNT).Value
          Debug.Print \"Title: \" & _
                      objAddressEntry.Fields(CdoPR_TITLE).Value
          Debug.Print \"Company Name: \" & objAddressEntry.Fields _
                      (CdoPR_COMPANY_NAME).Value
          Debug.Print \"Office Location: \" & objAddressEntry.Fields _
                      (CdoPR_OFFICE_LOCATION).Value
          Debug.Print \"Office Phone 1: \" & objAddressEntry.Fields _
                      (CdoPR_OFFICE_TELEPHONE_NUMBER).Value
          Debug.Print \"Office Phone 2: \" & objAddressEntry.Fields _
                      (CdoPR_OFFICE2_TELEPHONE_NUMBER).Value
          Debug.Print \"Business Fax: \" & objAddressEntry.Fields _
                      (CdoPR_BUSINESS_FAX_NUMBER).Value
          Debug.Print \"Mobile Phone: \" & objAddressEntry.Fields _
                      (CdoPR_MOBILE_TELEPHONE_NUMBER).Value
          Debug.Print \"Pager: \" & objAddressEntry.Fields _
                      (CdoPR_PAGER_TELEPHONE_NUMBER).Value
          Debug.Print \"Assistant: \" & objAddressEntry.Fields _
                      (CdoPR_ASSISTANT).Value
          Debug.Print \"Assistant Phone: \" & objAddressEntry.Fields _
                      (CdoPR_ASSISTANT_TELEPHONE_NUMBER).Value
          Debug.Print \"Home Phone 1: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_TELEPHONE_NUMBER).Value
          Debug.Print \"Home Phone 2: \" & objAddressEntry.Fields _
                      (CdoPR_HOME2_TELEPHONE_NUMBER).Value
          Debug.Print \"Home Fax: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_FAX_NUMBER).Value
          Debug.Print \"Home Street: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_ADDRESS_STREET).Value
          Debug.Print \"Home City: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_ADDRESS_CITY).Value
          Debug.Print \"Home State: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_ADDRESS_STATE_OR_PROVINCE).Value
          Debug.Print \"Home Postal Code: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_ADDRESS_POSTAL_CODE).Value
          Debug.Print \"Home Country: \" & objAddressEntry.Fields _
                      (CdoPR_HOME_ADDRESS_COUNTRY).Value
          Debug.Print \"Manager Name: \" & objAddressEntry.Fields _
                      (CdoPR_MANAGER_NAME).Value
          Debug.Print \"Manager Name: \" & objAddressEntry.Manager
      Next
      objsession.Logoff
      Set objFilter = Nothing
      Set objAddrEntries = Nothing
      Set objsession = Nothing


det skal vist bare modificeres lidt til dit formål.....

brian_d :o)

Takker mange gange, det var lige det jeg manglede.