Problem automating outlook

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hi

I am using the following code to automate outlook from within MS Access;

Dim O As Object
O = CreateObject("Outlook.Application")

The problem is that I am getting the following error on the second line;

Automation error
The specified module can not be found

What is the problem and how can I fix it?

Thanks

Regards
 
I wasn't getting an error using the
Set O = CreateObject("Outlook.Application")


Perhaps it is something else in your code?
If you want paste it all.


FWIW I use this method.
In the VB Editor goto Tools - References and Add Microsoft Outlook 11.0
Library

Sub test()
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set objFolder = olns.GetDefaultFolder(olFolderContacts)
End Sub



Regards
Mark Dormer
 
If you get an error from a code statement like this:

Set ol = CreateObject("Outlook.Application")

the cause may be an anti-virus program on your computer that has a feature to block Outlook scripting. The solution is to turn off the script blocking feature.

If you're using Symantec Anti Virus, make a backup of the Windows registry, and then see if these changes solve the problem:

1. Go to the HKEY_CLASSES_ROOT\Outlook.Application\CLSID key and note the (Default) value. It will be a GUID, most likely {0006F03A-0000-0000-C000-000000000046}.

2. Now go to the key HKEY_CLASSES_ROOT\CLSID\{0006F03A-0000-0000-C000-000000000046}\InprocServer32 key, using the value from Step 1 if it's different from that shown above.

3. For the (Default) for that key, you should see this value:

C:\Program Files\Common Files\Symantec Shared\Script Blocking\ScrBlock.dll

Delete that text, so that the key's (Default) value becomes (value not set)


--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Apparently using

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

fixes the problem. Not sure why though.

Regards
 
Apparently using

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

fixes the problem. Not sure why though.

Regards

If you get an error from a code statement like this:

Set ol = CreateObject("Outlook.Application")

the cause may be an anti-virus program on your computer that has a feature
to block Outlook scripting. The solution is to turn off the script blocking
feature.

If you're using Symantec Anti Virus, make a backup of the Windows registry,
and then see if these changes solve the problem:

1. Go to the HKEY_CLASSES_ROOT\Outlook.Application\CLSID key and note the
(Default) value. It will be a GUID, most likely
{0006F03A-0000-0000-C000-000000000046}.

2. Now go to the key
HKEY_CLASSES_ROOT\CLSID\{0006F03A-0000-0000-C000-000000000046}\InprocServer32
key, using the value from Step 1 if it's different from that shown above.

3. For the (Default) for that key, you should see this value:

C:\Program Files\Common Files\Symantec Shared\Script
Blocking\ScrBlock.dll

Delete that text, so that the key's (Default) value becomes (value not set)


--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Sue's solution worked fine for me.

Yesterday I removed Norton AV 2004 by eTrust Antivirus.
Since then, my C# program talking to Outlook reported
"specified module not found". It turned out that there was
a lingering Symantec entry in the registry, blocking
Outlook scripts. Thanks to Sue the problem is solved.

John's solution may actually have bypassed the InprocServer32
entry, using the argument "localhost", or else the cause was
still different.

Great suggestion! Thanks again.

Eric


John said:
Apparently using

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

fixes the problem. Not sure why though.

Regards

"Sue Mosher [MVP-Outlook]" wrote in message
news:[email protected]...
If you get an error from a code statement like this:

Set ol = CreateObject("Outlook.Application")

the cause may be an anti-virus program on your computer that has a feature
to block Outlook scripting. The solution is to turn off the script blocking
feature.

If you're using Symantec Anti Virus, make a backup of the Windows registry,
and then see if these changes solve the problem:

1. Go to the HKEY_CLASSES_ROOT\Outlook.Application\CLSID key and note the
(Default) value. It will be a GUID, most likely
{0006F03A-0000-0000-C000-000000000046}.

2. Now go to the key
HKEY_CLASSES_ROOT\CLSID\{0006F03A-0000-0000-C000-000000000046}\InprocServer32
key, using the value from Step 1 if it's different from that shown above.

3. For the (Default) for that key, you should see this value:

C:\Program Files\Common Files\Symantec Shared\Script
Blocking\ScrBlock.dll

Delete that text, so that the key's (Default) value becomes (value not set)


--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Mark Dormer" wrote in message
news:[email protected]...
>I wasn't getting an error using the
> Set O = CreateObject("Outlook.Application")
>
>
> Perhaps it is something else in your code?
> If you want paste it all.
>
>
> FWIW I use this method.
> In the VB Editor goto Tools - References and Add Microsoft Outlook 11.0
> Library
>
> Sub test()
> Set ol = New Outlook.Application
> Set olns = ol.GetNamespace("MAPI")
> Set objFolder = olns.GetDefaultFolder(olFolderContacts)
> End Sub
>
>
>
> Regards
> Mark Dormer
>
>
>
> "John" wrote in message
> news:[email protected]...
>>I am now using;
>>
>> Set O = CreateObject("Outlook.Application")
>>
>> and I am getting the attached error. Outlook 2003 seems to be working
>> fine
>> otherwise. I have also done a detect and repair on it as well.
>>
>> Regards
>>
>>
>> "Mark Dormer" wrote in message
>> news:[email protected]...
>>> Dim O As Object
>>> Set O = CreateObject("Outlook.Application")
>>>
>>>
>>> Regards
>>> Mark Dormer
>>>
>>>
>>>
>>>
>>>
>>> "John" wrote in message
>>> news:[email protected]...
>>>> Hi
>>>>
>>>> I am using the following code to automate outlook from within MS
>>>> Access;
>>>>
>>>> Dim O As Object
>>>> O = CreateObject("Outlook.Application")
>>>>
>>>> The problem is that I am getting the following error on the second
>>>> line;
>>>>
>>>> Automation error
>>>> The specified module can not be found
>>>>
>>>> What is the problem and how can I fix it?
>>>>
>>>> Thanks
>>>>
>>>> Regards
>>>>
>>>
>>>
>>
>>
>>
>
>
Click to expand...
 
Back
Top