calendarios Outlook

[Anton Solans]

Buenas tardes,

Actualmente ya tengo desarrollado un sistema para añadir y eliminar eventos a Outlook, pero en el supuesto caso que tenga mas de un calendario creado en Outlook, no se como seleccionar el calendario al que añadir o eliminar eventos.

alguien sabe como seleccionarlo?

Para añadir eventos uso este código pero lo añade al primer calendario que encuentra.

alguien sabe como seleccionar el calendario?

muchas gracias.

#define olAppointmentItem 1

LOCAL oNameSpace, oAppt, dEvento
oOutLook=CREATEOBJECT("Outlook.Application")
oNameSpace=oOutlook.GetNameSpace("MAPI")
dEvento=DATE()+30
oAppt=oOutLook.CreateItem(olAppointmentItem)
oAppt.Start=DTOT(dEvento)
oAppt.AllDayEvent=.T.
oAppt.Subject="Evento!"
oAppt.Save()

[Anton Solans]

Buenas tardes,

de momento no he dado con la solucion pero lo que si he encontrado es que Outlook se estructura en carpetas y previamente se debe activar la carpeta correspondiente para actualizar el calendario.

alguien sabe como explorar las carpetas de Outlook con el objetivo de actualizar el calendario correcto?

gracias.