We have Exchange 2000 and ASP.

I'm using Microsoft sample code to create appointments
programmitically:

But always getting System error on line:

iMBX.BaseFolder

System cannot find the path specified.

Exchange and Web Server are 2 different machines.

If anyone knows please reply to szilbermints@babson.edu

Thank You

------------------------------------------

Dim Info
       Info = CreateObject("ADSystemInfo")
       Dim iPer
       iPer = CreateObject("CDO.Person")
       Dim iAddr
       iAddr = CreateObject("CDO.Addressee")
       ' Response.Write("user:" & Environment.UserName)
       Dim iMBX
       Response.Write(Info.DomainDNSName)
       iAddr.EmailAddress = "myname@" & Info.DomainDNSName
       Response.Write(iAddr.CheckName("LDAP://" &
Info.DomainDNSName))
       Response.Write("User name: " & Info.username & _
       "  Directory: " & iAddr.DirURL)
       iPer.DataSource.Open("mailto:" &
iAddr.EmailAddress)
       iMBX = iPer.GetInterface("IMailBox")
       Response.Write("Email: " & iPer.Email)
       ' Response.Write(iMBX.BaseFolder)

       'Creating Appointment

       Dim strFreeBusy
       'Get the free/busy status
       strFreeBusy = iAddr.GetFreeBusy("5/11/2000
13:00:00 PM", "5/11/2000 15:00:00 PM", 30)
       Response.Write("<br>Free Busy=" & strFreeBusy
& "<br>")

       'LAB - Set Appointment
       Dim objAppt
       Dim Conn
       objAppt = CreateObject("CDO.Appointment")
       Conn = CreateObject("ADODB.Connection")
       Conn.Provider = "ExOLEDB.Datasource"
       With objAppt
           .StartTime = "5/13/2000 2:00:00 PM"
           .EndTime = "5/13/2000 3:00:00 PM"
           .Subject = "Meet me- in St. Louis"
           .Location = "St. Louis"
           .TextBody = "I left my heart in San Francisco,
so I may be... "