Check if Microsoft Outlook is installed as default mail cleint

B

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
 
B

Br@dley

bobdydd said:
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
Click to expand...

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
 
D

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)
 
Top