[Erel]

It is possible using the Door library:

'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