I am writing an ASP page to find a user's Exchange 2000
Inbox and check for unread items. Sample code:
<%
Set Person = CreateObject("CDO.Person")
strURL = "mailto:" & email
Person.DataSource.Open strURL
Set Mailbox = Person.GetInterface("IMailbox")
Mbox = Mailbox.Inbox '<--generate error message
Dim Rec
Set Rec = CreateObject("ADODB.Record")
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "ExOLEDB.DataSource"
Conn.Open Mbox
Rec.Open Mbox , Conn, adModeReadWrite