ConneXionUpdateProspectPolicy Method

public ConneXionResult UpdateProspectPolicy(
	ProspectPolicy ProspectPolicy
)

Public Function UpdateProspectPolicy ( 
	ProspectPolicy As ProspectPolicy
) As ConneXionResult

Dim oConneXion 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 = "3"
oResult = oConneXion.FindProspectPolicy(oProspectPolicy)

If oResult.Success Then

    oProspectPolicy.TAMUserName = "EXEC"
    oProspectPolicy.TAMPassword = "PSWD"
    oProspectPolicy.PolicyType = "HOME"
    oResult = oConneXion.UpdateProspectPolicy(oProspectPolicy)

    If oResult.Success Then
        MessageBox.Show("Update Prospect policy is Successful")
    Else
        txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf &
            "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
    End If

Else
    MessageBox.Show("Find Prospect policy is false")
End If