Test if Outlook is Available (1 Viewer)

Hi,
I'm sending emails ok when Outlook is loaded on the machine but failing when it is not. I've searched everywhere and am getting answers about how to resolve it.

The thing is, I'm not good enough to try to get to grips with discovering whatever email the machine may have and I'm happy to say "No Outlook, No emails" so how to I test to see if Outlook is available?

My code is failing when it gets to
Set objOutlook = CreateObject("Outlook.Application")

I've tried testing objOutlook for IsNull, IsEmpty or = "" but these tests are after the error and the code fails before it reaches them.
Thanks, Mike


UPDATE. If you keep looking you can find it...
Dim appOutlook As Outlook.Application
On Error Resume Next
Set appOutlook = CreateObject("Outlook.Application")
If Err.Number = 429 Then
MsgBox "You Do Not have Outlook Installed"
Exit Sub
End If

Problem solved.

to make your solution a little bit better check out getobject as well. This is good for people that already have an office program open. I think that most people have outlook open and your code will create a new instance of outlook.

To go with darbid's response -

First start with
and if that errors out (you can use On Error Resume Next just before it) then use

Thanks guys, will try to improve my code.
Mike

it should also give you a 429 error. Also you can use this same idea for all office programs.

Hi Darbid and Bob. Still not quite getting there. Am trying to first test if Outlook is running then, if not, is it loaded.
Tried it on a machine without Outlook and now on a machine where Outlook is loaded but not running. I'm always getting error 429 twice unless Outlook is actually running.

On Error Resume Next
Dim ol As Object
Set ol = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
MsgBox Err.Number & " Outlook is not running."
' Exit Sub or Function
End If

Dim objOutlook As Outlook.Application
Set objOutlook = CreateObject("Outlook.Application")
If Err.Number <> 0 Then
MsgBox Err.Number & " You Do Not have Outlook Installed"
Else
MsgBox "Outlook is installed"
' Exit Sub or Function
End If

It only gets to "Outlook is installed" when Outlook is running.

With the code, Outlook has to be running (it fails if I havn't started Outlook)
Without the code the email goes even when Outlook is not running (but will fail if Outlook is not on the machine).

As you can see, I'm confused. Thanks Mike

Try this code:


JR

If JanR's doesn't help, then you might explore this:

http://www.mvps.org/access/api/api0023.htm