Forums Neueste Beiträge
 

Ordner "gesendete Objekte"

06/08/2010 - 11:46 von Gerhard Reil | Report spam
Guten Morgen NG,

ich bin schon lange auf der Suche nach einem Code, der mir beim Beenden
von OUTLOOK 2003 den Ordner "Gesendete Objekte" automatisch leert.

Vor einiger Zeit bin ich im Netz auf folgenden Code-Schnipsel gestossen:

Sub DeleteMails()

Dim myOlApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim intCounter As Integer

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail)
For intCounter = myFolder.Items.Count To 1 Step -1
myFolder.Items(intCounter).Delete
Next

Set myFolder = Nothing
Set myNameSpace = Nothing
Set myOlApp = Nothing
End Sub

Da ich "nur Anwender" bin -hier meine Frage:

Wie muß ich in Outlook 2003 diesen Code einbinden, dass vor Beenden
von Outlook dieser Code ausgeführt und mein Ordner geleert wird!

Danke im Voraus.

Mfg
Gerhard Reil
WIN xp
Outlook 2003
 

Lesen sie die antworten

#1 Jürgen Hoelzl
08/08/2010 - 13:23 | Warnen spam
Am 06.08.2010 11:46, schrieb Gerhard Reil:
Guten Morgen NG,

ich bin schon lange auf der Suche nach einem Code, der mir beim Beenden
von OUTLOOK 2003 den Ordner "Gesendete Objekte" automatisch leert.



Hi,

tschuldige meine Neugierde. Aber warum? Solltest Du im Business-Bereich
sein, musst Du alle Mails die auch nur den geringsten Geschàftlichen
Ansatz haben, sechs Jahre lang archivieren.

Auch privat ist es manchmal wichtig welche Mails geschrieben wurden.

Aber es ist sicherlich Deine Sache und Du wirst wissen warum.

Jürgen

Ähnliche fragen