Outlook Termin Serie x-ter Arbeitstag

Danke 4mB3r197.

Umständlich, aber wenigstens ein Weg. Inzwischen habe ich mich durch VBA gekämpft und es ist folgender Code entstanden:
(Er erzeugt an den entsprechenden Terminen Einzeltermine. Eine Lösung wie ich das nun als Serientermin bastel steht prizipiell auch schon, mangels Zeit noch nicht umgesetzt. Hierzu verschiebt man die Termine einer Serie nachträglich.)

Option Explicit

' Variablen die evtl. in Sub angepasst werden müssen:
Dim sSubject As String
Dim sLocation As String
Dim iDuration As Integer
Dim iXth As Integer
Dim iAmount As Integer

Sub te_Arbeitstag()
xteWorkd_singledates
End Sub

' berechne x-ten Arbeitstag beginnend beim jetztigen Monat für iAmount Monate
Private Sub xteWorkd_singledates()
Dim oDate As Date
Dim oDateTmp As Date
Dim iMonth As Integer
Dim iDay As Integer
Dim iYear As Integer

' Initialisierung - 1. des derzeitigen Monats
iDay = 1
iMonth = Month(Now)
iYear = Year(Now)
oDate = CDate("1." & iMonth & "." & iYear)

' nachfolgende Variablen anpassen:
sSubject = "Auswertung Emails"
sLocation = "Mein Büro"
iDuration = 90
iXth = 6
iAmount = 2 ' 12 ' Anzahl der Monate für die ein Termin erstellt wird

' Variablen-Ini
Dim i As Integer
Dim myItem As AppointmentItem
Dim myOlApp As Outlook.Application
Dim objRecPatt As RecurrencePattern

Set myOlApp = GetObject(, "Outlook.Application")

For i = 0 To iAmount - 1
Set myItem = myOlApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = sSubject
myItem.Location = sLocation

oDateTmp = DateAdd("m", i, oDate) ' 1. des jeweiligen Monats
getXthWorkingDay oDateTmp, iXth

myItem.Start = CStr(oDateTmp) & " 10:30:00 AM"
myItem.Duration = iDuration
myItem.Send
Next i

End Sub

Private Sub getXthWorkingDay(oDate, iX)
Dim a
Dim oDateTmp
Dim oDayOfWeek

For a = 1 To iX
oDateTmp = oDate
oDayOfWeek = Format(oDateTmp, "dddd")
'MsgBox (oDayOfWeek & " " & oDateTmp)
If a = 1 Then
Select Case oDayOfWeek
Case "Samstag"
oDateTmp = oDateTmp + 2 'Springt auf den Montag
Case "Sonntag"
oDateTmp = oDateTmp + 1 'Springt auf den Montag
Case Else
' oDateTmp = oDateTmp ' Bleibt
End Select
Else
Select Case oDayOfWeek
Case "Freitag"
oDateTmp = oDateTmp + 3 'Springt auf den Montag
Case "Samstag"
oDateTmp = oDateTmp + 2 'Springt auf den Montag
Case Else
oDateTmp = oDateTmp + 1 'Springt auf Mo, Do, Mi, Do oder Freitag
End Select
End If
oDate = oDateTmp
'Wochentagist2 = Format(Datumist2, "dddd")
'MsgBox (Wochentagist1 & " " & Datumist1 & Chr(13) & Wochentagist2 & " " & Datumist2)
Next a
End Sub

' Wird für die Aufgabe nicht benötigt. Generiert das Datum für den 6. Tag des Monats
Private Sub create6thDayDate()
Dim myItem
Dim myOlApp As Outlook.Application
Dim objRecPatt As RecurrencePattern

Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #9/24/2009 1:30:00 PM#
myItem.Duration = 90

' objAppt can be solitary, an originator, or a recurrence
Set objRecPatt = myItem.GetRecurrencePattern
With objRecPatt
' set recurrence pattern properties as desired
.RecurrenceType = 2 ' CdoRecurTypeMonthlyNth
.PatternStartDate = Now
.PatternEndDate = DateAdd("m", 1, .PatternStartDate)
.DayOfMonth = 6
End With
Set myItem = objRecPatt.Parent
With myItem
.Subject = "New subject for entire recurring series"
End With
myItem.Send
End Sub