Geänderte E-Mail ohne Nachfrage löschen

Wird eine geänderte E-Mail gelöscht, so fragt Outlook® nach, ob diese wirklich gelöscht werden soll. Möchte man diese Nachfrage aus irgendeinem Grund nicht haben, kann man dazu folgenden Code verwenden:

Zur Verwendung dieses Beispiels beachten Sie bitte die wichtigen Hinweise, sowie den Workshop VBA in Outlook® verwenden. Den Code bitte in ein neues Modul kopieren (Einfügen -> Modul im VBA-Editor).

Für Outlook® 2000, Outlook® 2002, Outlook® 2003, Outlook® 2007

Option Explicit
 
Public Sub DeleteItem()
 
    '=====================================================================
    ' Löscht eine geänderte E-Mail ohne Nachfrage
    ' (c) Peter Marchert - http://www.outlook-stuff.com
    ' 2008-11-21 Version 1.0.0
    '=====================================================================
 
    Dim objItem As Object
 
    On Error Resume Next
 
    '---------------------------------------------------------------------
    ' Gerade geöffnetes Element (muss nicht eine E-Mail sein) referenzieren
    '---------------------------------------------------------------------
    Set objItem = Outlook.ActiveInspector.CurrentItem
 
    '---------------------------------------------------------------------
    ' Element wird jetzt gelöscht (und landet dabei im Papierkorb)
    '---------------------------------------------------------------------
    objItem.Delete
 
    '---------------------------------------------------------------------
    ' Referenzierung wieder aufheben
    '---------------------------------------------------------------------
    Set objItem = Nothing
 
End Sub