MS Outlook - Makros reloaded 2

13.07.06 - Microsoft Office
Beitrag von 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.

Discount Gucci Shoes

05.05.12

<a href="http://www.onlinetocheap.com">Replica Coach Handbags</a>
<a href="http://www.onlinetocheap.com">Cheap Designer Clothes</a>
<a href="http://www.onlinetocheap.com">Gucci Shoes China On Sale</a>
<a href="http://www.onlinetocheap.com">Nike Air Max Shoes</a>
<a href="http://www.onlinetocheap.com">Air Jordan Shoes</a>
<a href="http://www.onlinetocheap.com">Cheap YSL T-shirts</a>
<a href="http://www.onlinetocheap.com">Cheap True Religion Jeans</a>
<a href="http://www.onlinetocheap.com">Urban Coogi Clothing</a>
<a href="http://www.onlinetocheap.com">Cheap Armani T-shirts</a>
<a href="http://www.onlinetocheap.com">Cheap Polo T-shirts</a>
<a href="http://www.onlinetocheap.com">Louis Vuitton Shoes</a>
<a href="http://www.onlinetocheap.com">Vogue Tiffany Jewelry</a>
<a href="http://www.onlinetocheap.com">Cheap Gucci Handbags</a>

<a href="http://www.onlinetocheap.com">Gucci Shoes</a> could possibly be found out within pretty fairly a few sorts and types. It could possibly be flats,Gucci Messenger Bags, ladies wellington boots, heels,
<a href="http://www.onlinetocheap.com">Gucci Handbags</a>, sandals,
<a href="http://www.onlinetocheap.com">Cheap Gucci Purses</a>, or sneakers. for all folks that worth sneakers considerably elevated than any other casual shoes contemplating that of its intent or use, you'll be able to nonetheless distinct branded shoes of <a href="http://www.onlinetocheap.com">Gucci Clothing</a>. You just cellular cellular for to produce a alternative on <a href="http://www.onlinetocheap.com">Gucci Sneakers</a> inside your will require to distinct away from your genuinely very lowest just one Gucci shoes.

Kommentar hinzufügen

Bitte das Formular ausfüllen, um Deinen Kommentar hinzuzufügen.