Guten Tag an das Forum!
Ich möchte mit folgendem Code eine Outlook-Terminserie mit täglich wiederkehrenden Terminen kreieren:

With Termin
.Subject = WsKalender.Range("A" & ZeileKalender).Value
.Categories = "WBV"
.Start = WsKalender.Range("B" & ZeileKalender).Value + Tage - 1
.End = WsKalender.Range("C" & ZeileKalender).Value + Tage - 1
.Location = WsKalender.Range("H" & ZeileKalender).Value
.AllDayEvent = False
.BusyStatus = olFree
.Duration = 0
If WsKalender.Range("D" & ZeileKalender) > WsKalender.Range("E" & ZeileKalender) Then
Set Recurrence = .GetRecurrencePattern
With Recurrance
.PatternStartDate = WsKalender.Range("D" & ZeileKalender).Value + Tage - 1
.PatternEndDate = WsKalender.Range("E" & ZeileKalender).Value + Tage - 1
.StartTime = WsKalender.Range("F" & ZeileKalender).Value
.EndTime = WsKalender.Range("G" & ZeileKalender).Value
.
.
.
End With
End If

WO bzw. WIE muss ich die Eigenschften .RecurrenceType, .Duration, .Interval, .DayOfWeekMask, u.s.w. initialisieren dass daraus eineTerminserie mit täglich wiederkehrenden Terminen ensteht? Danke im Voraus für eure Hilfe!