Startzeit einer Serie per vba ändern?
Hallo,
ich möchte per vba die Startzeit einer Serie ändern, ohne bereits vorhandene Ausnahmen der Serie zu überschreiben.
Mein Code sieht so aus (nur zum Testen, ohne Überprüfung, ob es sich auch um einen Serientermin handelt:
Dim myolApp As Outlook.Application
Set myolApp = CreateObject("Outlook.Application")
Set mynamespace = myolApp.GetNamespace("MAPI")
Set myFolder = mynamespace.GetDefaultFolder(olFolderCalendar)
Set myitems = myFolder.Items
For Each termin In myitems
termin.GetRecurrencePattern.StartTime = #11/16/2008 9:00:00 AM#
termin.Save
Next
Das klappt zwar, allerdings werden alle Ausnahmen überschrieben.
Nächster Versuch:
For Each termin In myitems
termin.start = #11/16/2008 9:00:00 AM#
termin.Save
Next
Fehlermeldung: "Sie sind nicht dazu berechtigt, dieses Element zu
verschieben."
Komischerweise lässt sich aber z.B. der Betreff ändern:
For Each termin In myitems
termin.subject = "neuer Betreff"
termin.Save
Next
Wie geht´s richtig?
Danke
Martin
ich möchte per vba die Startzeit einer Serie ändern, ohne bereits vorhandene Ausnahmen der Serie zu überschreiben.
Mein Code sieht so aus (nur zum Testen, ohne Überprüfung, ob es sich auch um einen Serientermin handelt:
Dim myolApp As Outlook.Application
Set myolApp = CreateObject("Outlook.Application")
Set mynamespace = myolApp.GetNamespace("MAPI")
Set myFolder = mynamespace.GetDefaultFolder(olFolderCalendar)
Set myitems = myFolder.Items
For Each termin In myitems
termin.GetRecurrencePattern.StartTime = #11/16/2008 9:00:00 AM#
termin.Save
Next
Das klappt zwar, allerdings werden alle Ausnahmen überschrieben.
Nächster Versuch:
For Each termin In myitems
termin.start = #11/16/2008 9:00:00 AM#
termin.Save
Next
Fehlermeldung: "Sie sind nicht dazu berechtigt, dieses Element zu
verschieben."
Komischerweise lässt sich aber z.B. der Betreff ändern:
For Each termin In myitems
termin.subject = "neuer Betreff"
termin.Save
Next
Wie geht´s richtig?
Danke
Martin
Please also mark the comments that contributed to the solution of the article
Content-Key: 102032
Url: https://administrator.de/contentid/102032
Printed on: April 26, 2024 at 13:04 o'clock