Pentru a căuta elemente, utilizați metoda AdvancedSearch a obiectului Application. Sintaxa este următoarea:

expression.AdvancedSearch(Scope, Filter, SearchSubFolders, Tag)

Aici sunt componentele sintaxei:

• expression este o expresie necesară care returnează un obiect Application.
• Scope este un argument necesar de tip String care specifică scopul căutării (ce elemente să caute). De obicei, veți căuta într-un anumit folder. De exemplu, este posibil să căutați în Inbox pentru mesajele care corespund anumitor criterii, sau este posibil să căutați în folderul Tasks pentru anumite activități.
• Filter este un argument opțional de tip String care specifică filtrul de căutare. Deși acest argument este opțional, va trebui să îl utilizați dacă nu doriți să returnați toate elementele din domeniul de aplicare pe care l-ați specificat.
• SearchSubFolders este un argument opțional de tip Variant pe care îl puteți seta la True pentru a căuta prin orice subfoldere ale folderului specificat cu argumentul Scope, sau la False pentru a căuta numai folderul specificat. Valoarea implicită este False.
• Tag este un argument opțional de tip Variant pe care îl puteți utiliza pentru a specifica un nume pentru căutarea pe care o definiți. Dacă creați un nume, puteți apela din nou căutarea.

Următorul exemplu caută în Inbox (Scope: = "Inbox" ) mesajele care în linia de subiect conțin Office. Dacă se găsesc mesaje, procedura afișează o listă de nume de expeditori, pe care le atribuie variabilei StringstrMessages și apoi le afișează într-o casetă de mesaj.

Rețineți că, în momentul scrierii, se pare că există o eroare de sincronizare în caracteristica de căutare avansată. Dacă apăsați F5 pentru a executa următorul cod, nu se găsesc accesări de căutare. Cu toate acestea, dacă apăsați F8 în mod repetat pentru a trece prin cod, funcționează conform așteptării.

Acest cod ar trebui să funcționeze la viteza normală. Este posibil să găsiți o modalitate de a insera o întârziere efectivă sau de a remedia în alt mod problema. Sau, poate Microsoft va rezolva problema.

Sub Sample_Advanced_Search()

Dim mySearch As Search

Dim myResults As Results 

Dim intCounter As Integer 

Dim strMessages As String 

Dim intTotal As Integer

Dim strFilter As String

strFilter = Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%Office%'"

Set mySearch = AdvancedSearch(Scope:="Inbox", filter:=strFilter)

Set myResults = mySearch.Results 

intTotal = myResults.Count

For intCounter = 1 To intTotal 

   strMessages = strMessages & _

   myResults.Item(intCounter).SenderName & vbCr 

Next intCounter

MsgBox strMessages, vbOKOnly, "Rezultatele cautarii"

End Sub