如何：在 Outlook 中复制项

  • 项目

更新：2007 年 11 月

适用对象

本主题中的信息仅适用于指定的 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 中移动项

如何：创建自定义文件夹项

如何：按名称检索文件夹

概念

使用文件夹