VBOffice

IMAP-Nachricht löschen

So löschen Sie eine Email in einem IMAP-Konto mit einem Klick.

Zuletzt geändert: 19.02.2008 | Aufrufe: 19.674  | #64
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.

Wenn Sie eine Nachricht aus einem IMAP-Ordner löschen, dann wird diese nur als gelöscht markiert. Zum endgültigen Löschen müssen Sie nochmals auf einen Eintrag im Bearbeiten-Menü klicken. Folgende Funktion übernimmt das für Sie.

Das Beispiel funktioniert bis einschließlich Outlook 2010.


tip  So fügen Sie Makros in Outlook ein
Sub PurgeFolder()
  'Löscht alle markierten Nachrichten im aktuellen Ordner
  PurgeDeletedMessages 12771
End Sub

Sub PurgeAccount()
  'Löscht alle markierten Nachrichten im aktuellen Konto
  PurgeDeletedMessages 12772
End Sub

Sub PurgeAllAccounts()
  'Löscht alle markierten Nachrichten in allen Konten  
  PurgeDeletedMessages 12773
End Sub

Private Sub PurgeDeletedMessages(ByVal Id As Long)
  On Error Resume Next
  Dim Bars As Office.CommandBars
  Dim Btn As Office.CommandBarButton

  Set Bars = Application.ActiveExplorer.CommandBars
  Set Btn = Bars.FindControl(, Id)
  If Not Btn Is Nothing Then
    Btn.Execute
  End If
End Sub
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.
email  Senden Sie eine Nachricht