Messaging: Add Get_MessageDate

Modules.Messaging/Email2.vb

@@ -353,6 +353,17 @@ Public Class Email2
         Next
     End Sub
 
+    Public Function Get_MessageDate(Mail As IMail) As Date
+        Try
+            Dim oDate = Mail.Date
+            Return oDate
+        Catch ex As Exception
+            Logger.Warn("Could not get Date from Mail [{0}]", Mail.MessageID)
+            Logger.Error(ex)
+            Return Date.MinValue
+        End Try
+    End Function
+
     Public Function Get_MessageSender(Mail As IMail) As String
         Try
             Dim oAddress = Mail.From.First()