sample code for empty deleted items folder

[Tom]

sue mosher had this piece of code, question is, how would I use this to run
automatically for example at 05:00am ?

Function EmptyDeletedItems()
On Error GoTo ErrorHandler
Dim AppOutlook As Outlook.Application
Dim mNameSpace As NameSpace
Dim objExpl As Outlook.Explorer
Dim objCBB As CommandBarButton
Dim strEntryID As String
Dim strStoreID As String

Set AppOutlook = CreateObject("Outlook.Application")
Set mNameSpace = AppOutlook.GetNamespace("MAPI")
'Set the explorer to the active explorer
Set objExpl = AppOutlook.ActiveExplorer
'Capture the original current folder Entry and Store ID's
strEntryID = objExpl.CurrentFolder.EntryID
strStoreID = objExpl.CurrentFolder.StoreID
'Change the current folder to the target folder
Set objExpl.CurrentFolder =
mNameSpace.GetDefaultFolder(olFolderDeletedItems)
'Select the target folder
objExpl.SelectFolder mNameSpace.GetDefaultFolder(olFolderDeletedItems)
'Get the Empty Deleted Items command = UID 1671
Set objCBB = objExpl.CommandBars.FindControl(, 1671)
'Execute the command
objCBB.Execute
'Return to the original folder
Set objExpl.CurrentFolder = mNameSpace.GetFolderFromID(strEntryID,
strStoreID)

ExitHere:
On Error Resume Next
Set objCBB = Nothing
Set objExpl = Nothing
Set mNameSpace = Nothing
Set AppOutlook = Nothing
Exit Function
ErrorHandler:
Resume ExitHere
End Function

 

[Michael Bauer [MVP - Outlook]]

Here's a sample for how to use the reminder of a task item for that:

http://www.vboffice.net/sample.html?mnu=2&pub=6&lang=en&smp=10&cmd=showitem

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 3 Sep 2008 17:16:11 +0300 schrieb Tom:

 

[Tom]

Here's a sample for how to use the reminder of a task item for that:
http://www.vboffice.net/sample.html?mnu=2&pub=6&lang=en&smp=10&cmd=showitem

Michael, thank you for the reply.

Unfortunately, I still don't know how to use that code item, ie. how do I enable it?
how do I make outlook run it? where do I save it?

 

[Michael Bauer [MVP - Outlook]]

Copy the code into the module "ThisOutlookSession", and click Save. That's
it. Of course, you need to customize the strings, i.e. subject for the
reminder, etc.

Nothing needs to be enabled. The code will be called when a reminder pops
up, then it decides by the task's subject whether to continue or not.

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Thu, 4 Sep 2008 16:52:22 +0300 schrieb Tom: