如何:在 Outlook 中复制项
此示例创建邮件项的副本,并向用户显示此副本。
**适用于:**本主题中的信息适用于 Outlook 2007 和 Outlook 2010 的应用程序级项目。有关更多信息,请参见按 Office 应用程序和项目类型提供的功能。
示例
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