Fehler beim Ausführen der Operation

Zur Lösung des Problems installieren Sie bitte das aktuelle Service Pack für Office XP.

Sollte das Problem durch die Installation des SPs nicht behoben werden — oder der Fehler in einer späteren Version von Outlook auftreten —, kann es sein, dass der Formularspeicher von Outlook korrupt ist. Um diesen leeren, gehen Sie bitte wie folgt vor:

1. Schließen Sie Outlook

2. Navigieren Sie zum versteckten Ordner C:\Dokumente und Einstellungen\%BENUTZERNAME%\Lokale Einstellungen\Anwendungsdaten\Microsoft\FORMS

3. Löschen Sie die sich in diesem Ordner befindliche Datei FRMCACHE.DAT (Formularspeicher)

Beim nächsten Start erstellt Outlook den Formularspeicher neu, und das Problem sollte nicht mehr auftreten.

KB-Artikel

Option Explicit

Dim myOlApp As New Outlook.Application

Public WithEvents myOlExp As Outlook.Explorer

Public Sub Application_Startup()
  Set myOlExp = myOlApp.ActiveExplorer
End Sub

Public Sub Application_MAPILogonComplete()
  Dim appOutlook As Application, nsMapi As NameSpace, RootFolder As MAPIFolder, OriginalStartFolder

  Set appOutlook = CreateObject("Outlook.Application")
  Set nsMapi = appOutlook.GetNamespace("MAPI")
 
  OriginalStartFolder = ActiveExplorer.currentFolder.EntryID
  For Each RootFolder In nsMapi.Folders()
      PurgeFolderRecursively nsMapi.Folders(RootFolder.Name)
  Next
  Set ActiveExplorer.currentFolder = nsMapi.GetFolderFromID(OriginalStartFolder)
End Sub

Private Sub myOlExp_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
  PurgeCurrentFolder
End Sub

Private Sub myOlExp_FolderSwitch()
  PurgeCurrentFolder
End Sub

Private Sub PurgeCurrentFolder()
  Dim f As MAPIFolder
  Dim appOutlook As Application, nsMapi As NameSpace, barEdit As CommandBar
  Dim btnPurge As CommandBarButton

  Set f = myOlExp.currentFolder
  On Error GoTo skip
  If InStr(LCase(f.Description), "imapcleanup") > 0 Then
    Set appOutlook = CreateObject("Outlook.Application")
    Set nsMapi = appOutlook.GetNamespace("MAPI")
    Set barEdit = ActiveExplorer.CommandBars("Edit")
    Set btnPurge = barEdit.FindControl(msoControlButton, 5583, , , True)
    btnPurge.Execute
  End If
skip:
End Sub

Private Sub PurgeFolderRecursively(RootFolder As MAPIFolder)
  Dim currentFolder As MAPIFolder

  If InStr(LCase(RootFolder.Description), "imapcleanup") > 0 Then
    Set ActiveExplorer.currentFolder = RootFolder
    PurgeCurrentFolder
  End If

  For Each currentFolder In RootFolder.Folders
    PurgeFolderRecursively currentFolder
    DoEvents
  Next
End Sub

Wie binde ich den Code in Outlook ein?

• Markieren Sie den Code und fügen ihn über STRG+C in die Zwischenablage ein
• Starten Sie über ALT+F11 den VBA-Editor von Outlook
• Klicken Sie auf das +-Zeichen vor Projekt
• Klicken Sie auf das +-Zeichen vor Microsoft Office Outlook Objekte
• Klicken Sie Diese OutlookSitzung doppelt an und fügen auf der rechten Seite den Code über STRG+V ein.
• Speichern Sie das Ganze mit STRG+S und schließe den Editor mit STRG+Q

Eine sehr gute Schritt-für-Schritt-Anleitung zum Einbinden des Codes bietet der Workshop VBA in Outlook verwenden.

Eventuell müssen Sie die Sicherheitsstufe für Makros noch auf Mittel oder Niedrig stellen, damit die Ausführung des Makros erlaubt wird:

Extras | Makro | Sicherheit

Aus Gründen der Sicherheit empfiehlt sich aber die Erstellung eines digitalen Zertifikates, das Sie dem VBA-Projekt zuweisen. Klicken Sie dazu im VBA-Editor auf

Extras | Digitale Signatur

und wählen das erstellte Zertifikat aus. Das Makro wird nun unabhängig von der eingestellten Sicherheitsstufe ausgeführt.

