title image


Smiley Re: Junkmail komplett löschen
Hallo Thomas,

danke für die Antwort.

Habe es etwas umgestellt udn schon klappts auch für mich :)

danke



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 = myNameSpace.GetDefaultFolder(olFolderJunk)



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



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: