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

1. 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.

2. Start Microsoft Visual Basic.
3. Choose Standard EXE.
4. Choose the Project menu, and then the References menu item.
5. In the list box, choose Mobile Web Client Automation Server.
6. 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