Click or drag to resize

IFindContactsWithLastDoByActivity Method

Returns list of contacts with matching appointment/document counters. Search by date.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOContacts ContactsWithLastDoByActivity(
	EnAppointType Type,
	IListTextItem intent,
	EnDirection direction,
	EnFindOperator op,
	DateTime 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: SystemDateTime
Date to use in comparison with the operator

Return Value

Type: SOContacts
SOContacs - a collection of contacts matching the query
Examples
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.ContactsWithLastDoByActivity(enAppointAllCounters, Nothing, enDirectionAllCounters, enFindOpLessThanOrEqual, #1/1/2007#)
    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