ActiveX Error Unable to create ActiveX object

[rewoelber]

Dim ol as Object
Dim olns as Object
Dim objFolder as Object
Dim objAllContacts as Object
Dim Contact as Object

Set ol = New Outlook.Application------**Error occurs here**
Set olns = ol.GetNamespace("MAPI")
Set objFolder = olns.GetDefaultFolder(olFolderContacts)
Set objAllContacts = objFolder.Items

For Each Contact In objAllContacts
MsgBox Contact.FullName

Next Contact
End Sub

[Edneeis]

Does the computer you are running that code on have Outlook installed? Is it the same version that you referenced?

[rewoelber]

Edneeis: I version of outlook running on the computer that I want
to execute the program on is Outlook Express.
Is the Reference to Microsoft Outlook 9.0 Object Library the
correct one. I have also tried to allow ActiveX through IE5 security settings.---Also doesn't work

[Edneeis]

I am pretty sure that 'Microsoft Outlook 9.0 Object Library' references the Outlook from Office 2000 not Outlook Express. I'm not even sure there is an ActiveX component for Outlook Express although you'd think there would be. There probably is but I don't know what it is.

[rewoelber]

Well thanks anyway. I'll keep looking.

[rewoelber]

I ran across a Microsoft support article that said that Outlook Express didn't have an Object Library and that only simple MAPI objects could work with it.
I could be mistaken but my code probably only works with Outlook
but I would be happy if someone found a way for my code to work with Outlook Express.
Thanks.

[Edneeis]

Search this Forum for MAPI and I bet you'll find some good info.

[swb76]

my guess is you haven't referenced the DLL correctly.
try this code and see if it works

dim obj as outlook.application
set obj = new outlook.application..

i guess i can be of this much help..good luck!!