Creating a Macro to Compact all .pst files

[sfparadox]

Can someone point me to an example of a macro that would:

Go through all open .pst files (I have about 20 pst files)
Empty the trash in each .pst file
Compact each .pst file


I'm using Outlook XP on Windows XP Pro SP1.

Outlook XP allegedly compacts automagically, though I have yet to
observe it doing so.

In any case, help on writing such a macro would be appreciated.

Thanks in advance.

 

[Ken Slovak - [MVP - Outlook]]

Compacting a PST file is not something you can control from code.