ASP Classic Outllook Appointment

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • Mahasure
    New Member
    • Oct 2014
    • 3

    ASP Classic Outllook Appointment

    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..
    Code:
    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
    Last edited by Rabbit; Oct 26 '14, 09:12 PM. Reason: Please use code tags when posting code or formatted data.
Working...