IFindContactsWithActiveStatusMonitor Method |
Returns list of contacts with matching status monitors. Search by status monitor name or the status monitor id.
Namespace:
SuperOffice.COM.SuperOfficeDB
Assembly:
SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
SyntaxSOContacts ContactsWithActiveStatusMonitor(
Object valueNameOrId
)
Function ContactsWithActiveStatusMonitor (
valueNameOrId As Object
) As SOContacts
Dim instance As IFind
Dim valueNameOrId As Object
Dim returnValue As SOContacts
returnValue = instance.ContactsWithActiveStatusMonitor(valueNameOrId)
SOContacts^ ContactsWithActiveStatusMonitor(
[InAttribute] Object^ valueNameOrId
)
Parameters
- valueNameOrId
- Type: SystemObject
The name or the Id of the Status Monitor
Return Value
Type:
SOContactsSOContacs - a collection of contacts matching the query
ExamplesDim objSO
Dim myConts
Dim myCont
Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
objSO.login "<USERID>", "<PASSWORD>"
Set myConts = objSO.Find.ContactsWithActiveStatusMonitor(2)
Set myCont = myConts.GetFirst
While Not myConts.EOF
msg = msg & myCont.Name & vbCrLf
Set myCont = myConts.GetNext
Wend
if msg <> "" then
MsgBox msg, vbInformation & vbOKOnly, "Contacts matching search"
Else
MsgBox "No match"
End If
End If
Set objSO = Nothing
See Also