IStatusMonitorsCount Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Count
Dim objDB Dim msg Set objDB = CreateObject("superofficedb.database") If Not (objDB is Nothing) Then objDB.login "<userid>", "<password>" ' log in to the database Set myStatusMonitors = objDB.Admin.GetAllStatusMonitors(5, False) 'Get all statusmonitors for contacts. If Not myStatusMonitors.Empty Then For Each item In myStatusMonitors msg = msg & item.Name & vbCrLf Next MsgBox "There are " & myStatusMonitors.Count & " active statusmonitor for contact. They are named:" & vbCrLf & msg, vbInformation, "SuperCOM" Else MsgBox ("There are no statusmonitors for contact table.") End If Else MsgBox "unable to connect to database" End If Set objso = Nothing