Office: (Office 2016) Outlook Einladung für SkypeBesprechung mit Empfängernerstellen

Hallo zusammen,

Ich möchte per Button einen Besprechugstermin in Outlook erstellen,
Das Funktionier insoweit auch schon gut, der Termin wird mit allen passenden Daten erstellt, jedoch sobald ich auf Skypebesprechung klicke, öffnet sich ja auch noch das eingabefenster für Empfänger/Teilnehmer.
In der Zelle E4(auf dem Tabellenblatt Interna) werden mehrere Mailadressen durch ; getrennt aufgelistet.
Ich möchte nun das beim Drücken des Buttons diese "Liste" an Mailadressen dort bereits eingetragen sind.
Ich habe es bereits mit folgendem Zusatz Versucht aber das funktioniert nicht.
.RequiredAttendees = Sheets("Interna").Range("E4").Value
Leider kann ich Die Datei von unserem Firmennetzwerk nicht hochladen, ich bekomme jedes mal einen Fehler wenn ich sie hier hochladen möchte.

Der Code für den Button sieht wie folgt aus:
_________________________________________________
Sub Einladung_Seminar_I()

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")

Set Appointtermin = objOutlook.CreateItem(1)

With Appointtermin
.Subject = Sheets("Seminaranmeldung").Range("F1").Value
.Start = Sheets("Seminaranmeldung").Range("C4").Value
.End = Sheets("Seminaranmeldung").Range("D4").Value
.Location = Sheets("Interna").Range("J1").Value
.Body = Sheets("Seminaranmeldung").Range("B3").Value
.AllDayEvent = False
.ReminderMinutesBeforeStart = 15
.ReminderPlaySound = True
.ReminderSet = True
.Display
' .Save
End With
End Sub
_________________________________________________________________

Ich bedanke mich schon mal bei allen für Verschläge und Lösungsansätze

 

Ich bin mittlerweile doch auf die Lösung gekommen.

ich habe folgende Zeilen im Code ergänzt:

RequiredAttendees = Sheets("Interna").Range("E4").Value
Recipient = Sheets("Interna").Range("E4").Value

und
.RequiredAttendees = RequiredAttendees

Thema kann also als abgeschlossen angesehen werden.

Allen noch einen schönen Tag