ITravelInterfaceIsTravelling Property |
Namespace: SuperOffice.COM.SuperOfficeDB
IsTravelling
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This returns the userID for the on logged user, and the status.
Dim objSO Dim objTI Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then result = objSO.Database.travelInterface.IsTravelling if result = false then MsgBox "This user is not travelling: " & objSO.Database.UserName, vbInformation + vbOKOnly, "SuperCOM" else Msgbox "This user is travelling: " & objSO.Database.UserName, vbInformation + vbOKOnly, "SuperCOM" end if Else MsgBox "Could not log in" End If Set objSO = Nothing