CDO Colaboration Data Object 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("
") next %> ↑ ExchangeServer?のスケジュールを表示するサンプルです。 † IISサーバーでExchangeのクライアントとして接続可能になっている必要があります。 サンプルですが、フィルターしていませんので、全件表示してしまいますので、試す場合は注意してください <%@ LANGUAGE="VBSCRIPT" %> <% strProfileInfo = "サーバー名" & vbLf & "メールボックス名" set objSession = Server.CreateObject("MAPI.Session") objSession.Logon ,,False,False,0,False,strProfileInfo set objCalendar = objSession.GetDefaultFolder(0) set objAppts = objCalendar.Messages for each objApp in objAppts response.write(objApp.subject) response.write(objApp.Location) response.write(objApp.Text) response.write(objApp.StartTime) response.write(objApp.EndTime) response.write(objApp.AllDayEvent) response.write("
") next