Como: Ler dados de um campo personalizado de um Item

Artigo
08/08/2011

Este exemplo lê os dados de um campo personalizado de um item de contato. Este exemplo verifica os contatos em uma pasta chamada Picnic para um valor em um campo de texto personalizado denominado Picnic. O código exibe o nome de todos os contatos que têm o valor Potato Salad.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de aplicativo para Outlook 2007 e Outlook 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Exemplo

Private Sub ThisAddIn_Startup(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles Me.Startup
    Dim result As New System.Text.StringBuilder()
    Dim contactFolder As Outlook.MAPIFolder = Me.Application.GetNamespace _
        ("MAPI").GetDefaultFolder _
        (Outlook.OlDefaultFolders.olFolderContacts). _
        Folders("Picnic")

    Dim picnicMembers As Outlook.Items = _
        contactFolder.Items.Restrict("[Picnic]='Potato Salad'")

    For Each contact As Outlook.ContactItem In picnicMembers
        result.AppendLine(contact.FullName)
    Next

    If result.Length > 0 Then
        MsgBox(result.ToString(), "Potato Salad")
    Else
        MsgBox( _
            "No contacts are assigned potato salad for the picnic.", _
            "Potato Salad")
    End If
End Sub

private void ThisAddIn_Startup(object sender,
    System.EventArgs e)
{
    System.Text.StringBuilder result =
        new System.Text.StringBuilder();

    Outlook.MAPIFolder contactFolder = this.
        Application.GetNamespace("MAPI").
        GetDefaultFolder(Outlook.OlDefaultFolders.
        olFolderContacts).Folders["Picnic"];
    Outlook.Items picnicMembers = contactFolder.Items.
        Restrict("[Picnic]='Potato Salad'");
    foreach (Outlook.ContactItem contact in picnicMembers)
    {
        result.AppendLine(contact.FullName);
    }

    if (result.Length > 0)
    {
        MessageBox.Show(result.ToString(), "Potato Salad");
    }
    else
    {
        MessageBox.Show("No contacts are assigned potato salad"
            + " for the picnic.", "Potato Salad");
    }
}

Programação robusta

A COMException exceção é lançada se a pasta de contato personalizada Picnic não for encontrado na coleção de pastas. Você pode capturar essa exceção e criar a pasta se estiver faltando.

Consulte também

Tarefas

Como: Mover os itens no Outlook

Como: Criar itens de pasta personalizada

Como: Recuperar uma pasta com nome

Outros recursos

Visão geral do modelo de objeto do Outlook

Partilhar via