add Outlook Calender reminder to another user calender

[neemi]

Access 2000

Our Outlook is based on exchange server and what I need to be able to do is add an outlook calender reminder to for another user.

Currently I have the following code:

Public Function SetOutlookReminder(vtApptDate As Variant, _
                                   vtApptTime As Variant, _
                                   strSubject As String, _
                                   strbody As String, _
                                   intRemMinsBeforeStart As Integer, _
                                   blnSetReminder As Boolean) As String
On Error GoTo ErrorHandler

'// =================================================================================
    Dim sMessage As String
    Dim strEntryID As String
    Dim strStoreID As String
    
    Dim objOutlook As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem
        
    Set objOutlook = CreateObject("Outlook.Application")
    Set objAppt = objOutlook.CreateItem(olAppointmentItem)
           
    With objAppt

        .Start = vtApptDate & " " & vtApptTime
        .End = vtApptDate & " " & vtApptTime
        .subject = strSubject
        .Body = strbody
        .ReminderMinutesBeforeStart = intRemMinsBeforeStart
        .ReminderSet = blnSetReminder
        .Save
        .close (olSave)
    End With
    
    strEntryID = objAppt.EntryID
    SetOutlookReminder = strEntryID
    
    Set objAppt = Nothing
    Set objOutlook = Nothing

Exit_ErrorHandler:
    Exit Function

ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbExclamation, "CLM Outlook Reminder Error"
    Resume Exit_ErrorHandler
    Resume 0

End Function

But this adds the reminder to the current users outlook.

Does anyone know how I can add a reminder to outlook so that it appears in someone elses calender by specifiying which users calender i want it to appear in???

Help greatly appreciated...

Cheers,
Nims

 

[SkipVought]

Hi,

I dunno. Try this.

http://msdn.microsoft.com/library/d...ml/olmthGetSharedDefaultFolder_HV05247519.asp

Skip,

_[red][/red]