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).
Ab Outlook® 2000
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