'obj is an Object, App is an Appointment and AppCol is a PimCollection
Sub App_Start
App.New1
App.CreateNew
AppCol.New1("Appointments")
App.Start = Now
App.Duration = 30
App.Subject = "Test"
If CPPC Then
obj.New1(false)
obj.Value = App.Value
obj.SetProperty("Sensitivity","Private") 'Private / Confidential / Normal / Personal
End If
AppCol.AddItem(App.Value)
End Sub
cPPC is true on the device and false on the desktop.
This code will raise an error on the desktop so cPPC is used to distinguish between the two platforms.