Termine verschicken

[Daniel92]

Hallo zusammen,
ich bin ein gutes Stück weiter gekommen mit meinen Schulungstool. Nun komme ich nicht mehr weiter, hoffentlich könnt ihr mir helfen.
Ich habe ein Formular erstellt, indem ich Mitarbeiter mit deren Mail Adresse und Abteilung in eine Tabelle eintrage. Jetzt möchte ich einen Schulungsblock nur an gezielte Mitarbeiter bzw. Teilnehmergruppen verschicken. Die Mitarbeiter werden nicht in Outlook sondern in Access gepflegt. Im Anhang findet Ihr Bilder dazu.

Hier mein Code wenn man auf "Blocker versenden" klickt:
Ich weiß, dass das nicht kappt mit .Recipients.Add(Me!TeilnehmergruppenID)....
Das Makro soll die Termine an die Teilnehmer verschicken die sich hinter dem hacken "SFN, SFH, Praktikanten, Chef" verbergen.

Public Function fncOutlook_Termin_Eintragen(dStart1 As Date, dEnd1 As Date, dStart2 As Date, dEnd2 As Date, dStart3 As Date, dEnd3 As Date)

Dim counter1 As Integer
Dim Start(3) As Date
Dim Ende(3) As Date


Start(0) = dStart1
Ende(0) = dEnd1
Start(1) = dStart2
Ende(1) = dEnd2
Start(2) = dStart3
Ende(2) = dEnd3

For counter1 = 0 To 2

Dim outApp As Outlook.Application
    Dim outtest As Outlook.AppointmentItem
'    Dim myRequiredAttendee As Outlook.Recipient
    Set outApp = New Outlook.Application
    Set outtest = outApp.CreateItem(olAppointmentItem)
   
   
    With outtest
   
        .Start = Start(counter1)
        .End = Ende(counter1)
        .Body = "Bitte um Teilnahme am Schulungsblock"
        .AllDayEvent = False
        .ReminderMinutesBeforeStart = 60
        .Subject = Me!SchulungsblockTitel
     
'         Set myRequiredAttendee = .Recipients.Add(Me!TeilnehmergruppenID)
'         myRequiredAttendee.Type = olRequired
        .Save
    End With
   
    Next counter1
End Function


Private Sub btnBlockerVersenden_Click()

fncOutlook_Termin_Eintragen Me!Termin1Beginn, Me!Termin1Ende, Me!Termin2Beginn, Me!Termin2Ende, Me!Termin3Beginn, Me!Termin3Ende

End Sub


Danke schon mal im voraus.

Beste Grüße
Daniel