ActiveX Component can't create object

[Susan Bricker]

Hi. I have a routine (BldEmail) that is causing an error on my user's
PC but not on mine. HELP!!! I have to fix this tonight.

She reports an error with err.number=429 and the error message "ActiveX
Component can't create object" out of my BldEmail routine.

The routine is called to dynamically build an email note and put it in
the Drafts folder. It uses late binding and has the following code:

Dim objOutlook As Object
Dim objNameSpace As Object
Dim objDrafts As Object
Dim objItem As Object
Dim strBody As String

Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(0) 'olMailItem = 0

'Get the MAPI reference ...
Set objNameSpace = objOutlook.GetNameSpace("MAPI")

'Pick up the Drafts folder ...
Set objDrafts = objNameSpace.GetDefaultFolder(12)

'Set the mail item properties ...
objItem.To = strEmail
objItem.Subject = "CDSP Dog Registration Acknowledgement (" & _
lngDogRegNbr & ")"
since the error message says that it "can't create an object" I'm
guessing that the problem is right up at the top when it creates the
instance of Outlook.Application.

The user is running Access 2000 and Outlook 2003 in Windows XP Home
Edition. I'm running Access 2003 (created db as Access 2000) with
Outlook 2003 and Windows XP Home Edition. The routine works on my PC.
Why doesn't it work on my user's PC?

Thanks.

Regards,
SueB

*** Sent via Developersdex http://www.developersdex.com ***

[Wolf]

Check out this KB article;

http://support.microsoft.com/kb/q244264/

which might help you troubleshoot the problem.

Susan Bricker wrote:

Hi. I have a routine (BldEmail) that is causing an error on my user's
PC but not on mine. HELP!!! I have to fix this tonight.

She reports an error with err.number=429 and the error message "ActiveX
Component can't create object" out of my BldEmail routine.

The routine is called to dynamically build an email note and put it in
the Drafts folder. It uses late binding and has the following code:

Dim objOutlook As Object
Dim objNameSpace As Object
Dim objDrafts As Object
Dim objItem As Object
Dim strBody As String

Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(0) 'olMailItem = 0

'Get the MAPI reference ...
Set objNameSpace = objOutlook.GetNameSpace("MAPI")

'Pick up the Drafts folder ...
Set objDrafts = objNameSpace.GetDefaultFolder(12)

'Set the mail item properties ...
objItem.To = strEmail
objItem.Subject = "CDSP Dog Registration Acknowledgement (" & _
lngDogRegNbr & ")"
since the error message says that it "can't create an object" I'm
guessing that the problem is right up at the top when it creates the
instance of Outlook.Application.

The user is running Access 2000 and Outlook 2003 in Windows XP Home
Edition. I'm running Access 2003 (created db as Access 2000) with
Outlook 2003 and Windows XP Home Edition. The routine works on my PC.
Why doesn't it work on my user's PC?

Thanks.

Regards,
SueB

*** Sent via Developersdex http://www.developersdex.com ***

[Susan Bricker]

Wolf,

Thanks, so much, for your reply to my posted question. After reading
the article, I'm sure that there is a problem with user's install of
Outlook. I'll start with the 'Detect and Repair' option in Outlook.
Maybe that will fix it.

Regards,
Sue

Regards,
SueB

*** Sent via Developersdex http://www.developersdex.com ***