Formule1man
Nieuwe gebruiker
- Lid geworden
- 16 jul 2009
- Berichten
- 1
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).
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
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).
Code:
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