Afspraak in een netwerk agenda plaatsen

[Formule1man]

Hoi allemaal,

Ik heb al een manier gevonden om een afspraak toe te voegen aan een lokale agenda van outlook.

Maar nou is mijn vraag hoe doe ik dit als de agenda op een netwerk staat (een gezamenlijk agenda).

Private Sub cmdOutLook_Click()

DoCmd.RunCommand acCmdSaveRecord

If Me!txtToegevoegd = True Then
MsgBox "Deze afspraak is al toegevoegd"
Exit Sub

Else
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem

Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = Me!txtDatum & " " & Me!cboTijd
.Duration = Me!txtDuur
.Subject = Me!Onderwerp
.Categories = "Groen"
If Not IsNull(Me!txtOmschrijving) Then .Body = Me!txtOmschrijving
If Not IsNull(Me!ApptLocation) Then .Location = _
Me!ApptLocation
If Me!txtHerinnering Then
.ReminderMinutesBeforeStart = Me!txtHerinneringTijd
.ReminderSet = True
Else
.ReminderSet = False
End If
.Save
End With
End If

Set outobj = Nothing

Me!txtToegevoegd = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Afspraak is toegevoegd !"
Exit Sub
AddAppt_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

End Sub

Ik ben echt al dagen aan het zoeken naar een oplossing maar ik kom er maar niet aan uit.

Ik hoop dat er iemand een oplossing heeft.

Mvg,
Patrick