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