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.Applica tion
On Error Resume
Set appOutlook = CreateObject("O utlook.Applicat ion.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.goo glegroups.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.Applica tion
On Error Resume
Set appOutlook = CreateObject("O utlook.Applicat ion.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.Applica tion
On Error Resume
Set appOutlook = CreateObject("O utlook.Applicat ion.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("Ou tlook.Applicati on.8")

Function IsInstalled(ByV al pProgram As String) As Boolean
On Error GoTo IsInstalled_err
Dim c As String
c = fReturnRegKeyVa lue(HKEY_CLASSE S_ROOT, pProgram, "")
If c = "ERROR" Then
IsInstalled = False
Else
IsInstalled = True
End If
IsInstalled_exi t:
Exit Function
IsInstalled_err :
IsInstalled = False
Resume IsInstalled_exi t
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_RO OT\MailTo

HKEY_LOCAL_MACI NE\Software\Cli ents\Mail

HKEY_LOCAL_MACH INE\SOFTWARE\Mi crosoft\Office\ 11.0\Common\Map idll
(david)

"bobdydd" <re************ **@yahoo.co.uk> wrote in message
news:11******** **************@ f14g2000cwb.goo glegroups.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.Applica tion
On Error Resume
Set appOutlook = CreateObject("O utlook.Applicat ion.8")
If Err.Number = 429 Then
MsgBox "You Do Not have Outlook 8 Installed"
Exit..
End if

Any suggestion most appreciated

Bob