Få medlemmerne ud af en distributionsliste.

listenavn = \"\"
do while not liste.EOF
  if liste(\"listenavn\") <> listenavn Then
    response.write(liste(\"listenavn\") & \"<BR>\")
  end if
  response.write(liste(\"medlem\") & \"<BR>\")
  listenavn = liste(\"listenavn\")
  liste.MoveNext
loop

trumf>> Har du overhovedet læst spørgsmålet. For tænker du ikke på hvordan man hiver ting ud af en database? Ellers vil jeg gerne have dig til at sætte din kode sammen med min....

Jeg har læst dit spm, men jeg tænkte at princippet er det samme som den kode jeg har sat ind.
Hvor du henter opl. fra og om du bruger et array eller en liste kan vel være ligegyldigt.

Det er et hint til hvordan jeg tror det kan løses, jeg skriver ikke koden.

Jeg har måske misforstået dig!

Det der er mit problem er ikke hvordan jeg lister oplysningerne. Mit problem er hvordan jeg får fat i dem.

Så fandt jeg ud af det også:
Const CdoAddressListGAL = 0
Const CdoDistList = 1
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
    Response.Write Item.Name & "<BR>"
    Set objAddressEntry = objAddressEntries.Item(Trim(Item.Name))
    Set objMembers = objAddressEntry.Members
    For Each objMember In objMembers
      If objMember.DisplayType = CdoUser Then
        LDAPPort = 3891
        Set objGoP = GetObject("LDAP://" & strMailServer & ":" & LDAPPort & objMember.Address)
        Mailbox = objGoP.uid
        If Trim(objGoP.rfc822Mailbox) <> "" Then
          Response.Write "&nbsp;&nbsp;" & Mailbox & " [" & objGoP.rfc822Mailbox & "]" & "<BR>"
        End If
        Set objGoP = Nothing
      End If
    Next
  End If
Next