Click or drag to resize

ISelectionPrivateToGroup Property

Which user-group is the selection visible for. 0 = not visible to any particular group, or ID of group The confidentiality of appointments is shown as different types of “private” on the appointment. For an updated list of “private” types, see the database manual

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
IListTextItem PrivateToGroup { get; set; }

Property Value

Type: IListTextItem
EPrivacyLevel – 0=public,1=private,2=group
Examples

Private

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    Select case objSO.CurrentAppointment.Private
    Case 0
        MsgBox "Current Selection can be seen by anyone.", vbInformation + vbOKOnly, "SuperCOM"
    Case 1
        MsgBox "Current Selection can be seen by the owner", vbInformation + vbOKOnly, "SuperCOM"
    Case 2
        MsgBox " Selection can be seen by members in owning associates group/dept", vbInformation + vbOKOnly, "SuperCOM"
    Case else
        MsgBox "This type must be new, I have no information regarding this type of privacy on appointments.", vbInformation + vbOKOnly, "SuperCOM"
    end select
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

Private to group

VB
Dim objDB
Dim msg

Set objDB = CreateObject("superofficedb.database")
If Not (objDB is Nothing) Then
    objDB.login "<userid>", "<password>" ' log in to the database

    Set mySelection = objDB.GetSelection(6) 'get selection with selection_id=6
    msg = msg & "Selection type: " & mySelection.Type & vbCrLf
    msg = msg & "Number of selection criterions: " & mySelection.Criteria.Count & vbCrLf
    msg = msg & "Group: " & mySelection.Group.Id & vbCrLf
    msg = msg & "Include first person: " & mySelection.IncludeFirstPerson & vbCrLf
    msg = msg & "Private to group: " & mySelection.PrivateToGroup.Text & vbCrLf

    MsgBox msg, vbInformation, "SuperCOM"

Else
    MsgBox "unable to connect to database"
End If
Set objso = Nothing

See Also