Click or drag to resize

IPersonsGetFirst Method

Return the first person in the list. Return NULL if list is empty.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOPerson GetFirst()

Return Value

Type: SOPerson
SOPerson – the first appointment in the collection
Examples

GetFirst

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

This will return the surname on all person in the collection

VB
Dim objSO
Dim Per
Dim Pers
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    set Pers = objSO.CurrentContact.GetPersons()
    Per = Pers.GetFirst()
    While Not Pers.EOF
        msgbox Per.LastName
        Per = Pers.GetNext()
    wend        
    msgbox "No contact persons.", vbInformation, "SuperCOM"
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also