Hallo liebe VBA-Gemeinde,

ich möchte per VBA Kalendereinträge in Outlook erstellen, jedoch nicht in den Standardkalender, sondern in einen untergeordneten Kalender. Das Makro für den STandardkalender sieht so aus:

Set objNewApp = Application.CreateItem(olAppointmentItem)        
   
        With objNewApp
            .subject = "Geb: " & strName
            .Start = objContact.Birthday
            .AllDayEvent = True
            .ReminderSet = False
           
            Set objRecPatt = .GetRecurrencePattern()
           
            With objRecPatt
                .RecurrenceType = olRecursYearly
                .PatternStartDate = objContact.Birthday
               
            End With
           
            .Links.Add objContact
            .Save
        End With

Wie stelle ich es an, dass der Eintrag in einen Unterkalender hinzugefügt wird? Kann mir jemand helfen?

Viele Grüße

HEinz