Zum Schluss muss noch jeder Ordner, der durch das Makro bereinigt werden soll, gekennzeichnet werden:

• Rechtsklick auf den IMAP-Ordner
• Wählen Sie die Option Eigenschaften
• Tragen Sie in das Beschreibungsfeld den Text IMAPCleanup ein

Hinweis:
Ab Outlook 2007 ist dieser Workaround nicht mehr nötig; seit dieser Version ist es nun möglich, in den Eigenschaften des IMAP-Kontos einzustellen, dass zum Löschen vorgemerkte E-Mails beim Verlassen des IMAP-Ordners endgültig entfernt werden.

Option Explicit

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    '=====================================================================
    ' Zeigt beim Senden einer E-Mail den Outlook®-Auswahlordner an um die
    ' E-Mail bei Bedarf in einen anderen Ordner als "Gesendete Objekte"
    ' abzulegen.
    ' (c) 2007-2008 Peter Marchert - http://www.outlook-stuff.com
    '=====================================================================
 
    Dim objFolder       As Object
 
    '---------------------------------------------------------------------
    ' Schleife wird solange durchlaufen, bis ein gültiger Ordner ausgewählt
    ' oder die Auswahl abgebrochen wird.
    '---------------------------------------------------------------------
    Do
 
        '-----------------------------------------------------------------
        ' Ordnerauswahl anzeigen
        '-----------------------------------------------------------------
        Set objFolder = Nothing
        Set objFolder = Outlook.Session.PickFolder
 
        '-----------------------------------------------------------------
        ' Wurde die Auswahl abgebrochen?
        '-----------------------------------------------------------------
        If objFolder Is Nothing Then
            Cancel = True
            GoTo ExitProc
        End If
     
        '-----------------------------------------------------------------
        ' Falscher Ordnertyp ausgewählt?
        '-----------------------------------------------------------------
        If InStr(objFolder.DefaultMessageClass, "IPM.Note") = 0 Then
            Set objFolder = Nothing
            If MsgBox("Bitte wählen Sie einen Ordner für E-Mails aus." _
                , vbCritical + vbOKCancel, "Ablage auswählen") = vbCancel Then
                Cancel = True
                GoTo ExitProc
            End If
        End If
 
        '-----------------------------------------------------------------
        ' Der Posteingang eignet sich nicht als Ablage
        '-----------------------------------------------------------------
        If objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox) Then
            If MsgBox("Möchten Sie wirklich die gesendete E-Mail im Posteingang ablegen?" _
                , vbExclamation + vbYesNo + vbDefaultButton2, "Ablage auswählen") = vbNo Then
                Set objFolder = Nothing
            End If
        End If
 
    Loop While objFolder Is Nothing
 
    '---------------------------------------------------------------------
    ' Speicherort der E-Mail festlegen
    '---------------------------------------------------------------------
    Set Item.SaveSentMessageFolder = objFolder
 
    '---------------------------------------------------------------------
    ' Referenz auf Ordner löschen
    '---------------------------------------------------------------------
    Set objFolder = Nothing

ExitProc:
 
    '---------------------------------------------------------------------
    ' Referenz auf das Objekt löschen
    '---------------------------------------------------------------------
    Set Item = Nothing
 
End Sub

Nach dem Klick auf Senden wird nun folgender Dialog zum Auswählen des Speicherordners angezeigt:

Wie binde ich den Code in Outlook ein?

• Markieren Sie den Code und fügen ihn über STRG+C in die Zwischenablage ein
• Starten Sie über ALT+F11 den VBA-Editor von Outlook
• Klicken Sie auf das +-Zeichen vor Projekt
• Klicken Sie auf das +-Zeichen vor Microsoft Office Outlook Objekte
• Klicken Sie Diese OutlookSitzung doppelt an und fügen auf der rechten Seite den Code über STRG+V ein.
• Speichern Sie das Ganze mit STRG+S und schließe den Editor mit STRG+Q

Eine sehr gute Schritt-für-Schritt-Anleitung zum Einbinden des Codes bietet der Workshop VBA in Outlook verwenden.

Eventuell müssen Sie die Sicherheitsstufe für Makros noch auf Mittel oder Niedrig stellen, damit die Ausführung des Makros erlaubt wird:

Extras | Makro | Sicherheit

Aus Gründen der Sicherheit empfiehlt sich aber die Erstellung eines digitalen Zertifikates, das Sie dem VBA-Projekt zuweisen. Klicken Sie dazu im VBA-Editor auf

