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

Posted on 2005-04-07
Last Modified: 2012-05-05
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



Question by:crestsolutions
    LVL 53

    Accepted Solution

    About your warning:

    Take a look at

    Here you find all the possible solutions, advantages & disadvantages of them.

    Other usefull link about outlook redemption

    Author Comment

    Thanks for that. That works very well to eliminate the warnings. If you don't mind I will just wait to see is there any solution out there for the emails appearing in the recipients inbox before I award the points. Even if there is I will award you some of the points.
    LVL 76

    Expert Comment

    by:David Lee
    Hi crestsolutions,

    You should be able to add an appointment directly to another user's calendar, no messages involved, if the other user grants you access to their calendar and if you then add that user's calendar to your profile.  The other user will have to give you authoring permission to their calendar.  


    Author Comment

    Thanks for the comment BlueDevilFan but I cannot ensure that the Calendar will be shared. I'm sorry but I will be awarding the points to Dhaest as his solution solved most of the problems I was encountering
    LVL 76

    Expert Comment

    by:David Lee
    No problem.

    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    Looking for New Ways to Advertise?

    Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.

    Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
    I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
    Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
    Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

    779 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    15 Experts available now in Live!

    Get 1:1 Help Now