VBA codes to determine program installed on PC.
 

How do I write the VBA code to determine whether Microsoft Outlook or Outlook Express has been installed on a PC? Would appreciate any help.

VBA codes to determine program installed on PC.
 

Hi Francis,
here a way of doing that:

Sub OL_Test()
Const Pth As String = "HKLM\Software\Clients\Mail\"
Const Msg As String = "installed on this computer !"
Dim OL(1, 1) As String
OL(0, 0) = "Microsoft Outlook": OL(1, 0) = "Outlook Express"
OL(0, 1) = " is not ": OL(1, 1) = " is not "
If sKey(Pth & OL(0, 0) & "\") Then OL(0, 1) = " is "
If sKey(Pth & OL(1, 0) & "\") Then OL(1, 1) = " is "
MsgBox OL(0, 0) & OL(0, 1) & Msg & vbLf & OL(1, 0) & OL(1, 1) & Msg, 64
End Sub

Function sKey(K) As Boolean
Dim R
On Error Resume Next
R = CreateObject("WScript.Shell").RegRead(K)
sKey = (Err = 0)
End Function

Regards,
MP

"Francis Ang" a écrit dans le message de
...
How do I write the VBA code to determine whether Microsoft Outlook or Outlook
Express has been installed on a PC? Would appreciate any help.

VBA codes to determine program installed on PC.
 

Thank you very much for your assistance. I really appreciate it.

VBA codes to determine program installed on PC.