Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Termin in Nichtstandardkalender in OL eintragen

Termin in Nichtstandardkalender in OL eintragen
Thomas
Hallo,
ich habe zwei Kalender in Outlook, in den "Nichtstandardkalender" möchte ich einen Termin eintragen.
In den Standardkalender habe ich das folgendermaßen getan:
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(olAppointmentItem)
With apptOutApp
....hier entsprechend eintragen
Das klappt auch.
Wie muss ich das anpassen, um in einen anderen Kalender zu schreiben?
Hier im Forum wurde mir geholfen, um den anderen Kalender auszuwählen.
Z.B. so (siehe Thread vom 17.7.):
Set objApp = GetObject("", "Outlook.Application")
Set objNs = objApp.GetNamespace("MAPI")
Set objFold = objNs.GetDefaultFolder(9).Parent.Folders("Geschäftlich")
Wie bringe ich das nun noch glücklich zusammen?
VG Tom

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Termin in Nichtstandardkalender in OL eintragen
22.07.2010 14:33:29
Thomas
Hallo,
ich bin es selbst noch einmal, ich habe die Lösung gefunden, man muss dazu "Items.Add" verwenden.
Das sieht dann z.B. wie folgt aus:
Set objApp = GetObject("", "Outlook.Application")
Set objNs = objApp.GetNamespace("MAPI")
Set objFold = objNs.GetDefaultFolder(9).Parent.Folders("Geschäftlich")
Set myItem = objFold.Items.Add
myItem.Start = "20.08.2010 08:00"
myItem.End = "20.08.2010 20:00"
myItem.Subject = "Betreff"
myItem.Body = "Text"
myItem.Save
VG Tom
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige