Why won't this code work in Outlook 2003?

[michaaal]

Why won't this code work in Outlook 2003? It seems to work in Outlook 2000?

Dim objApp As Application
Dim objNS As NameSpace
Dim objContacts As MAPIFolder

Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objContacts = objNS.GetDefaultFolder(olFolderContacts)

 

[Sue Mosher [MVP-Outlook]]

Is this running in Outlook VBA? Did you check your macro security settings?
You should use the intrinsic Application object instead of CreateObject.

 

[michaaal]

Is this running in Outlook VBA? Did you check your macro security settings?
You should use the intrinsic Application object instead of CreateObject.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

Sorry Sue, I am not familiar with the Application object. Would you mind
posting an example?
I would greatly appreciate it!

 

[Sue Mosher [MVP-Outlook]]

Set objNS = Application.GetNamespace("MAPI")

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers