CDOを利用して、ExchangeServerのグローバルアドレス一覧を表示するサンプルです。
IISサーバーでExchangeのクライアントとして接続可能になっている必要があります。
サンプルですが、フィルターしていませんので、全件表示してしまいますので、試す場合は注意してください。
なお、このサンプルはサーバーが英語版です。
<%@ LANGUAGE="VBSCRIPT" %>
<%
strProfileInfo = "サーバー名" & vbLf & "メールボックス名"
set objSession = Server.CreateObject("MAPI.Session")
objSession.Logon ,,False,False,0,False,strProfileInfo
set objAddressList = objSession.GetAddressList(0)
set objAddressEntries = objAddressList.AddressEntries
for each objAddressEntry in objAddressEntries
response.write(objAddressEntry.Name)
response.write("<br>")
next
%>
