Objects available

[swatty]

How can we determine which objects are available on users machine ?

I'm adding functionality to email of fax the reports generated by the app.

When outlook isn't installed on the machine i would set the button disabled.
The same for the fax server.

How can i check if these classes are installed on the machine ?

Now I am creating the objects when the button is clicked.
This will throw an error when the component isn't available.

Someone.

[techyspecy]

Well - You can create a test function in which you can check what all classes are available. For instance, you could do something like this ...

on error resume next
 
dim lobjOutlook as new Outlook.Application ' or whatever
 
if err.number <> 0 then
    ' class not installed or not found ....
end if

Run this test procedure in the beginning and if it return false disable your buttons ...
Its not the most elegant of ways of doing something but its sure as hell is easy.

[si_the_geek]

For Outlook you can check the following registry key

HKEY_CLASSES_ROOT\Outlook.Application\CurVer

if it has a value then Outlook is installed

[swatty]

I'll try for techy's aproach not a proper one but effective.

The registry key would not exist (i think ) if not installed.

[si_the_geek]

Originally posted by swatty
I'll try for techy's aproach not a proper one but effective.

The registry key would not exist (i think ) if not installed.

True, but if the key didn't exist you'd get a trappable error.

Also, you wouldn't have to wait for the Outlook object to load, and the complications that come with creating it (on some machines you get a second visible instance, and some will close the main Outlook window if you terminate your object).

[swatty]

What do you think about

On Error Resume Next
   Dim obj As Object
   Set obj = CreateObject("Outlook.Application")
   If Err.Number <> 0 Then
      Err.Clear
      On Error Resume Next
      NO_MAIL = True
   End If
   Set obj = Nothing
   Set obj = CreateObject("FaxServer.FaxServer")
   If Err.Number <> 0 Then
      Err.Clear
      NO_FAX = True
   End If
   Set obj = Nothing

[techyspecy]

Originally posted by si_the_geek
True, but if the key didn't exist you'd get a trappable error.

Also, you wouldn't have to wait for the Outlook object to load, and the complications that come with creating it (on some machines you get a second visible instance, and some will close the main Outlook window if you terminate your object).

What ????? You are kidding me alright. I have done this before and it does not do anything like that.

[swatty]

Originally posted by si_the_geek
True, but if the key didn't exist you'd get a trappable error.

Also, you wouldn't have to wait for the Outlook object to load, and the complications that come with creating it (on some machines you get a second visible instance, and some will close the main Outlook window if you terminate your object).

Do you have an example of retrieving regKey values.

Or can I get it with Getsetting.

[si_the_geek]

Originally posted by techyspecy
What ????? You are kidding me alright. I have done this before and it does not do anything like that.

I said on SOME machines, it doesn't happen on many - I have only seen it on a small percentage of machines.. and not all the time, but it does happen occasionally.

[si_the_geek]

Originally posted by swatty
Do you have an example of retrieving regKey values.

Or can I get it with Getsetting.

You can't use Getsetting, there are lots of example .bas modules around the web that have all the required registry functions in - there's some good ones at www.freevbcode.com

[techyspecy]

Originally posted by si_the_geek
I said on SOME machines, it doesn't happen on many - I have only seen it on a small percentage of machines.. and not all the time, but it does happen occasionally.

What do you mean on some machines and not on others ...