By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
438,164 Members | 1,047 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 438,164 IT Pros & Developers. It's quick & easy.

Outlook Appointment

P: 3
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..
Expand|Select|Wrap|Line Numbers
  1. Sub SendMeetingRequest()     
  2. Dim objOL   'As Outlook.Application     
  3. Dim objAppt 'As Outlook.AppointmentItem     
  4. Const olAppointmentItem = 1    
  5.  Const olMeeting = 1           
  6. Set objOL = CreateObject("Outlook.Application")     
  7. Set objAppt = objOL.CreateItem(olAppointmentItem)    
  8. With objAppt  .Subject = "My Test Appointment"       
  9.  .Start = Now + 1         
  10. .End = DateAdd("h", 1, .Start)                   ' make it a meeting request        
  11.  .MeetingStatus = olMeeting        
  12.  .RequiredAttendees = "someone@somewhere.dom"       
  13.  .Send     
  14. End With      
  15.     Set objAppt = Nothing    
  16. Set objOL = Nothing
  17. End Sub
  18.  
Is that because outllok not installed in my server? if yes then please let me know other solution
Oct 27 '14 #1
Share this Question
Share on Google+
1 Reply


P: 3
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
Oct 27 '14 #2

Post your reply

Sign in to post your reply or Sign up for a free account.