更新：2007 年 11 月
适用对象 |
|---|
本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。 项目类型
Microsoft 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
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);
}
}