diff --git a/Modules.Messaging/Email2.vb b/Modules.Messaging/Email2.vb
index 4dd5f177..dc1a4d01 100644
--- a/Modules.Messaging/Email2.vb
+++ b/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()