Public Sub PhoneLoop()
Dim oPhone As IBBPhone
Dim oConstituent As CRecord
Dim oAddress As CConstitAddress
Dim oConstituents As CRecords
Set oConstituents = New CRecords
oConstituents.Init REApplication.SessionContext
For Each oConstituent In oConstituents
For Each oAddress In oConstituent.Addresses
For Each oPhone In oAddress.Phones
Debug.Print oPhone.Fields(Phone_fld_Num)
Next oPhone
Next oAddress
oConstituent.CloseDown
Next oConstituent
oConstituents.CloseDown
Set oConstituents = 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. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.