Spam per Makro löschen

[mumpel]

Donnerstag abend hätte ich Zeit. Den TeamViewer hast Du schon installiert?

[Bernie]

Hallo René,

du hast 'ne Privatnachricht von mir!!!

[Bernie]

Hallo René,

bin ab sofort am Rechner, egal wann du dich meldest.

[Bernie]

Hallo René,

hast du schon mal an den Code von mir gedacht bzw. gibt es überhaupt 'ne Lösung?

[mumpel]

Eine Lösung gibt es möglicherweise. Muss morgen mal schauen (meine Freizeit ist in letzter Zeit knapp).

[mumpel]

Public Sub ClearJunkMailFolders()

Dim olApp           As Outlook.Application
Dim olName          As Outlook.Namespace
Dim olFolder        As Outlook.MAPIFolder
Dim olItems         As Outlook.Items

Dim olFoldersCount  As Long
Dim olItemsCount    As Long


Set olApp = Application

  With olApp
     Set olName = .GetNamespace("MAPI")
         For olFoldersCount = 1 To .Session.Accounts.Count
             Set olFolder = olName.Session.Folders(olFoldersCount).Folders("Junk-E-Mail")
                 olItemsCount = 0
                 Do While olFolder.Items.Count > 0
                          Set JunkMail = olFolder.Items(1)
                          EntryID = JunkMail.EntryID
                          JunkMail.Delete
                          Set DeleteItem = olName.Session.GetItemFromID(EntryID)
                          DeleteItem.Delete
                          olItemsCount = olItemsCount + 1
                 Loop
         Next olFoldersCount
  End With

End Sub



VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15

[Bernie]

Hallo René,

danke schon mal für deine Bemühungen.

Habe gerade deinen Code getestet und erhalte eine Fehlermeldung "Variable nicht definiert" und in folgender Zeile hält der Code an ...

Code:

Set JunkMail = olFolder.Items(1)

[mumpel]

Ersetze JunkMail durch olItems

[Bernie]

Hallo René,

danke für die schnelle Antwort.

Leider wieder Fehlermeldung und zwar hier ...

Code:

EntryID = JunkMail.EntryID

Hatte beim 2. Testversuch auch hier schon das Wort "Junkmail" ersetzt, trotzdem kommt die Fehlermeldung "Variable nicht definiert". Ebenso eine Zeile weiter taucht auch noch das Wort auf und auch dort hatte ich es ersetzt, aber ohne Erfolg.

[mumpel]

"JunkMail" solltest Du im gesamten Code ersetzen, nicht nur an einer Stelle. Aber ich sehe gerade dass "EntryID" fehlt. Solltest Du aus Deinem Code noch übernehmen.