Set appointment in Outlook on other computer

[jodyblau]

I am using the code provided by MSDN to set an appointment on my
Outlook. However, I would like to adjust this code so that instead of
setting the appointment on in Outlook on my computer, it places it in
Outlook on a different computer on the network. Here is the code
sample from MSDN; any suggestions on how I might accomplish my goal?

Private Sub cmdAddAppt_Clic k()
On Error GoTo Add_Err

'Save record first to be sure required fields are filled.
DoCmd.RunComman d acCmdSaveRecord

'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlo ok = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Applica tion
Dim objAppt As Outlook.Appoint mentItem
Dim objRecurPattern As Outlook.Recurre ncePattern

Set objOutlook = CreateObject("O utlook.Applicat ion")
Set objAppt = objOutlook.Crea teItem(olAppoin tmentItem)

With objAppt
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt

If Not IsNull(Me!ApptN otes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptL ocation) Then .Location =
Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinute sBeforeStart = Me!ReminderMinu tes
.ReminderSet = True
End If

Set objRecurPattern = .GetRecurrenceP attern

With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1
'Once per week
.PatternStartDa te = #7/9/2003#
'You could get these values
'from new text boxes on the form.
.PatternEndDate = #7/23/2003#
End With

.Save
.Close (olSave)
End With
'Release the AppointmentItem object variable.
Set objAppt = Nothing
End If

'Release the Outlook object variable.
Set objOutlook = Nothing

'Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlo ok = True
DoCmd.RunComman d acCmdSaveRecord
MsgBox "Appointmen t Added!"

Exit Sub

Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub
Thanks,
Jody Blau

[Tom van Stiphout]

On 5 Mar 2006 14:16:25 -0800, "jodyblau" <jo******@gmail .com> wrote:

Without reading all of your code: yes, this is possible. The receiver
will have to grant the setter rights to do this (by granting these
rights in the Calendar folder). In our company we have such code, and
we give the others Authors rights.

-Tom.

I am using the code provided by MSDN to set an appointment on my
Outlook. However, I would like to adjust this code so that instead of
setting the appointment on in Outlook on my computer, it places it in
Outlook on a different computer on the network. Here is the code
sample from MSDN; any suggestions on how I might accomplish my goal?

Private Sub cmdAddAppt_Clic k()
On Error GoTo Add_Err

'Save record first to be sure required fields are filled.
DoCmd.RunComman d acCmdSaveRecord

'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlo ok = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Applica tion
Dim objAppt As Outlook.Appoint mentItem
Dim objRecurPattern As Outlook.Recurre ncePattern

Set objOutlook = CreateObject("O utlook.Applicat ion")
Set objAppt = objOutlook.Crea teItem(olAppoin tmentItem)

With objAppt
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt

If Not IsNull(Me!ApptN otes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptL ocation) Then .Location =
Me!ApptLocatio n
If Me!ApptReminder Then
.ReminderMinute sBeforeStart = Me!ReminderMinu tes
.ReminderSet = True
End If

Set objRecurPattern = .GetRecurrenceP attern

With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1
'Once per week
.PatternStartDa te = #7/9/2003#
'You could get these values
'from new text boxes on the form.
.PatternEndDate = #7/23/2003#
End With

.Save
.Close (olSave)
End With
'Release the AppointmentItem object variable.
Set objAppt = Nothing
End If

'Release the Outlook object variable.
Set objOutlook = Nothing

'Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlo ok = True
DoCmd.RunComman d acCmdSaveRecord
MsgBox "Appointmen t Added!"

Exit Sub

Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub
Thanks,
Jody Blau