Extras | Digitale Signatur

Eine weitere Möglichkeit wäre das Add-In SmartTools E-Mail Archiv. Mit diesem kann man ebenfalls beim Senden eine Ordner angeben, in dem die Mail gespeichert werden soll. Der Nachteil dieser Lösung ist jedoch, dass der Ordner zwingend ein Unterorder des Standard-Ordners Gesendete Objekte sein muss.

Folgender Code des VBA-Spezialisten Peter Marchert expandiert beim Start von Outlook alle Ordner mit dem Namen Posteingang und zeigt dann einen zuvor festgelegten Startordner an (im Code den Wert des Parameters strStartFolder auf den gewünschten Ordner ändern):

• Markieren Sie den Code und fügen ihn über STRG+C in die Zwischenablage ein
• Starten Sie über ALT+F11 den VBA-Editor von Outlook
• Klicken Sie auf das +-Zeichen vor Projekt
• Klicken Sie auf das +-Zeichen vor Microsoft Office Outlook Objekte
• Klicken Sie Diese OutlookSitzung doppelt an und fügen auf der rechten Seite den Code über STRG+V ein.
• Speichern Sie das Ganze mit STRG+S und schließe den Editor mit STRG+Q

Eine sehr gute Schritt-für-Schritt-Anleitung zum Einbinden des Codes bietet der Workshop VBA in Outlook verwenden.

Eventuell müssen Sie die Sicherheitsstufe für Makros noch auf Mittel oder Niedrig stellen, damit die Ausführung des Makros erlaubt wird:

Extras | Makro | Sicherheit

Aus Gründen der Sicherheit empfiehlt sich aber die Erstellung eines digitalen Zertifikates, das Sie dem VBA-Projekt zuweisen. Klicken Sie dazu im VBA-Editor auf

Extras | Digitale Signatur

und wählen das erstellte Zertifikat aus. Das Makro wird nun unabhängig von der eingestellten Sicherheitsstufe ausgeführt.

Verwalten Sie die Einstellungen des Abwesenheitsassistenten Ihrer Microsoft Exchange/Outlook-Benutzer

Als Exchange Administrator kennen Sie das Problem:

Ein Exchange oder Outlook Benutzer ist unerwartet krank geworden, oder kann aus anderen Gründen sein Postfach nicht bearbeiten. Sie haben jetzt die Aufgabe, den Abwesenheitsassistenten einzuschalten und auch noch eine Weiterleitungsregel zur Vertretung einzurichten.

Die bisherige Vorgehensweise wäre jetzt, sich Berechtigung auf das Postfach des Benutzers zu verschaffen (ggf. durch Zurücksetzen des Netzwerk-Passwortes), ein entsprechendes Mail-Profi einzurichten, mit dem neuen Profil am Exchangeserver anmelden, den Abwesenheitsassistenten einzurichten und wieder abzumelden. Später wird Sie der Benutzer noch um ein neues Passwort fragen.

Diese Vorgehensweise halten wir für untragbar. Neben dem beachtlichen Zeitaufwand, bewegen Sie sich als Administrator auch rechtlich am Rand der Legalität. Schließlich haben Sie damit, ohne Einverständnis des Benutzers, Zugriff auf alle seine Dateien und Nachrichten. Microsoft Exchange bietet für dieses Problem leider keine eingebaute Lösung, darum wurde OOF-Admin entwickelt.

OOF-Admin Funktionen:

• Aktivieren und Deaktivieren des Abwesenheitsassistenten Ihrer Exchange/Outlook-Benutzer
• Weiterleitung bereits empfangener, noch nicht gelesener Nachrichten
• Ändern der Abwesenheitsmeldung
• Erstellen von Weiterleitungsregeln für eingehende Nachrichten
• Vorhandene Abwesenheitsregeln der Benutzer werden aktiviert/deaktiviert
• Kein Zugriff auf das Postfach des Benutzers möglich
• Optional automatische Benachrichtigung des Benutzers bei Änderung
• Mehrsprachige Benutzeroberfläche

Vergessen Sie die bisherigen, aufwändigen Methoden den Abwesenheitsassistenten eine Benutzerkontos zu verwalten. Mit OOF-Admin erledigen Sie diese leidvolle Aufgabe mit ein paar Mausklicks. OOF-Admin ist die ideale Ergänzung zu OOF-Reset.

Download OOF-Admin