| Platform SDK: Exchange Server |
The AccessActual property overrides the current access control list (ACL) level to mark the item private.
All Item objects
Long
Read/write
The AccessActual property has the following values.
| Value | Description |
|---|---|
| 0 | No access |
| 1 | Minimal read |
| 2 | Read |
| 3 | Create |
| 4 | Write |
| 5 | Owner |
Only the owner can write to the AccessActual property, which specifies the minimum ACL level needed by another user to see normal properties of an object. For example, the following sample code shows how you can mark individual appointments as private by setting this property to the value sacOwner.
Sub MakeTaskPrivate()
Dim objApp As Object
Dim objSchedule As Object
Dim objTable As Object
Dim objTask As Object
Set objApp = CreateObject("SchedulePlus.Application")
objApp.Logon
Set objSchedule = objApp.ScheduleLogged
Set objTable = objSchedule.SingleTasks
Set objTask = objTable.Item
Debug.Print objTask.Text
' Make task private by setting the AccessActual property to saclOwner
' To make the task public, set AccessActual to saclNone
'
' Also works for any object that you can make private through the Schedule+ UI,
' i.e. appointments, events, projects, contacts
'
objTask.AccessActual = saclOwner
Set objTask = Nothing
Set objTable = Nothing
Set objSchedule = Nothing
objApp.Logoff
Set objApp = Nothing
End Sub