![]() | |
ConneXionFindActivitiesForCustomer Method |
Namespace: ConneXion
public ConneXionResult FindActivitiesForCustomer( Activity Activity, ref Activity[] Activities )
Dim oConneXionActivity As New ConneXion.ConneXion Dim oActivity As New ConneXion.Activity Dim oResult As ConneXion.ConneXionResult Dim oActivities() As ConneXion.Activity oActivity.TAMUserName = "EXEC" oActivity.TAMPassword = "PSWD" oActivity.TAMCentralAgency = "DEMOAG1" oActivity.LicenseKey = "1234567 1" oActivity.ClientKey = "C" oActivity.ClientID = "ABBOJO1" oResult = oConneXionActivity.FindActivitiesForCustomer(oActivity, oActivities) If oResult.Success = True Then MsgBox("FindActivitiesForCustomer was Successful") Else txtResult.Visible = True txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If