![]() | |
ConneXionInsertContact Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oContact As New ConneXion.Contact oContact.TAMUserName = "EXEC" oContact.TAMPassword = "PSWD" oContact.EntityKey = "p" oContact.EntityID = "CJH" oContact.FirstName = "Joe" oContact.LastName = "Schmoe" oContact.LicenseLines1 = oContact.LicenseLines.LINES_CASUALTY + oContact.LicenseLines.LINES_LIFE oResult = oConneXion.InsertContact(oContact) If oResult.Success = False Then txtContacts.Text = "InsertContact is false. " & oResult.Description & oResult.TAMDescription Else txtContacts.Text = "InsertContact is successful. " & oResult.Description & oResult.TAMDescription End If