hallo,
Onderstaande vraag heb ik aanvankelijk in het access forum geplaatst maar heb hierop nog geen reactie mogen ontvangen. Wellicht hoort het misschien beter in dit forum thuis.
Met onderstaande code wordt een afspraak aan outlook toegevoegd vanuit access in de default agenda.
Nu wil ik deze afspraak echter aan een andere agenda ("Agenda2" genaamd) toevoegen.
Ik ben er nu al een paar uur naar aan het googlen maar krijg het niet gevonden.
Ik gebruik access 2002 en outlook 2007.
Wie weet raad?
Onderstaande vraag heb ik aanvankelijk in het access forum geplaatst maar heb hierop nog geen reactie mogen ontvangen. Wellicht hoort het misschien beter in dit forum thuis.
Met onderstaande code wordt een afspraak aan outlook toegevoegd vanuit access in de default agenda.
Code:
Private Sub cmdAgenda_Click()
Dim outObj As Outlook.Application
Dim outAppt As Outlook.AppointmentItem
Set outObj = CreateObject("Outlook.Application")
Set outAppt = outObj.CreateItem(olAppointmentItem)
If Me!AddedToOutlook = True Then
MsgBox "Deze afspraak is al toegevoegd"
Exit Sub
Else
With outAppt
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
.Categories = "SF"
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
.ReminderSet = False
.Save
End With
End If
Set outObj = Nothing
Me!AddedToOutlook = True
MsgBox "Afspraak is toegevoegd !"
Exit SubNu wil ik deze afspraak echter aan een andere agenda ("Agenda2" genaamd) toevoegen.
Ik ben er nu al een paar uur naar aan het googlen maar krijg het niet gevonden.
Ik gebruik access 2002 en outlook 2007.
Wie weet raad?
