IRelationsEOF Property |
Namespace: SuperOffice.COM.SuperOfficeDB
True when the end of the iteration is reached.
False as long as there are more items to fetch.
EOF
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
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