Quelle: http://tinyurl.com/y8qb3j
Accepted Answer from BlueDevilFan
Date: 06/24/2006 11:16AM PDT
Grade: A
Accepted Answer

Here's the macro. Follow these instructions to use it.

1. Launch Outlook.
2. Click Tools-Macro-Visual Basic Editor.
3. In the code editor expand Microsoft Outlook Objects and click on
ThisOutlookSession.
4. Copy the code below and paste it into the right-hand pane of the
editor window.
5. Click the diskette icon on the toolbar to save the changes.
6. Close the editor.
7. Click Tools-Macro-Security
8. Set the security level to Medium.
9. Close Outlook
10. Launch Outlook. You'll receive a prompt asking if you want to
enable macros. You have to enable them for this code to work.
11. Each time Outlook closes it fires the Quit event and the code runs.
It will find Outlook's temporary files folder and delete its contents.


Private Sub Application_Quit()
Dim objFSO As Object, _
objTempFilesFolder As Object, _
objFolder As Object, _
strProfilePath As String
strProfilePath = Environ("USERPROFILE")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTempFilesFolder = objFSO.GetFolder(strProfilePath & "\Local
Settings\Temporary Internet Files")
For Each objFolder In objTempFilesFolder.SubFolders
If Left(objFolder.Name, 3) = "OLK" Then
objFSO.DeleteFile objFolder.Path & "\*.*", True
End If
Next
Set objFolder = Nothing
Set objTempFilesFolder = Nothing
Set objFSO = Nothing
End Sub


--
Cassanius

Or simply use the script "DeleteOLKs" (http://tinyurl.com/9ce35) and/or
see the actual post in the forum on my homepage ("Forum", "Software",
"Sonstige Programme", "DeleteOLKs (English)").

Best Regards
Peter

--
Peter Marchert
[EDP-Service Marchert]
Homepage: Http://Www.Marchert.De
Excel- And Outlook Programming

Cassanius schrieb:

Quelle: http://tinyurl.com/y8qb3j
Accepted Answer from BlueDevilFan
Date: 06/24/2006 11:16AM PDT
Grade: A
Accepted Answer

Here's the macro. Follow these instructions to use it.

1. Launch Outlook.
2. Click Tools-Macro-Visual Basic Editor.
3. In the code editor expand Microsoft Outlook Objects and click on
ThisOutlookSession.
4. Copy the code below and paste it into the right-hand pane of the
editor window.
5. Click the diskette icon on the toolbar to save the changes.
6. Close the editor.
7. Click Tools-Macro-Security
8. Set the security level to Medium.
9. Close Outlook
10. Launch Outlook. You'll receive a prompt asking if you want to
enable macros. You have to enable them for this code to work.
11. Each time Outlook closes it fires the Quit event and the code runs.
It will find Outlook's temporary files folder and delete its contents.


Private Sub Application_Quit()
Dim objFSO As Object, _
objTempFilesFolder As Object, _
objFolder As Object, _
strProfilePath As String
strProfilePath = Environ("USERPROFILE")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTempFilesFolder = objFSO.GetFolder(strProfilePath & "\Local
Settings\Temporary Internet Files")
For Each objFolder In objTempFilesFolder.SubFolders
If Left(objFolder.Name, 3) = "OLK" Then
objFSO.DeleteFile objFolder.Path & "\*.*", True
End If
Next
Set objFolder = Nothing
Set objTempFilesFolder = Nothing
Set objFSO = Nothing
End Sub


--
Cassanius

Cassanius wrote:

Quelle: http://tinyurl.com/y8qb3j
Accepted Answer from BlueDevilFan
Date: 06/24/2006 11:16AM PDT
Grade: A
Accepted Answer

Here's the macro. Follow these instructions to use it.

Or download the free tool OutlookTools from
http://www.howto-outlook.com/products/outlooktools.htm
--
Brian Tillman