Integration with Outlook - how to increment end date and time from start date/time

Question

Hi,
I want to add a variable amount of time to an appointment start date and time in outlook, through vba in access.  Code below shows what I've done:
======================================
    Dim olApp As New Outlook.Application
    Dim olAppointment As AppointmentItem
    Dim myRequiredAttendee As Outlook.Recipient
    Set olAppointment = olApp.CreateItem(olAppointmentItem)    
    With olAppointment
        .Start = DateValue(strStartDate) + TimeValue(strStartTime)
        .Duration = intDuration
        .End = DateValue(strStartDate) + ????????
=======================================
What do I replace the ????? with so that it increments the start time by any duration I decide in minutes?  Using the duration doesn't seem to work and I also want to be able to have the appointment span a number of days, e.g. could start at 930am on
Monday and end at 10am on Weds, but want to set the end time relative to the start time.
Thanks,
Chris.
_________________________________________________________ Every day is a school day!

Answer 1

I've tried that, but it throws out a datatype mismatch error :(
It would be helpful if you posted the exact code you tried.  In my tests, setting teh .Duration property appears to work.  However, if you want to set the .End property to a specific number of minutes after the date/time of the .Start property,
this works for me:
With olAppointment
.start = DateValue(strStartDate) + TimeValue(strStartTime)
.End = .start + TimeSerial(0, intDuration, 0)
End With
Assuming, that is, that intDuration contains the number of minutes the appointment should last.
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html