CDOを利用して、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("<br>")
next
%>
subject:件名location:場所
Text:本文
StartTime:開始日時（終日の場合は日にちのみ）
EndTime:終了日時（終日の場合は日にちのみ）
AllDayEvent:終日スケジュールの場合は、True
