ConneXionInsertNote Method

public ConneXionResult InsertNote(
	ref Note Note
)

Public Function InsertNote ( 
	ByRef Note As Note
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oNote As New ConneXion.Note
Dim oResult As ConneXion.ConneXionResult

oNote.TAMUserName = "EXEC"
oNote.TAMPassword = "PSWD"
oNote.EntityID = "BOOKR-1"
oNote.EntityType = "C"
oNote.Regarding = "Dependants"
oNote.NoteDescription = "Daughter will be eligible driving age in January"
oNote.RevisedDate = "20191106"

oResult = oConneXion.InsertNote(oNote)

If oResult.Success Then
    MessageBox.Show("Insert Note is Successful")
    txtResult.Text = "Record Number: " & oNote.RecordNumber
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " &
    oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If