Hallo zusammen,
ich habe immer wiederkehrende Termine, die an unterschiedlichen Tagen auftreten können. Dazu benötige ich die Zumeldung verschiedener Kollegen.
Bisher habe ich einen Reminder per HAnd eingestellt, will dies aber automatisieren.
Leider klappt das nicht, der Kalender-Eintrag wird nur bei mir eingetragen, nicht bei den Kollegen.
In die Felder Teilnehmer (B3) bzw. optionale Teilnehmer (B4) kann ich eintragen was ich will:
vorname.Nachname
vorname.Nachname@mail.de
Nachname (--> Namensfindung Outlook)
Nachname, Vorname (--> Namensfindung Outlook)
Hier mein Code:
Dim i As Integer
Dim vtext As String
Dim oApp As New Outlook.Application
Dim oTermin As Outlook.AppointmentItem
' Schleife auf
listende = Range("j1").End(xlDown).Row
For i = 2 To listende

' Datum übertragen
Range("b5").Value = Range("J" & i).Value

'Termin erstellen
Set oTermin = oApp.CreateItem(olAppointmentItem)
With oTermin
'.Display
.Subject = Range("b2").Value
.RequiredAttendees = Range("b3").Value
.OptionalAttendees = Range("b4").Value
.Start = Range("B14")
.Duration = Range("B8").Value
.Body = Range("b7").Value
.ReminderMinutesBeforeStart = Range("b9").Value
.Send
.Save
End With
'Variablen leeren
Set oApp = Nothing
Set oTermin = Nothing