Looking for a clever way of adding appointments to another user's Outlook calendar

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)

    appItem.Send

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

Thanks

Michael