Neuen Termin anlegen in eigenem Kalender

11/02/2009 - 14:16 von Martin Bichler | Report spam
Hallo,

wie lege ich einen neuen Termin in einem vorher per PickFolder ausgewàhlten
Kalender (nicht der Standardkalender) an.

So wird er im Standardkalender angelegt:
Set myolapp = CreateObject("Outlook.Application")
Set mynamespace = myolapp.GetNamespace("MAPI")
Set myFolder = mynamespace.PickFolder

Set myApptItem = myolapp.CreateItem(olAppointmentItem)
myApptItem.Start = "06.02.2009 15:00"
myApptItem.End = "06.02.2009 15:01"
myApptItem.Subject = "Dummy-Termin"
myApptItem.Save


Danke
Martin
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
11/02/2009 - 16:40 | Warnen spam
Am Wed, 11 Feb 2009 14:16:03 +0100 schrieb Martin Bichler:



Hallo,

wie lege ich einen neuen Termin in einem vorher per PickFolder ausgewàhlten
Kalender (nicht der Standardkalender) an.

So wird er im Standardkalender angelegt:
Set myolapp = CreateObject("Outlook.Application")
Set mynamespace = myolapp.GetNamespace("MAPI")
Set myFolder = mynamespace.PickFolder

Set myApptItem = myolapp.CreateItem(olAppointmentItem)
myApptItem.Start = "06.02.2009 15:00"
myApptItem.End = "06.02.2009 15:01"
myApptItem.Subject = "Dummy-Termin"
myApptItem.Save


Danke
Martin



Hallo,

das geht über Folder.Items.Add

Viele Gruesse
Michael Bauer - MVP Outlook

: Outlook-Kategorien? Category Manager ist die Lösung
: VBOffice Reporter für Datenanalyse & Berichte
: <http://www.vboffice.net/product.html?pub=6>

Ähnliche fragen