Outlook-Terminerstellung mit Schleife
06.09.2022 12:08:29
Christian
ich würde gerne ein Makro erstellen, das mir für mehrere Daten automatisch Reminder in Outlook Kalender enlegt. Das anlegen funktioniert für einen Datum auch soweit.
Allerdings scheint mit der Schleife irgendetwas nicht zu stimmen :/ Wenn ich in Spalte 7 mehr als ein Datum in den Zeilen einfüge legt er leider nur einen Termin an oder gar keinen. Kann jemand mit etwas Expertise hier mal schauen/ helfen. Ich danke euch im Voraus!
Sub Terminerstelleung()
Dim obj_Outlook, obj_Calender, obj_Appointment, obj_Window As Object
Dim S As Long
S = 1
Set obj_Outlook = CreateObject("Outlook.Application")
Set obj_Calender = obj_Outlook.Session.GetDefaultFolder(9)
Set obj_Appointment = obj_Calender.Items.Add(1)
Set obj_Window = obj_Outlook.ActiveWindow
Do Until Tabelle1.Cells(S, 6).Value = ""
With obj_Appointment
.Start = Tabelle1.Cells(S, 6).Value & " 09:00"
.Subject = "Betreff"
.Body = "Textkörper"
.Location = "Ort"
.Save
End With
S = S + 1
Loop
Set obj_Window = Nothing
Set obj_Outlook = Nothing
Set obj_Calender = Nothing
Set obj_Appointment = Nothing