| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1388250 | | Aufrufe | 5084482 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 05.04.2007 | Zugriffe: 19709 | | | | Beschreibung
Um z.B. den Inhalt der Junk-Ordners zu löschen,
gibt es im Kontextmenü einen Befehl. Für die meisten Ordner gibt es
den Befehl aber nicht.
Dieses Beispiel löscht den Inhalt des
gerade aktuellen Ordners. Ziehen Sie sich einfach eine Schaltfläche auf
die Symbolleiste, und Sie haben die Funktion 'Ordner leeren' für jeden
beliebigen Ordner. |
Public Sub DeleteFolderContent()
Dim Folder As Outlook.MAPIFolder
Dim Items As Outlook.Items
Dim Msg As String
Dim i As Long
Set Folder = Application.ActiveExplorer.CurrentFolder
Set Items = Folder.Items
Msg = Items.Count & " Element(e) aus " & Folder.Name & " löschen?"
If MsgBox(Msg, vbYesNo) = vbYes Then
For i = Items.Count To 1 Step -1
Items.Remove i
Next
End If
End Sub
|
| | |
| | |  | ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern
einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter] |
| | |  | Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter] |
| | |  | SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter] |
| | |  | OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter] |
| | |
|
