Run Time Error 429 ActiveX Component canot create Object

[walejo89]

Hi all, I am having the following problem, eveytime the code gets to this line it gives me the above error massage,

Set gappOutlook = GetObject(, Outlook.Application)
this is the line thats causing the error message, but the weird thing is that when i run this database in a computer where outlook is 2000 it wont give me a problem at all, but when i run it on a computer which outlook is 2003 it will give me that error message, any suggestions will be apreciated.
wilfer

 

[RoyVidar]

That line should give an error on all versions, it should be

[tt]Set gappOutlook = GetObject(, "Outlook.Application") [/tt]

And - 429 is expected, if an instance of Outlook isn't running currently, then create one...

[tt]on error resume next
Set gappOutlook = GetObject(, "Outlook.Application")
if err.number<>0 then
' no open instance
err.clear
Set gappOutlook = CreateObject("Outlook.Application")
if err.number<>0 then
' outlook installed?
exit sub
end if
end if
on error goto <yourerrorhandler> [/tt]

Roy-Vidar