方法 : 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

参照

処理手順

方法 : Outlook でアイテムを移動する

方法 : カスタム フォルダーのアイテムを作成する

方法 : 名前を指定してフォルダーを取得する

概念

フォルダーの操作