Sending Outlook Calendar Appointment via vbscript?

[Don Ennis]

I tried this code to send an outlook calendar appointment using asp
vbscript:

SendMeetingRequest()
Sub SendMeetingRequest()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1

Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)
With objAppt
.Subject = "My Test Appointment"
.Start = Now + 1
.End = DateAdd("h", 1, .Start)

' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttendees = "don....@afams.af.mil"
.Send
End With

Set objAppt = Nothing
Set objOL = Nothing
End Sub

but get this error:

Microsoft Outlook error '00001000'
Could not complete the operation because the service provider does not
support it.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Cindy]

Don,

I made a little change to your code. It worked for me.
Here is the code.

SendMeetingRequest

Sub SendMeetingRequest()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1

Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)

objAppt.Subject = "My Test Appointment"
objAppt.Start = #7/18/03 1:30:00 PM#
objAppt.End = #7/18/03 2:30:00 PM#
objAppt.Location = "Test Environment"

' make it a meeting request

objAppt.MeetingStatus = olMeeting
objAppt.RequiredAttendees = "som...@someco.com"
objAppt.Send

Set objAppt = Nothing
Set objOL = Nothing
End Sub

>.
>

[news]

Hi
can you help me to change the code.
Iwant to create a buton in an contactform that creates a appointment with
this contact
sendind the companyname of the contact to
objAppt.Subject = "My Test Appointment" companyname!!!

and the body of the contact to the body of the appointment

thanks for ideas
EundE

"Cindy" <anxia...@yahoo.com> schrieb im Newsbeitrag
news:020f01c31bde$612ee9e0$a401...@phx.gbl...