View Single Post
  #7  
Old March 27th 06, 03:51 PM posted to microsoft.public.outlook,microsoft.public.outlook.general,microsoft.public.outlook.interop,microsoft.public.outlook.program_vba
John
external usenet poster
 
Posts: 135
Default Problem automating outlook

Apparently using

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

fixes the problem. Not sure why though.

Regards

"Sue Mosher [MVP-Outlook]" wrote in message
...
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
...
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
...
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
...
Dim O As Object
Set O = CreateObject("Outlook.Application")


Regards
Mark Dormer





"John" wrote in message
...
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










Ads