[AccessD] Automation error with Outlook 2003

Hi John,

That was the general thrust of most of the stuff I found on the web.  I
finally found a thread on one of the information lists that had the same
error, code, etc and the guy said that he had a resoponse from MS $ per call
help to modify the code as follows.  

Set oOut = CreateObject("Outlook.Application", "localhost")

I tried this and it worked to the point where I found the real problem with
Outlook. The problem was that Outlook was set to use Word as it e-mail
editor and we have a Dimo printer installed on the lap top that puts hooks
into all the Office programs.  The Dimo macros were trying to fire when
Outlook created the e-mail in Word.  What a convoluted web MS allows us to
create.  Thank goodnes for the web and search engines.  MS had nothing on
any of this.

I change the e-mail editor for Outlook to HTML and used the above code and
all is well.  Maybe this will save some one else the couple of hours I
screwed with this.

Thanks for your input.

Doug


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, February 01, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Automation error with Outlook 2003


It sounds like outlook is not installed on that computer, or is corrupted. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy
Sent: Wednesday, February 01, 2006 7:11 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Automation error with Outlook 2003

Folks,

I have an app developed in Access 2002 that sends html formated e-mail using
outlook automation.  The app works fine on my computer; WindowsXP, and
AccessXP Developer.  The app runs fine on another computer we have with the
same operating system and OfficeXP.  Tested it on a computer with WindowsXP
and Office 2003 and now I am getting an "error -2147024770(Automation Error.
The specified module could not be found.)".  My code uses late binding since
I can not be sure what version of Outlook folks will have on their
computers.

The Code is as follows.
------------------------------------------------------
Dim oOut As Object
Dim mItem As Object
   On Error GoTo WriteMessage_Error
   
            'create new e-mailitem and display without sending
        Set oOut = CreateObject("Outlook.Application")
        Set mItem = oOut.CreateItem(0)
---------------------------------------------

The error occurs on the line with CreateObject.  I have done some searching
on the web for this but can not find any specific causes.  

Any help greatfully appreciated.

Doug

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com