Outlook Appointment

[Mahasure]

Hi Team,
I wanted to send event confirmation to user in form of outllok appointmnt and my code is in ASP.Classic, windows server 2000 and no outlook installed.
when i execute below code my webpage hangs up..

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 = "someone@somewhere.dom"       
 .Send     
End With      
    Set objAppt = Nothing    
Set objOL = Nothing
End Sub

Is that because outllok not installed in my server? if yes then please let me know other solution

[Mahasure]

Hi Team, I wanted to send event confirmation to user in form of outllok appointmnt and my code is in ASP.Classic, windows server 2000 and no outlook installed.
when i execute below code my webpage hangs up..
Sub SendMeetingRequ est()
Dim objOL 'As Outlook.Applica tion
Dim objAppt 'As Outlook.Appoint mentItem
Const olAppointmentIt em = 1
Const olMeeting = 1
Set objOL = CreateObject("O utlook.Applicat ion")
Set objAppt = objOL.CreateIte m(olAppointment Item)
With objAppt .Subject = "My Test Appointment"
.Start = Now + 1
.End = DateAdd("h", 1, .Start) ' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttend ees = "someone@somewh ere.dom"
.Send
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub

Is that because outllok not installed in my server? if yes then please let me know other solution