i started with:
Appointment.new1
Appointment.Subject = aSubject
Appointment.Start = DateParse("10/25/2007") + (TimeParse("13:35") Mod cTicksPerDay)
PimCollection.AddItem(appointment.New1)
now i have the code, stille without results
Appointment.new1
PimCollection.New1("Appointments")
Appointment.New1
Appointment.Subject = aSubject
Appointment.AllDayEvent = true
Appointment.Start = DateParse(aDate)
PimCollection.AddItem(appointment.New1)
|