udtræk af distributionslister

Hvilken version af Exchange ? Kører du med AD eller ?

Der findes naturligvis et par muligheder, men der er nogle forskelle mellem versionerne.

Exchange 5.5 på W2K
Primary Domain Server kører på W2K

Fandt selv ud af det:

Const CdoAddressListGAL = 0
Const CdoDistList = 1
strAntalDist = 0
strMailServer = \"Mailserverens Navn\"
strExchAlias = \"Brugerens Exchange Alias
strProfileInfo = strMailServer & vbLF & strExchAlias
Set objSession = CreateObject(\"MAPI.Session\")
objSession.Logon , , False, True, 0, True, strProfileInfo

Set objAddressList = objSession.GetAddressList(CdoAddressListGAL)
Set objAddressEntries = objAddressList.AddressEntries

For Each Item In objAddressEntries
  If Item.DisplayType = CdoDistList Then
    strAntalDist = strAntalDist + 1
    strHTML = strHTML & Hvad man nu har tænkt sig der skal ske\"
    End If
Next

objSession.Logoff
Set objSession = Nothing

Stærkt. Jeg har desværre ikke haft tid til at få gjort noget ved det, men du havde jo slet ikke brug for hjælp :-)

strAntalDist har jeg kun med for at tælle hvor mange antal distributionslister der er.

Nu mangler jeg så bare at få listet medlemmerne i gruppen. Har du nogen idé til det?

Se evt. her:
http://www.eksperten.dk/spm/159958