Gewusst wie: Kopieren von Elementen in Outlook

In diesem Beispiel wird eine Kopie eines E-Mail-Elements erstellt und dem Benutzer angezeigt.

Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Anwendungsebene für Outlook 2007 und Outlook 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.

Beispiel

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

Siehe auch

Aufgaben

Gewusst wie: Verschieben von Elementen in Outlook

Gewusst wie: Erstellen von benutzerdefinierten Ordnerelementen

Gewusst wie: Abrufen eines Ordners anhand des Namens

Konzepte

Arbeiten mit Ordnern