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

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

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

Этот пример демонстрирует создание копии элемента электронной почты и ее показ пользователю.

Пример

Private Sub ThisAddIn_Startup(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Startup
    Dim mail As Outlook.MailItem = _
        TryCast(Me.Application.GetNamespace("MAPI"). _
        GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox). _
        Items.GetFirst(), Outlook.MailItem)

    If mail IsNot Nothing Then

        ' Create a copy of the item.
        Dim copyMail As Outlook.MailItem = _
            TryCast(mail.Copy(), Outlook.MailItem)

        ' Show the copy to the user.
        copyMail.Display(True)
    End If
End Sub

private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    Outlook.MailItem mail = this.Application.GetNamespace("MAPI").
        GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox).
        Items.GetFirst() as Outlook.MailItem;

    if (mail != null)
    {
        // Create a copy of the item.
        Outlook.MailItem copyMail = mail.Copy() as Outlook.MailItem;

        // Show the copy to the user.
        copyMail.Display(true);
    }
}

См. также

Задачи

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

Практическое руководство. Создание настраиваемых элементов папок

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

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

Работа с папками