English
|
ReplyAll |
| Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten. |
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.
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
|
Reporter |
| Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |