IFindContactsWithLastCompletedActivity 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
SyntaxSOContacts ContactsWithLastCompletedActivity(
EnAppointType Type,
IListTextItem intent,
EnDirection direction,
EnFindOperator op,
DateTime Value
)
Function ContactsWithLastCompletedActivity (
Type As EnAppointType,
intent As IListTextItem,
direction As EnDirection,
op As EnFindOperator,
Value As DateTime
) As SOContacts
Dim instance As IFind
Dim Type As EnAppointType
Dim intent As IListTextItem
Dim direction As EnDirection
Dim op As EnFindOperator
Dim Value As DateTime
Dim returnValue As SOContacts
returnValue = instance.ContactsWithLastCompletedActivity(Type,
intent, direction, op, Value)
SOContacts^ ContactsWithLastCompletedActivity(
[InAttribute] EnAppointType Type,
[InAttribute] IListTextItem^ intent,
[InAttribute] EnDirection direction,
[InAttribute] EnFindOperator op,
[InAttribute] 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:
SOContactsSOContacs - a collection of contacts matching the query
ExamplesDim 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.ContactsWithLastCompletedActivity(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