nabezo wiki

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("<br>")
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("<br>")
next