title image


Smiley Re: Junkmail komplett löschen
Hallo,



versuch's mal in etwa so ...







Option Explicit



Sub junk_löschen()



    Dim myNameSpace As NameSpace

    Set myNameSpace = Application.GetNamespace("MAPI")



    Dim myDeletedItemsFolder As MAPIFolder

    Set myDeletedItemsFolder = myNameSpace.GetDefaultFolder(olFolderDeletedItems)



    Dim myJunkFolder As MAPIFolder

    Set myJunkFolder = myDeletedItemsFolder.Folders("SPAM")



    Dim myMailItem As MailItem

    Dim myDeletedItem As MailItem

    Dim mySubject As String



    For Each myMailItem In myJunkFolder.Items



        mySubject = myMailItem.Subject



        myMailItem.Delete



        Set myDeletedItem = myDeletedItemsFolder.Items(mySubject)



        myDeletedItem.Delete



    Next



End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß
Thomas


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: