AFContact Class

<SerializableAttribute>
Public NotInheritable Class AFContact
	Inherits AFObject
	Implements IAFTransactable, IAFChangedEvent, IAFSecurable, IComparable(Of AFContact)

Dim instance As AFContact

[SerializableAttribute]
public ref class AFContact sealed : public AFObject, 
	IAFTransactable, IAFChangedEvent, IAFSecurable, IComparable<AFContact^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFContact =  
    class
        inherit AFObject
        interface IAFTransactable
        interface IAFChangedEvent
        interface IAFSecurable
        interface IComparable<AFContact>
    end

' This example demonstrates how to use several properties of the AFContact object.
Dim myPISystems As New PISystems
Dim myPISystem As PISystem = myPISystems.DefaultPISystem

' Display the number of AFContacts found
Dim contacts As AFNamedCollection(Of AFContact)
contacts = AFContact.FindContacts(myPISystem, "A*", AFSearchField.Name,
    AFSortField.Name, AFSortOrder.Ascending, 10)
Console.WriteLine("AFContact count = {0}", contacts.Count)

' Display information for the first AFContact

If (contacts.Count > 0) Then
    Dim myContact As AFContact = contacts(0)
    Console.WriteLine("Name of Contact = {0}", myContact.Name)
    Console.WriteLine("Description of Contact = {0}", myContact.Description)
    Console.WriteLine("EMail of Contact = {0}", myContact.EMail)
    Console.WriteLine("HomePhone of Contact = {0}", myContact.HomePhone)
End If

' Add a new AFContact
Dim newContact As AFContact = New AFContact(myPISystem, "NewContact*")
myPISystem.CheckIn()

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.