Slå alias (exchange) op via excel liste

CDO - hvad er det? - men det skulle måske kunne lade sig gøre via VBA i Excel-filen.

Cdo = Collaboration Data Object , som bla bruges i vba for at få adgang til data fra andre programmer fx outlook, såvidt huskes .
Det skal helt klart bruges vba, spørgsmålet er bare hvordan man får resolved exchangenavnet og får alias tilbage.

ok - kendte ikke CDO - anvender altid de relevante referencer til de øvrige applicationer. Behersker du VBA

Vender tilbage,hvis jeg finder noget interessant.

Jeg vil ikke sige jeg er en haj, nok mere en dygtig begynder

Er modtaget...

Fundet indtil videre - men har ikke mulæighed for at afprøve det:
I første omgang anvendes Excel-data ikke..

Rem Reference til Outlook er sat her (Excel-VBA)
Sub DemoAE()
Dim mailApp, Namespace, olApp
    Dim colAL As Outlook.AddressLists
    Dim oAL As Outlook.AddressList
    Dim colAE As Outlook.AddressEntries
    Dim oAE As Outlook.AddressEntry
    Dim oExUser As Outlook.ExchangeUser
   
    Set olApp = CreateObject("Outlook.Application")
    Set Namespace = olApp.GetNamespace("MAPI")
   
    Set colAL = olApp.Session.AddressLists
   
    For Each oAL In colAL
'Address list is an Exchange Global Address List
        If oAL.AddressListType = olExchangeGlobalAddressList Then
            Set colAE = oAL.AddressEntries
            For Each oAE In colAE
                If oAE.AddressEntryUserType = _
                    olExchangeUserAddressEntry Then
                    Set oExUser = oAE.GetExchangeUser
                    Debug.Print (oExUser.Alias)
                End If
            Next
        End If
    Next

End Sub

Tror jeg ikke kan finde referencen.. har sat ms outlook object lib og outlook 1.0 type lib, men den godkender ikke Dim oExUser As Outlook.ExchangeUser (pga. user defined type)


klarede det dog med en log fil fra exchange serveren med alle brugere..

LUK