From 575bae14f52b94ab7c1ba2e64558e73b14efcbb2 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 1 Feb 2022 16:30:47 +0100
Subject: [PATCH] Messaging:  Add Get_MessageDate

---
 Modules.Messaging/Email2.vb | 11 +++++++++++
 1 file changed, 11 insertions(+)

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()