Carsten Wawer wrote: > Hallo, > > ich bin gerade auf der suche nach einem Beispielskript zum Anlegen > eines Termins innerhalb von Exchange per CDO. Au�erdem m�sste ich > danach noch die Rechte des Termins ver�ndern k�nnen. > > Kennt jemand so etwas? Googeln brachte keine funktionsf�higen > Ans�tze...
Termine sind eine Leistung von Outlook, nicht des Exchange Servers. F�r den Exchange Server sind dies einfach weitere Objekte, die er speichern kann. Erst Outlook erzeugt daraus die entsprechenden Ansichten, Benachrichtigungen etc. Siehe: http://www.msexchangefaq.de/Konzepte/termine.htm Ansonsten: Im Grund legst Du nur ein Object in Exchange ab. Eintrag in den Kalender ' Reference auf Microsoft ActiveX Data Objects 2.5 Library ' Reference auf Microsoft CDO for Exchange 2000 Library ' Reference auf Active DS Type Library Function CreateAppointment(ByVal StartTime As Date, _ ByVal EndTime As Date, _ ByVal Subject As String, _ ByVal Location As String, _ ByVal TextBody As String, _ ByVal iMbx As CDO.IMailbox) As CDO.Appointment Try ' Variables. Dim iAppt As New CDO.Appointment() Dim Conn As New ADODB.Connection() Conn.Provider = "ExOLEDB.DataSource" With iAppt ' Set the appointment properties. .StartTime = StartTime .EndTime = EndTime .Subject = Subject .Location = Location .TextBody = TextBody 'Save the appointment. Console.WriteLine(iMbx.BaseFolder) Conn.Open(iMbx.BaseFolder) .DataSource.SaveToContainer(iMbx.Calendar, Conn) End With Console.WriteLine("Termin angelegt.") CreateAppointment = iAppt Catch err As Exception Console.WriteLine(err.ToString()) CreateAppointment = Nothing End Try End Function gruss Frank _______________________________________________ Coffeehouse Mailingliste, Postings senden an: [EMAIL PROTECTED] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse
