Version 3.7.5.1

App/CONFIG_APP/CONFIG_APP.vbproj

@@ -59,11 +59,10 @@
     <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Messaging, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Messaging">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
-      <HintPath>..\..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">

App/CONFIG_APP/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Email-Profiler - Config")>
-<Assembly: AssemblyCopyright("Copyright ©  2018")>
+<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.8.0.0")>
+<Assembly: AssemblyVersion("2.8.1.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

App/CONFIG_APP/frmMain.vb

@@ -4,8 +4,6 @@ Imports System.Text.RegularExpressions
 Imports DigitalData.EMLProfiler
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
-Imports Independentsoft.Email
-Imports Independentsoft.Email.Mime
 
 Public Class frmMain
     Private Logger As DigitalData.Modules.Logging.Logger
@@ -308,7 +306,6 @@ Public Class frmMain
             Try
                 Dim oDiTempPath As New IO.DirectoryInfo(System.IO.Path.GetTempPath)
                 Dim oaryFi As IO.FileInfo() = oDiTempPath.GetFiles()
-                Dim ofi As IO.FileInfo
 
                 For Each fi In oaryFi
                     fi.Delete()

App/DigitalData.EMLProfiler/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("DigitalData.EMLProfiler")>
 <Assembly: AssemblyCopyright("Copyright ©  2022")>
-<Assembly: AssemblyTrademark("")>
+<Assembly: AssemblyTrademark("3.7.5.1")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.7.4.0")>
+<Assembly: AssemblyVersion("3.7.5.1")>
-<Assembly: AssemblyFileVersion("3.7.4.0")>
+<Assembly: AssemblyFileVersion("3.7.5.1")>

App/DigitalData.EMLProfiler/clsEmail.IMAP.vb

@@ -1,7 +1,4 @@
-Imports Independentsoft.Email
+Imports DigitalData.EMLProfiler.ClassCurrent
-Imports Independentsoft.Email.Imap
-Imports Independentsoft.Email.Mime
-Imports DigitalData.EMLProfiler.ClassCurrent
 Imports DigitalData.Modules.Logging
 Imports AE
 Imports System.Net
@@ -29,6 +26,7 @@ Public Class clsEmailIMAP
             oListuids = _limilab.IMAPGetMessageIDs_AllMails()
 
             If IsNothing(oListuids) Then
+                Logger.Warn("List of UIDs was Nothing. Returning False.")
                 Return False
             Else
                 If oListuids.Count > 0 Then
@@ -38,8 +36,10 @@ Public Class clsEmailIMAP
                 Else
                     Logger.Debug("FetchIMAPMessagesLimilab - No Emails found!")
                 End If
+
+                Return True
             End If
-            Return True
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False

App/DigitalData.EMLProfiler/clsWorkEmail.vb

@@ -66,7 +66,7 @@ Public Class clsWorkEmail
             CURRENT_MAIL_BODY_ANSWER1 = ""
             CURRENT_MAIL_BODY_Substr2 = ""
             CURRENT_MAIL_MESSAGE = MyEmailMessage
-            CURRENT_MAIL_SUBJECT = MyEmailMessage.Subject.ToUpper
+            CURRENT_MAIL_SUBJECT = MyEmailMessage.Subject.ToUpper.Replace("'", "''")
             CURRENT_MAIL_MESSAGE_ID = RemoveIllegalFileNameChars(MyEmailMessage.MessageID)
             CURRENT_MAIL_UID = poUID
 
@@ -184,7 +184,7 @@ Public Class clsWorkEmail
             Dim oCreatedWho = "DDEmailProfiler"
 
             Dim oMaskedBodyText = BodyText.Replace("'", "''")
-            Dim oSubjectBodyText = String.Format(EmailStrings.EMAIL_SUBJECT_TEXT, CURRENT_MAIL_SUBJECT).Replace("'", "''")
+            Dim oSubjectBodyText = String.Format(EmailStrings.EMAIL_SUBJECT_TEXT, CURRENT_MAIL_SUBJECT)
             Dim oCompleteBodyText = oMaskedBodyText & oSubjectBodyText
 
             Dim oFinalBodyText = String.Format(EmailStrings.EMAIL_WRAPPING_TEXT, oCompleteBodyText)
@@ -814,8 +814,8 @@ Public Class clsWorkEmail
             Logger.Error(ex)
             Return False
         End Try
-
     End Function
+
     Private Function INSERT_HISTORY_ATTMT_MSSQL(oMSGID As String, ATTMT1 As String)
         If IsNothing(_DB_MSSQL) Then
             Logger.Info("INSERT_HISTORY_FB: _DB_MSSQL is nothing ")
@@ -827,7 +827,7 @@ Public Class clsWorkEmail
           $"('{CURRENT_MAIL_PROCESS_NAME}'," &
           $"'{oMSGID}'," &
           $"'{CURRENT_MAIL_FROM}'," &
-          $"'{CURRENT_MAIL_MESSAGE.Subject}'," &
+          $"'{CURRENT_MAIL_SUBJECT}'," &
           $"'{CURRENT_MAIL_MESSAGE.Date}'," &
           $"'{CURRENT_MAIL_BODY_ALL}'," &
           $"'{ATTMT1}')"

App/DigitalData.EMLProfiler/clsWorker.vb

@@ -1,5 +1,4 @@
 Imports DigitalData.EMLProfiler.ClassCurrent
-Imports Independentsoft.Email.Mime
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
 Imports Limilabs.Mail

App/SERV_EMAIL/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("SERV_EMAIL")>
-<Assembly: AssemblyCopyright("Copyright ©  2018")>
+<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")>

App/SERV_EMAIL/SERV_EMAIL.vbproj

@@ -47,17 +47,11 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DigitalData.EMLProfiler, Version=3.4.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Language">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
-      <HintPath>..\DigitalData.EMLProfiler\bin\Debug\DigitalData.EMLProfiler.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Language, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Logging">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-      <HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Logging, Version=0.0.0.1, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
     <Reference Include="Independentsoft.Email">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Independentsoft.Email.dll</HintPath>
@@ -166,5 +160,11 @@
     <None Include="App.config" />
     <None Include="packages.config" />
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\DigitalData.EMLProfiler\DigitalData.EMLProfiler.vbproj">
+      <Project>{9f748dcd-952e-40a0-9dad-65bf8a39b231}</Project>
+      <Name>DigitalData.EMLProfiler</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>