Check if Microsoft Outlook is installed as default mail cleint

[bobdydd]

Hi All

Is there a way that I could programatically check to see if Microsoft
Outlook is installed on the PC. Someone suggested this code, below, but
it is version specific.

Dim appOutlook as Outlook.Application
On Error Resume
Set appOutlook = CreateObject("Outlook.Application.8")
If Err.Number = 429 Then
MsgBox "You Do Not have Outlook 8 Installed"
Exit..
End if

Any suggestion most appreciated

Bob

[Douglas J Steele]

Remove the .8

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
"bobdydd" <re**************@yahoo.co.uk> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

Hi All

Is there a way that I could programatically check to see if Microsoft
Outlook is installed on the PC. Someone suggested this code, below, but
it is version specific.

Dim appOutlook as Outlook.Application
On Error Resume
Set appOutlook = CreateObject("Outlook.Application.8")
If Err.Number = 429 Then
MsgBox "You Do Not have Outlook 8 Installed"
Exit..
End if

Any suggestion most appreciated

Bob

[Br]

bobdydd wrote:

Hi All

Is there a way that I could programatically check to see if Microsoft
Outlook is installed on the PC. Someone suggested this code, below,
but it is version specific.

Dim appOutlook as Outlook.Application
On Error Resume
Set appOutlook = CreateObject("Outlook.Application.8")
If Err.Number = 429 Then
MsgBox "You Do Not have Outlook 8 Installed"
Exit..
End if

Any suggestion most appreciated

Bob

I've used this function which checks the registry:

IsInstalled("Outlook.Application.8")

Function IsInstalled(ByVal pProgram As String) As Boolean
On Error GoTo IsInstalled_err
Dim c As String
c = fReturnRegKeyValue(HKEY_CLASSES_ROOT, pProgram, "")
If c = "ERROR" Then
IsInstalled = False
Else
IsInstalled = True
End If
IsInstalled_exit:
Exit Function
IsInstalled_err:
IsInstalled = False
Resume IsInstalled_exit
End Function
The other suggestion to attempt to create an Outlook object reference
may be better... haven't tried it.
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[david epsom dot com dot au]

That looks to see if Outlook is installed.

"Default mail client" means several things:
default from Access: default from IE: default
from MAPI etc etc.

Here are a couple of places to look:

HKEY_CLASSES_ROOT\MailTo

HKEY_LOCAL_MACINE\Software\Clients\Mail

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\ Common\Mapidll
(david)

"bobdydd" <re**************@yahoo.co.uk> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

Hi All

Is there a way that I could programatically check to see if Microsoft
Outlook is installed on the PC. Someone suggested this code, below, but
it is version specific.

Dim appOutlook as Outlook.Application
On Error Resume
Set appOutlook = CreateObject("Outlook.Application.8")
If Err.Number = 429 Then
MsgBox "You Do Not have Outlook 8 Installed"
Exit..
End if

Any suggestion most appreciated

Bob