Public Sub AddSolicitor()

   Dim oSol As CAssignedSolicitor2
   Set oSol = New CAssignedSolicitor2
   With oSol
       .Init REApplication.SessionContext
       'Matches the system record ID of the constituent
       .Fields(ASSIGNEDSOLICITOR2_fld_CONSTIT_ID) = 280
       'Matches the system record ID of the solicitor
       'Matches the campaign/appeal Description
       .Fields(ASSIGNEDSOLICITOR2_fld_CAMPAIGN) = "Annual Campaign"
       .Fields(ASSIGNEDSOLICITOR2_fld_APPEAL) = "2001 Annual Phonathon"
       .Fields(ASSIGNEDSOLICITOR2_fld_AMOUNT) = 500
   End With
   Set oSol = Nothing
End Sub

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.