Практическое руководство. Удаление контактов Outlook

Обновлен: Ноябрь 2007

Применение
Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям Microsoft Office. Тип проекта Проекты уровня приложения Версия Microsoft Office Outlook 2003 Outlook 2007 Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

В данном примере выполняется удаление контакта. В этом примере предполагается, что в папке Контакты существует контакт с именем "Armando Pinto".

Пример

Private Sub ThisAddIn_Startup(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Startup
    DeleteContact("Pinto", "Armando")
End Sub

Private Sub DeleteContact(ByVal lastName As String, _
ByVal firstName As String)
    Dim contact As Outlook.ContactItem = _
        TryCast(Me.Application.GetNamespace("MAPI").GetDefaultFolder( _
        Outlook.OlDefaultFolders.olFolderContacts).Items. _
        Find( _
        String.Format("[LastName]='{0}' AND [FirstName]='{1}'", _
        lastName, firstName)),  _
        Outlook.ContactItem)

    If (contact IsNot Nothing) Then
        contact.Delete()
    End If
End Sub

private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    DeleteContact("Pinto", "Armando");
}

private void DeleteContact(string lastName, string firstName)
{
    Outlook.ContactItem contact =
        this.Application.GetNamespace("MAPI").
    GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts).
    Items.
    Find(
    string.Format("[LastName]='{0}' AND [FirstName]='{1}'",
    lastName, firstName))
    as Outlook.ContactItem;

    if (contact != null)
    {
        contact.Delete();
    }
}

См. также

Задачи

Практическое руководство. Поиск определенного контакта

Практическое руководство. Доступ к контактам Outlook

Основные понятия

Работа с элементами контактов