Outlook! Поиск в папке Контакты

[tofik]

Как в оутлуке найти item в ContactItem!
В хелпе нашел что есть такой метод Find:

Код: Выделить всё

...
Set objContact = objContacts.Items.Find("[FileAs] = ""Smith, Jeff"" and [FirstName] = ""Jeff""")
...

В скобках фильтр, но как его праильно описать?
Подскажите плизззз!

[XPraptor]

А там же в хэлпе слабо развернуть список фильтра?


Body
Categories

Children

Class

Companies

CompanyLastFirstNoSpace

CompanyLastFirstSpaceOnly

ContactNames

Contacts

ConversationIndex

DLName

Email1EntryID

Email2EntryID

Email3EntryID

EntryID

HTMLBody

IsOnlineMeeting

LastFirstAndSuffix

LastFirstNoSpace

AutoResolvedWinner

BodyFormat

InternetCodePage

Permission
LastFirstNoSpaceCompany
LastFirstSpaceOnly

LastFirstSpaceOnlyCompany

LastFirstNoSpaceAndSuffix

MemberCount

NetMeetingAlias

NetMeetingAutoStart

NetMeetingOrganizerAlias

NetMeetingServer

NetMeetingType

RecurrenceState

ReplyRecipients

ReceivedByEntryID

RecevedOnBehalfOfEntryID

ResponseState

Saved

Sent

Submitted

VotingOptions

DownloadState

IsConflict

MeetingWorkspaceURL

[tofik]

допустим мне нужна запись с LastName="zzz" и FirstName="qqq"
как мне задать такой фильтр?

[XPraptor]

sFilter = "[LastName] = 'zzz' And [FirstName] = 'qqq'"

[tofik]

ну хорошо,
а если мне сравнение нужно делать с переменной?
а не просто c "zzz"

[tofik]

eсли считать что zzz переменная то:
"[LastName] = zzz "
не катит

[XPraptor]

Ну какой же ты.... Почитай про синтаксис языка VB, в любом хэлпе. У тебя готовый пример, из него ясно что должно быть в кавычках, неужели так трудно вписать переменную в кавычки?
[LastName]=" & Chr(34) & strZzz & Chr(34) & " AND ..."