;; 
;;====================================================================== 
;; 
;;FUNCTION       OutlookVersion() / OutlookRelease() 
;; 
;;ACTION         Returns the Version or Release of MS Outlook 
;; 
;;AUTHOR         Glenn Barnas 
;; 
;;VERSION        1.0 / 2008/09/12 
;; 
;;SYNTAX         OutlookVersion() 
;;		 OutlookRelease(VER) 
;; 
;;PARAMETERS     VER - REQUIRED - OutlookRelease() only - the Outlook version code 
;; 
;;REMARKS        Returns the Outlook version code and release data 
;;		 This is useful when trying to auto-configure Outlook in a mixed-version 
;;		 environment. 
;; 
;;RETURNS        Integer / String - see individual function header for details 
;; 
;;DEPENDENCIES   none 
;; 
;;TESTED WITH    W2K, WXP, W2K3 
;; 
;;EXAMPLES       $OLVer = OutlookVersion() 
;;		 $OLRel = OutlookRelease($OLVer) 
; 
; Determine the most current version of Outlook. Returns a CODE representing the version found, 
; or ZERO if none found 
; Outlook Versions: 
; Code  Ver   Description 
;  1 -  8.0 - Office 97 
;  2 -  9.0 - Office 2000 
;  3 - 10.0 - Office XP 
;  4 - 11.0 - Office 2003 
;  5 - 12.0 - Office 2007 
; 
Function OutlookVersion()
 
  Dim $_Ie			; Index var - enumerator 
  Dim $_EKey			; Enumeration Key 
  Dim $_OVer			; Outlook Version 
 
  $_Ie = 0
  $_EKey = EnumKey('HKEY_CURRENT_USER\Software\Microsoft\Office', $_Ie)
  While Not @ERROR
    If Val($_EKey) > 0
      If Val($_EKey) > $_OVer
        If KeyExist('HKEY_CURRENT_USER\Software\Microsoft\Office\' + $_EKey + '\Outlook')
          $_OVer = Val($_EKey)
        EndIF
      EndIf
    EndIf
    $_Ie = $_Ie + 1
    $_EKey = EnumKey('HKEY_CURRENT_USER\Software\Microsoft\Office', $_Ie)
 
  Loop
 
  $OutlookVersion = IIf($_OVer > 0, $_OVer - 7, 0)
  If $OutlookVersion = 0
    Exit 2
  EndIf
 
  Exit 0
 
EndFunction
 
Function OutlookRelease($_Ver)
 
  Dim $_Path
 
  Select
    Case $_Ver = 1
      $_Path = ReadValue('HKLM\SOFTWARE\Microsoft\Office\8.0\Outlook\InstallRoot', 'Path') + 'outllib.dll'
    Case $_Ver = 2
      $_Path = ReadValue('HKLM\SOFTWARE\Microsoft\Office\9.0\Outlook\InstallRoot', 'Path') + 'outllib.dll'
    Case $_Ver = 3
      $_Path = ReadValue('HKLM\SOFTWARE\Microsoft\Office\10.0\Outlook\InstallRoot', 'Path') + 'outllib.dll'
    Case $_Ver = 4
      $_Path = ReadValue('HKLM\SOFTWARE\Microsoft\Office\11.0\Outlook\InstallRoot', 'Path') + 'outllib.dll'
    Case $_Ver = 5
      $_Path = ReadValue('HKLM\SOFTWARE\Microsoft\Office\12.0\Outlook\InstallRoot', 'Path') + 'outlook.exe'
  EndSelect
 
  $OutlookRelease = Split(GetFileVersion($_Path), '.')[2]
  Exit @ERROR
 
EndFunction