This post originated from an RSS feed registered with .NET Buzz
by -.
Original Post: MS Outlook - Makros reloaded 2
Feed Title: Norbert Eder - Living .NET
Feed URL: http://feeds.feedburner.com/NorbertEder-Livingnet
Feed Description: Copyright (c)2005, 2006 by Norbert Eder
Vor einiger Zeit habe ich ein kleines VBA-Makro veröffentlicht, mit dem es einfach möglich ist, die Ordner "Junk E-Mail" und "Gelöschte Objekte" zu leeren (siehe MS Outlook - Makros reloaded).
Alex Bierhaus hat mich nun auf einen Fehler dieses Makros hingewiesen, den ich in der Hitze des Gefechtes übersehen hatte:
In den gelöschten Objekten befinden sich natürlich nicht nur gelöschte Emails, sondern auch gelöschte Kontakte, Notizen, Aufgaben etc. Hierbei wurde ein Fehler ausgelöst und die Objekte wurden nicht gelöscht. Hier nun eine marginal geänderte Variante, die nun einwandfrei funktionieren sollte.
Sub RemoveJunkAndDeleted()
Dim mItem As Object
Dim mNamespace As NameSpace
Dim junkFolder As MAPIFolder
Dim deletedFolder As MAPIFolder
Set mNamespace = Application.GetNamespace("MAPI")
Set junkFolder = mNamespace.GetDefaultFolder(olFolderJunk)
For Each mItem In junkFolder.Items
mItem.Delete
Next
Set deletedFolder = mNamespace.GetDefaultFolder(olFolderDeletedItems)
For Each mItem In deletedFolder.Items
mItem.Delete
Next
End Sub
Getestet wurde mit gelöschten Emails, Kontakten, Aufgaben und Notizen unter Verwendung von Microsoft Office 2003.
Previous Topic
