Outlook Spam-Ordner Leeren.

Wenn es einen Ordner mit dem Namen "Junk-E-Mail" gibt, wird von Outlook angelegt. Wird unter Menü Extras -> Organiseren erledigt.
kann mit diesem Codeder Ihalt nicht nur in den Papierkorb verschoben werden sondern die Mail werden danch auch gleich gelöscht.

 

Wie vorgehen?

- In den VBA-Editor wechseln (Tastenkombination Alt-F11).
- Menü ->Einfügen Modul auswählen.
- VBA-Code dort hineinkopieren.

- In Outlook Menü's anpassen aufrufen.
* Im Registerblatt Befehle zu Makros gehen und Projekt1.DeletJunk in die Sysbolleiste ziehen. (Projetkt1 kann auch anderst heißen)
* Jetzt noch ein Schaltflächensysbol auswählen. (Kann von anderen kopiert werden. bzw. per VBA-Code zugewiesen werden)
* Schießen und schon kann der Junk gelöscht werden.

ol menue anpassen

 

 

 

VBA-Code:

Sub DeleteJunk()
'Dim oNamespace As Outlook.NameSpace
Dim oF As MAPIFolder, oFActive As MAPIFolder
Dim i%, j%
Dim fFolderDeletedItems As Boolean
'Set oNamespace = GetNamespace("MAPI")
On Error Goto Errors_
Set oFActive = ActiveExplorer.CurrentFolder
If oFActive.Name = Session.GetDefaultFolder(olFolderJunk).Name OR _
oFActive.Name = Session.GetDefaultFolder(olFolderDeletedItems).Name Then
Set oF = Session.GetDefaultFolder(olFolderInbox)
'"Junk-E-Mail" bzw. "Gelöschte Objekte" war aktiv deshalb auf den Posteingang umschalten
ActiveExplorer.SelectFolder oF
End If
Set oF = Session.GetDefaultFolder(olFolderJunk)
Jump_:
i = oF.Items.Count
For j = 1 To i
With oF.Items(j)
.Categories = "Junk"
.Save
.Delete
End With
Next
fFolderDeletedItems = -1
Set oF = Session.GetDefaultFolder(olFolderDeletedItems)
JumpDelFolders_:
i = oF.Items.Count
For j = 1 To i
With oF.Items(j)
If .Categories = "Junk" Then .Delete
End With
Next

eXit_:
DoEvents

If oFActive.Name = Session.GetDefaultFolder(olFolderJunk).Name OR _
oFActive.Name = Session.GetDefaultFolder(olFolderDeletedItems).Name Then
' zurück zum "Junk-E-Mail" bzw. "Gelöschte Objekte" Ordner
ActiveExplorer.SelectFolder oFActive
End If
Set oF = Nothing
Set oFActive = Nothing
Exit Sub

Errors_:
If Err.Number = -2147352567 Then 'Array-Index außerhalb des zulässigen Bereichs.
'Beim löschen stimmt die Anzahl Index-Einträge nicht und deshalb nochmal löschen durchlaufen.
If fFolderDeletedItems Then
Resume JumpDelFolders_
Else
Resume Jump_
End If
Else
Err.Clear
GoTo eXit_
End If
End Sub

 

Wir nutzen Cookies auf unserer Website. Einige von ihnen sind essenziell für den Betrieb der Seite, während andere uns helfen, diese Website und die Nutzererfahrung zu verbessern (Tracking Cookies). Sie können selbst entscheiden, ob Sie die Cookies zulassen möchten. Bitte beachten Sie, dass bei einer Ablehnung womöglich nicht mehr alle Funktionalitäten der Seite zur Verfügung stehen.