Messaging: Version 1.7.2.0

Modules.Language/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.5.0.0")>
+<Assembly: AssemblyVersion("1.5.1.0")>
-<Assembly: AssemblyFileVersion("1.5.0.0")>
+<Assembly: AssemblyFileVersion("1.5.1.0")>

Modules.Language/Utils.vb

@@ -151,6 +151,10 @@ Public Class Utils
         End Try
     End Function
 
+    Public Shared Function TestContainsInvalidCharacters(pString As String) As Boolean
+        Return Not pString.Equals(RemoveInvalidCharacters(pString))
+    End Function
+
     ''' <summary>
     ''' Checks if a point is Visible on any screen
     ''' </summary>

Modules.Logging/LogConfig.vb

@@ -507,7 +507,8 @@ Public Class LogConfig
             .Layout = LOG_FORMAT_DEFAULT,
             .MaxArchiveFiles = MAX_ARCHIVE_FILES_DEFAULT,
             .ArchiveEvery = ARCHIVE_EVERY,
-            .KeepFileOpen = KEEP_FILES_OPEN
+            .KeepFileOpen = KEEP_FILES_OPEN,
+            .Encoding = Text.Encoding.Unicode
         }
 
         Return defaultLog
@@ -519,7 +520,8 @@ Public Class LogConfig
             .Layout = LOG_FORMAT_ERROR,
             .MaxArchiveFiles = MAX_ARCHIVE_FILES_DEFAULT,
             .ArchiveEvery = ARCHIVE_EVERY,
-            .KeepFileOpen = KEEP_FILES_OPEN
+            .KeepFileOpen = KEEP_FILES_OPEN,
+            .Encoding = Text.Encoding.Unicode
         }
 
         Return errorLogWithExceptions
@@ -532,7 +534,8 @@ Public Class LogConfig
             .Layout = LOG_FORMAT_DEFAULT,
             .MaxArchiveFiles = MAX_ARCHIVE_FILES_DEFAULT,
             .ArchiveEvery = ARCHIVE_EVERY,
-            .KeepFileOpen = KEEP_FILES_OPEN
+            .KeepFileOpen = KEEP_FILES_OPEN,
+            .Encoding = Text.Encoding.Unicode
         }
 
         Return errorLog
@@ -548,7 +551,8 @@ Public Class LogConfig
             .KeepFileOpen = KEEP_FILES_OPEN_DEBUG,
             .OpenFileCacheTimeout = OPEN_FILE_CACHE_TIMEOUT,
             .AutoFlush = AUTO_FLUSH,
-            .OpenFileFlushTimeout = OPEN_FILE_FLUSH_TIMEOUT
+            .OpenFileFlushTimeout = OPEN_FILE_FLUSH_TIMEOUT,
+            .Encoding = Text.Encoding.Unicode
         }
 
         Return debugLog
@@ -564,7 +568,8 @@ Public Class LogConfig
             .KeepFileOpen = KEEP_FILES_OPEN_DEBUG,
             .OpenFileCacheTimeout = OPEN_FILE_CACHE_TIMEOUT,
             .AutoFlush = AUTO_FLUSH,
-            .OpenFileFlushTimeout = OPEN_FILE_FLUSH_TIMEOUT
+            .OpenFileFlushTimeout = OPEN_FILE_FLUSH_TIMEOUT,
+            .Encoding = Text.Encoding.Unicode
         }
 
         Return debugLog

Modules.Logging/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Modules.Logging")>
-<Assembly: AssemblyCopyright("Copyright © 2021")>
+<Assembly: AssemblyCopyright("Copyright © 2022")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.5.1.0")>
+<Assembly: AssemblyVersion("2.5.2.0")>
-<Assembly: AssemblyFileVersion("2.5.1.0")>
+<Assembly: AssemblyFileVersion("2.5.2.0")>

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

Modules.Messaging/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Messaging")>
-<Assembly: AssemblyCopyright("Copyright © 2021")>
+<Assembly: AssemblyCopyright("Copyright © 2022")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.7.1.0")>
+<Assembly: AssemblyVersion("1.7.2.0")>
-<Assembly: AssemblyFileVersion("1.7.1.0")>
+<Assembly: AssemblyFileVersion("1.7.2.0")>