Public Sub AddSolicitor()
Dim oSol As CAssignedSolicitor2
Set oSol = New CAssignedSolicitor2
'Matches the system record ID of the constituent
.Fields(ASSIGNEDSOLICITOR2_fld_CONSTIT_ID) = 280
'Matches the system record ID of the solicitor
.Fields(ASSIGNEDSOLICITOR2_fld_SOLICITOR_ID) = 751
'Matches the campaign/appeal Description
.Fields(ASSIGNEDSOLICITOR2_fld_CAMPAIGN) = "Annual Campaign"
.Fields(ASSIGNEDSOLICITOR2_fld_APPEAL) = "2001 Annual Phonathon"
.Fields(ASSIGNEDSOLICITOR2_fld_AMOUNT) = 500
Set oSol = Nothing
Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.