Pesquisar por uma frase exata em anexos de itens em uma pasta
Este exemplo procura a cadeia de caracteres de pesquisa exata "office" nos anexos de itens na Caixa de Entrada.
Exemplo
Este exemplo de código usa uma sintaxe DAV Searching and Locating (DASL) para especificar uma consulta. Para construir o filtro, o exemplo de código primeiro verifica se a Pesquisa Instantânea está habilitada no repositório padrão para determinar se o ci_phrasematch palavra-chave para uma frase exata corresponde ao "office" em qualquer anexo. O exemplo aplica o filtro ao método GetTable na Caixa de Entrada e obtém os resultados em um objeto Table. O exemplo de código exibe o assunto de cada um dos itens retornados em Table.
O exemplo de código especifica a propriedade Attachments de um item usando a representação de namespace https://schemas.microsoft.com/mapi/proptag/0x0EA5001E. A sintaxe para usar o palavra-chave ci_phrasematch é:
<PropertySchemaName> ci_phrasematch <ComparisonString>
Se usar o Visual Studio para testar este exemplo de código, adicione primeiro uma referência ao componente da biblioteca de objetos do Microsoft Outlook 15.0 e especifique a variável do Outlook quando importar o namespace Microsoft.Office.Interop.Outlook. A instrução Imports ou using não deve vir diretamente antes de funções no exemplo de código, mas deve ser adicionada antes da declaração Class pública. The following lines of code show how to do the import and assignment in Visual Basic and C#.
Imports Outlook = Microsoft.Office.Interop.Outlook
using Outlook = Microsoft.Office.Interop.Outlook;
Private Sub DemoSearchAttachments()
Dim filter As String
Const PR_SEARCH_ATTACHMENTS As String = _
"http://schemas.microsoft.com/mapi/proptag/0x0EA5001E"
If (Application.Session.DefaultStore.IsInstantSearchEnabled) Then
filter = "@SQL=" & Chr(34) _
& PR_SEARCH_ATTACHMENTS & Chr(34) _
& " ci_phrasematch 'office'"
Dim table As Outlook.Table = _
Application.Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderInbox).GetTable( _
filter, Outlook.OlTableContents.olUserItems)
While Not (table.EndOfTable)
Dim row As Outlook.Row = table.GetNextRow()
Debug.WriteLine(row("Subject"))
End While
End If
End Sub
private void DemoSearchAttachments()
{
string filter;
const string PR_SEARCH_ATTACHMENTS =
"http://schemas.microsoft.com/mapi/proptag/0x0EA5001E";
if (Application.Session.DefaultStore.IsInstantSearchEnabled)
{
filter = "@SQL=" + "\""
+ PR_SEARCH_ATTACHMENTS + "\""
+ " ci_phrasematch 'office'";
Outlook.Table table = Application.Session.GetDefaultFolder(
Outlook.OlDefaultFolders.olFolderInbox).GetTable(
filter, Outlook.OlTableContents.olUserItems);
while (!table.EndOfTable)
{
Outlook.Row row = table.GetNextRow();
Debug.WriteLine(row["Subject"]);
}
}
}