ConneXionInsertProspect Method

public ConneXionResult InsertProspect(
	ref Prospect Prospect
)

Public Function InsertProspect ( 
	ByRef Prospect As Prospect
) As ConneXionResult

Dim oProspect As New ConneXion.Prospect
Dim oConneXion As New ConneXion.ConneXion
Dim oResult As ConneXion.ConneXionResult

oProspect.LicenseKey = "1234567  1"
oProspect.Name = "Michael Brown"
oProspect.Attention = ""
oProspect.Street = "4134 - 211th Street"
oProspect.City = "Matteson"
oProspect.State = "IL"
oProspect.ZipCode = "60443"
oProspect.Heading = "Mike"
oProspect.Occupation = "BANKER"
oProspect.Note = "home after 6:00pm"
oProspect.PhoneResidential = "708-748-2932"
oProspect.PhoneBusiness = ""
oProspect.PhoneFax = ""
oProspect.Email = "mike@brown.us"
oProspect.Agency = "1"
oProspect.Branch = "1"
oProspect.CSR = "KY"
oProspect.Producer = "GGO"
oProspect.Classification = "PL"
oProspect.Broker = "DAYROB1"
oProspect.DateEntered = "20030502"
oProspect.LastContactDate = "20030525"
oProspect.MarketingPlan = "CRS"
oProspect.NumCalls = "2"
oProspect.Skip = "False"
oProspect.UserField1 = "CC"
oProspect.UserField2 = "PR"
oProspect.UserField3 = ""

oProspect.TAMUserName = "EXEC"
oProspect.TAMPassword = "PSWD"
oProspect.TAMCentralAgency = "DEMOAG1"

oResult = oConneXion.InsertProspect(oProspect)

If oResult.Success Then
    MessageBox.Show("InsertProspect was Successful")
    txtID.Text = oProspect.ProspectID
    txtResult.Text = oResult.Description
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " &
        oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If