In the GetCurrentItem() function, change this statement:

Set objApp = CreateObject("Outlook.Application")

to

Set objApp = Application

If the issue persists, see http://www.outlookcode.com/article.aspx?ID=52 for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"ragz4ragz" wrote in message ...
Hi, When I use the code supplied at the link made available by you and run it
on my outlook I get an message box as
"A program is trying to access e-mail addresses you have stored in outlook.
Do you want to allow this?

If this is unexpected, it may be a virus and you should choose "No."

Allow access for (1,2,5,10 Minutes)"

with yes, no and Help buttons on the message box.I am using Outlook 2003.

Please let me know if I can accept it as yes. I ma