Siebel Object Interfaces Reference > Customizing Siebel Object Interfaces > Accessing a Siebel Object Interface >
Accessing the Mobile Web Client Automation Server
This topic describes how to access the Mobile Web Client Automation Server. For more information, see Mobile Web Client Automation Server. To access the Mobile Web Client Automation Server
- Install the Siebel Mobile Web Client.
Siebel CRM installs the Mobile Web Client Automation Server by default when you install the Siebel Mobile Web Client.
- Start Microsoft Visual Basic.
- Choose Standard EXE.
- Choose the Project menu, and then the References menu item.
- In the list box, choose Mobile Web Client Automation Server.
- Add the required code.
For more information, see Example of Accessing the Mobile Web Client Automation Server.
Example of Accessing the Mobile Web Client Automation Server
The following example includes the code you use in Microsoft Visual Basic 6.0 to access the Mobile Web Client Automation Server: Private Sub Command1_Click() 'Siebel Application Object Dim siebApp As SiebelWebApplication Dim siebBusObj As SiebelBusObject Dim siebBusComp As SiebelBusComp Dim siebSvcs As SiebelService Dim siebPropSet As SiebelPropertySet Dim bool As Boolean Dim errCode As Integer Dim errText As String Dim connStr As String Dim lng As String 'Create The Siebel WebApplication Object Set siebWebApp = CreateObject("TWSiebel.SiebelWebApplication.1")
If Not siebWebApp Is Nothing Then
'Create A Business Object Set siebBusObj = siebWebApp.GetBusObject("Contact") If Not siebBusObj Is Nothing Then 'Create a Business Component Set siebBusComp = siebBusObj.GetBusComp("Contact")
Else errCode = siebWebApp.GetLastErrCode errText = siebWebApp.GetLastErrText siebWebApp.RaiseErrorText "Business Object Creation failed." & errCode & "::" & errText;
End If
'Create A New Property Set Set siebPropSet = siebWebApp.NewPropertySet If Not siebPropSet Is Nothing Then Set siebPropSet = Nothing
Else
errCode = siebWebApp.GetLastErrCode errText = siebWebApp.GetLastErrText siebWebApp.RaiseErrorText "Property Set Creation failed." & errCode & "::" & errText; End If
'Get A Siebel Service Set siebSvcs = siebWebApp.GetService("Workflow Process Manager") If Not siebSvcs Is Nothing Then Set siebSvcs = Nothing Else errCode = siebWebApp.GetLastErrCode errText = siebWebApp.GetLastErrText siebWebApp.RaiseErrorText "Could not Get Siebel Service." & errCode & "::" & errText; End If
If Not siebBusComp Is Nothing Then Set siebBusComp = Nothing End If
If Not siebBusObj Is Nothing Then Set siebBusObj = Nothing End If
Set siebWebApp = Nothing End If
End Sub
|