Outlook-Version ermitteln

Die volle Versionsnummer steht in der Eigenschaft Application.Version. Anhand der ersten beiden Zeichen erkennen Sie, ob es sich um z.B. Outlook 2010 oder 2013 handelt.

  So fügen Sie Makros in Outlook ein

Private Function GetOutlookVersion() As Long
  Dim v as String
  v = left$(Application.Version, 2)
  Select Case v
  Case "8.": GetOutlookVersion = 8
  Case "9.": GetOutlookVersion = 9
  Case Else: GetOutlookVersion = v
  End Select
End Function