![]() | |
ConneXionFindProspectPolicy Method |
Namespace: ConneXion
Dim oConneXionProspectPolicy As New ConneXion.ConneXion Dim oProspectPolicy As New ConneXion.ProspectPolicy Dim oResult As ConneXion.ConneXionResult oProspectPolicy.TAMUserName = "EXEC" oProspectPolicy.TAMPassword = "PSWD" oProspectPolicy.ClientID = "WINDY-2" oProspectPolicy.PolicySlot = "1" oResult = oConneXionProspectPolicy.FindProspectPolicy(oProspectPolicy) If oResult.Success Then MessageBox.Show("Find Prospect Policy is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If