Click or drag to resize

IRelationsGetFirst Method

Return first item

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

Return Value

Type: SORelation
SORelation – the first project 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.

VB
Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    set Relations = objSO.CurrentContact.GetRelations
    Set Relation= Relations.GetFirst()
    While Not Relations.EOF
        msgbox Relation.ActiveText
        set Relation = Relations.GetNext()
    wend          
    msgbox "No more relations defined on the current contact", vbInformation, "SuperCOM"
else
    MsgBox "Unable to connect to database"
end if

See Also