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