Private Sub FindEmail()
Dim oRecords As CRecords
Dim oRecord As CRecord
Dim oPhones As CConstitAddressPhones
Dim oPhone As CConstitAddressPhone
Set oRecords = New CRecords
oRecords.Init REApplication.SessionContext
For Each oRecord In oRecords
Set oPhones = oRecord.PreferredAddress.Phones
For Each oPhone In oPhones
If oPhone.Fields(CONSTIT_ADDRESS_PHONES_fld_NUM) = "" Then
Debug.Print oRecord.Fields(RECORDS_fld_FIRST_NAME)
Debug.Print oRecord.Fields(RECORDS_fld_LAST_NAME)
Else: End If
Next oPhone
Next oRecord
Set oRecords = 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.