Click or drag to resize

IFindContactsWithNumActivitiesCreatedPeriod Method

Returns list of contacts with matching appointment/document counters. Search by total number of appointments/documents.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOContacts ContactsWithNumActivitiesCreatedPeriod(
	EnAppointType Type,
	IListTextItem intent,
	EnDirection direction,
	EnFindOperator op,
	int Value
)

Parameters

Type
Type: SuperOffice.COM.SuperOfficeDBEnAppointType
intent
Type: SuperOffice.COM.SuperOfficeDBIListTextItem
The intention of the activities, NULL equals all intentions
direction
Type: SuperOffice.COM.SuperOfficeDBEnDirection
op
Type: SuperOffice.COM.SuperOfficeDBEnFindOperator
Value
Type: SystemInt32
Number of activities in total to compare with the operator

Return Value

Type: SOContacts
SOContacs - a collection of contacts matching the query
Examples

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

VB
Dim objSO
Dim myConts
Dim myCont
enAppointAllCounters = 10
enDirectionAllCounters = 3
enFindOpLessThanOrEqual = 4

Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
    objSO.login "USERID", "PASSWORD"
    Set myConts = objSO.Find.ContactsWithNumActivitiesCreatedPeriod(enAppointAllCounters, Nothing, enDirectionAllCounters, enFindOpLessThanOrEqual, 1)
    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
Else
    MsgBox "Could not log in"
End If

Set objSO = Nothing

See Also