Option Explicit

Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")

Dim OutlookPath
OutlookPath = _
	Shell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows" & _
		"\CurrentVersion\App Paths\OUTLOOK.EXE\")

If Len(OutlookPath) = 0 Then
	MsgBox "Cannot fine Outlook.", vbCritical
	WScript.Quit
End If

On Error Resume Next
Shell.Run OutlookPath, 1
If Err.Number <> 0 Then MsgBox "Cannot run Outlook, error " & _
	Hex(Err.Number) & " (hex).", vbCritical
On Error Goto 0

Set Shell = Nothing