Afspraak naar specifieke agenda in outlook

[Gum2]

hallo,

Met onderstaande code wordt een afspraak aan outlook toegevoegd in de default agenda.

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 Sub

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?

 

[Guus2005]

Weet je zeker dat je een persoon in outlook kan hebben met meerdere agenda's?

 

[Gum2]

Weet je zeker dat je een persoon in outlook kan hebben met meerdere agenda's?

Yep, een prive en zakelijke agenda bijvoorbeeld.

 

[OctaFish]

Heb je het over een Exchange server installatie?

 

[Gum2]

Heb je het over een Exchange server installatie?

Nee, het is gewoon outlook op een single pc.
Hierop heb ik naast de default Agenda nog een extra agenda aangemaakt.