Outlook-Terminserie aus VBA-EXCEL
05.09.2023 14:45:06
Wolfgang
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!