Problems to Create appointments with VBScript and Exchange

[Sergei]

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 (e-mail address removed)

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... "

 

[Sue Mosher]

Try asking in the microsoft.public.exchange.applications
group. This group is for Outlook client apps.

--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers