Click or drag to resize

IAssociateIsTravelEnabled Property

can user travel? The access rights for this are set in the Admin. Client. Normal travel is part of CRM 5, and you do not need a separate licence for this

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

Property Value

Type: Boolean

True the users has access to travel

False the user does not have access to travel

Examples

Is travel enabled

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

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