title image


Smiley Junkmail komplett löschen
Hallo zusammen ,

habe ein Problem dazu finde ich aber leider nicht das passende Forum deshalb habe ich esw hier versucht.Vieleicht kann mir von euch Excelprofis einer helfen.

Es geht um Outlook.Habe ein Makro erstellt mit dem lösche ich den Junkmail Ordner.

Was ich erreichen möchte ist das die mails nihct erst in den Papierkorb wandern sondern gleich komplett gelöscht werden.

Ich hoffe ihr könnt mir dabei helfen.Hier noch mein Code bis jetzt ->



Sub junk_löschen()

Set myOlApp = CreateObject("Outlook.Application")

Set myNamespace = myOlApp.GetNamespace("MAPI")

Set myFolder1 = myNamespace.GetDefaultFolder(olFolderJunk)

Set myFolder2 = myNamespace.GetDefaultFolder(3)



'löschen Junkmails

tot = myFolder1.Items.Count

For cb = 1 To tot

myFolder1.Items(1).Delete

Next

end sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: