I haven't tested your code, but what it's missing is a reference to the Microsoft Outlook # Object Library (where # is the version #), which you insert in the VBE via Tools|References.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]