Click or drag to resize

IAssociateRole Property

the set of security settings that apply to this user. Data and function rights are defined in the role. Roles replaced userlevels from SuperOffice SIX.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SORole Role { get; }

Return Value

Type: SORole
SORole - The role object for this associate
Examples

Get the role name

VB
Dim soDB, myAssoc
Set soDB = CreateObject("SuperOfficeDB.Database")

If soDB.Login ("USERNAME", "PASSWORD") then

    Set myAssoc = sodb.GetAssociate(sodb.UserAssociateId)
    msg = msg & "myAssoc.FullName: " & myAssoc.FullName & vbCrLf
    msg = msg & "myAssoc.Group: " & myAssoc.Group & vbCrLf
    msg = msg & "myAssoc.GroupID: " & myAssoc.GroupID & vbCrLf
    msg = msg & "myAssoc.Identity: " & myAssoc.Identity & vbCrLf
    msg = msg & "myAssoc.IdentName: " & myAssoc.IdentName & vbCrLf
    msg = msg & "myAssoc.IsAsynchEnabled: " & myAssoc.IsAsynchEnabled & vbCrLf
    msg = msg & "myAssoc.IsExtPersonAdmin: " & myAssoc.IsExtPersonAdmin & vbCrLf
    msg = msg & "myAssoc.IsIntellisyncEnabled: " & myAssoc.IsIntellisyncEnabled & vbCrLf
    msg = msg & "myAssoc.IsLoginEnabled: " & myAssoc.IsLoginEnabled & vbCrLf
    msg = msg & "myAssoc.IsNetLoginEnabled: " & myAssoc.IsNetLoginEnabled & vbCrLf
    msg = msg & "myAssoc.IsOutlookLinkEnabled: " & myAssoc.IsOutlookLinkEnabled & vbCrLf
    msg = msg & "myAssoc.IsOutlookSynchronizerEnabled: " & myAssoc.IsOutlookSynchronizerEnabled & vbCrLf
    msg = msg & "myAssoc.IsPrivateAppntEnabled: " & myAssoc.IsPrivateAppntEnabled & vbCrLf
    msg = msg & "myAssoc.IsPublishEnabled: " & myAssoc.IsPublishEnabled & vbCrLf
    msg = msg & "myAssoc.IsReportSDKEnabled: " & myAssoc.IsReportSDKEnabled & vbCrLf
    msg = msg & "myAssoc.IsTravelEnabled: " & myAssoc.IsTravelEnabled & vbCrLf
    msg = msg & "myAssoc.IsWebLoginEnabled: " & myAssoc.IsWebLoginEnabled & vbCrLf
    msg = msg & "myAssoc.IsWinLoginEnabled: " & myAssoc.IsWinLoginEnabled & vbCrLf
    msg = msg & "myAssoc.LoginName: " & myAssoc.LoginName & vbCrLf
    msg = msg & "myAssoc.Person.FullName: " & myAssoc.Person.FullName & vbCrLf
    msg = msg & "myAssoc.PersonId: " & myAssoc.PersonId & vbCrLf
    msg = msg & "myAssoc.Role.Description: " & myAssoc.Role.Description & vbCrLf
    msg = msg & "myAssoc.Type: " & myAssoc.Type & vbCrLf

    MsgBox msg

Else
    MsgBox "Unable to log in"
End If

See Also