Looking for a clever way of adding appointments to another user's Outlook calendar
Posted on 2005-04-07
I need to add a recurring appointment to another user's calendar in VB6. Currently I use the following code to send a meeting request for each instance of the recurring appointment. The code works OK but becuase I am using Outlook 2003 it pops up a number of warning messages about an application trying to send an email on your behalf. Theses warning messages pop up for each instance of the recurring appointment.
Set objOutlook = New Outlook.Application
Set appItem = objOutlook.CreateItem(olAppointmentItem)
appItem.MeetingStatus = olMeeting
appItem.Start = dtDueDate
appItem.Duration = 60
appItem.Subject = "Subject"
appItem.Body = "Body"
appItem.ReminderMinutesBeforeStart = 15
Set myRecipient = appItem.Recipients.Add(strEmail)
Say for example I want to schedule something to happen each week for a year, I will get about 1000 warning messages from outlook and as well as that, the recipient of the recurring appointment will get an email for each instance of the recurring appointment ( in this case 52 emails )
Ideally I would like to add a recurring appointment without the recipient receiving any emails and the sender receiving any warnings. If there is a way I could perform this operation by going directly to the mail server that would be ideal as then I would not be relying on Outlook being installed on the host workstation