Löschen oder verschieben von Ordnern mit Eingabeaufforderung schützen

Dim WithEvents active_folder As Folder
Dim WithEvents active_explorer As Explorer

'Speichert einen Verweis auf den aktuell markierten Ordner  
Private Sub active_explorer_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
    Set active_folder = NewFolder
End Sub

'Bevor der Ordner verschoben wird kommt eine Sicherheitsabfrage  
Private Sub active_folder_BeforeFolderMove(ByVal MoveTo As MAPIFolder, Cancel As Boolean)
    If MsgBox("Möchten Sie diesen Ordner wirklich verschieben?", 36) = 7 Then  
        Cancel = True
    End If
End Sub

'Setzt den Verweis auf das aktuelle Outlook Fenster beim Start  
Private Sub Application_MAPILogonComplete()
   Set active_explorer = Application.ActiveExplorer
End Sub