ms

Controls.DocumentViewer/DocumentViewer.vb

@@ -115,7 +115,7 @@ Public Class DocumentViewer
             Dim oFileInfo = New IO.FileInfo(FilePath)
             Dim oExtension As String = oFileInfo.Extension
 
-            Select Case oExtension
+            Select Case oExtension.ToLower
                 Case ".msg"
                     Dim oMsg As New Independentsoft.Msg.Message(FilePath)
                     ' TODO: Improve Encoding, maybe convert based on encoding