ITravelInterfaceGoTravel Method |
Namespace: SuperOffice.COM.SuperOfficeDB
GoTravel
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Dim objTI Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then Set objTI = objSO.Database.TravelInterface If objTI.GoTravel Then MsgBox "Local update performed." Else MsgBox "The on logged user might not have the correct permissions. Check log file for error message." End If Else MsgBox "Could not log in" End If Set objSO = Nothing