4
VBScript - Termin in (beliebigem Unter-) Ordner des Outlookkalenders
'n Abend zusammen
Ich stehe irgendwie auf dem Schlauch und hab mir schon die Finger wund gegoogled...
Mit den kleine Schnipsel hier kann ich per VBScript einen Termin im Outlook-Standardkalender anlegen:
Soweit so einfach.
Was ich jedoch nicht hinbekomme ist einen Termin in einem (beliebigen) Kalenderordner eines Postfachs anzulegen. Also beispielsweise in Posteingang\Kalender\Testkalender oder auch Posteingang\Testkalender.
Hat da mal jemand den eintscheidenden Tipp oder Hinweis?
Ich stehe irgendwie auf dem Schlauch und hab mir schon die Finger wund gegoogled...
Mit den kleine Schnipsel hier kann ich per VBScript einen Termin im Outlook-Standardkalender anlegen:
Set objOutlook = CreateObject("Outlook.Application")
Set aptmntOutlook = objOutlook.CreateItem(1)
With aptmntOutlook
.Start = "09.07.2013 20:15"
.Duration = 45
.Subject = "ein Testtermin"
'.AllDayEvent = False
'.Categories = "Kategorie"
.Save
End WithWas ich jedoch nicht hinbekomme ist einen Termin in einem (beliebigen) Kalenderordner eines Postfachs anzulegen. Also beispielsweise in Posteingang\Kalender\Testkalender oder auch Posteingang\Testkalender.
Hat da mal jemand den eintscheidenden Tipp oder Hinweis?
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 211000
Url: https://administrator.de/forum/vbscript-termin-in-beliebigem-unter-ordner-des-outlookkalenders-211000.html
Ausgedruckt am: 21.12.2024 um 17:12 Uhr
4 Kommentare
Neuester Kommentar
Hallo manuel-r,
versuchs mal so z.B. für einen Kalender "Testkalender" unterhalb vom Standardkalender:
Wenn ein Kalender im Root des Stores liegt kannst du auch darauf zugreifen:
Jedes Folder-Objekt hat auch wieder eine Eigenschaft
Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
versuchs mal so z.B. für einen Kalender "Testkalender" unterhalb vom Standardkalender:
Set objOutlook = CreateObject("Outlook.Application")
Set aptmntOutlook = objOutlook.GetNamespace("MAPI").GetDefaultFolder(9).Folders("Testkalender").Items.Add(1)
With aptmntOutlook
.Start = "09.07.2013 20:15"
.Duration = 45
.Subject = "ein Testtermin"
'.AllDayEvent = False
'.Categories = "Kategorie"
.Save
End WithWenn ein Kalender im Root des Stores liegt kannst du auch darauf zugreifen:
Set aptmntOutlook = objOutlook.GetNamespace("MAPI").Folders("NameDeinesStores").Folders("Testkalender").Items.Add(1)
.Folders("Unterordner") mit dem du dann in Unterordner navigieren kannst.Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
1
Ich bin mir nicht sicher, aber ich glaube das hatte ich schon in irgendeiner Form. Zumindest kommt mir die Fehlermeldung bekannt vor 
Ich korrigiere geringfügig:
Du hast den Code nachträglich geändert. So wie er jetzt ist funktioniert es für einen Unterordner von Kalender. Das andere teste ich noch.
Danke
Zeile 2, Zeichen 1
Der Vorgang kann nicht erfolgreich abgeschlossen werden. Mindestens ein Parameterwert ist nicht gültig.
Der Vorgang kann nicht erfolgreich abgeschlossen werden. Mindestens ein Parameterwert ist nicht gültig.
Ich korrigiere geringfügig:
Du hast den Code nachträglich geändert. So wie er jetzt ist funktioniert es für einen Unterordner von Kalender. Das andere teste ich noch.
Danke
hatte eine Konstante noch nicht für VBS in eine Zahl umgewandelt(olFolderCalendar) diese entspricht der 9
ist bereits oben korrigiert.
ist bereits oben korrigiert.
Ich korrigiere geringfügig:
Du hast den Code nachträglich geändert. So wie er jetzt ist funktioniert es für einen Unterordner von Kalender. Das andere teste ich noch.
Danke
Du hast den Code nachträglich geändert. So wie er jetzt ist funktioniert es für einen Unterordner von Kalender. Das andere teste ich noch.
Danke
