jj for ms

App/CONFIG_APP/bin/Debug/Log/2021-01-18-Email-Profiler - Config-Error.log

@@ -0,0 +1,4 @@
+2021-01-18 09:09:44|clsWorkEmail|ERROR >> Ungültige Konvertierung von Typ DBNull in Typ String.    bei Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value)
+   bei DigitalData.EMLProfiler.clsWorkEmail.COMMON_EMAIL_IN() in E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\clsWorkEmail.vb:Zeile 181.
+2021-01-18 09:09:48|clsDatabase|WARN >> Unexpected Error in Execute_non_Query: Ungültiger Spaltenname "PROFILE_ID".
+2021-01-18 09:09:48|clsDatabase|WARN >> SQL: INSERT INTO TBEMLP_HISTORY (WORK_PROCESS,EMAIL_MSGID,EMAIL_SUBJECT,EMAIL_DATE,EMAIL_BODY,EMAIL_SUBSTRING1,EMAIL_SUBSTRING2,EMAIL_FROM,PROFILE_ID) VALUES ('Attachment Sniffer','645968143.4849.1605607251487@w2k12srv187','Rechnung 3250000712 vom 17.11.2020','17.11.2020 11:00:51','','','','Kerstin.Franke@wisag.de',2)

App/CONFIG_APP/bin/Debug/Log/2021-01-18-Email-Profiler - Config.log

@@ -0,0 +1,8 @@
+2021-01-18 09:06:33|frmMain|INFO >> ## Manual working on file E:\ForwardedMessage.eml ... 
+2021-01-18 09:09:29|frmMain|INFO >> ## Manual working on file E:\ForwardedMessage.eml ... 
+2021-01-18 09:09:36|clsWorker|INFO >> Worked/Pulled: 1 E-Mails
+2021-01-18 09:09:36|clsWorkEmail|INFO >> No relation configured for this email - Subject[RECHNUNG 3250000712 VOM 17.11.2020]
+2021-01-18 09:09:36|clsWorkEmail|INFO >> COMMON_EMAIL_IN...Subject [Rechnung 3250000712 vom 17.11.2020]
+2021-01-18 09:09:48|clsDatabase|WARN >> Unexpected Error in Execute_non_Query: Ungültiger Spaltenname "PROFILE_ID".
+2021-01-18 09:09:48|clsDatabase|WARN >> SQL: INSERT INTO TBEMLP_HISTORY (WORK_PROCESS,EMAIL_MSGID,EMAIL_SUBJECT,EMAIL_DATE,EMAIL_BODY,EMAIL_SUBSTRING1,EMAIL_SUBSTRING2,EMAIL_FROM,PROFILE_ID) VALUES ('Attachment Sniffer','645968143.4849.1605607251487@w2k12srv187','Rechnung 3250000712 vom 17.11.2020','17.11.2020 11:00:51','','','','Kerstin.Franke@wisag.de',2)
+2021-01-18 09:09:48|clsWorker|INFO >> TempFileDelete - Could not delete the tempfile from TEMP_FILES: Der Prozess kann nicht auf die Datei "C:\Users\SchreiberM\AppData\Local\Temp\DD_EmailProfiler\Rechnung 3250000712 vom 17.11.2020.eml" zugreifen, da sie von einem anderen Prozess verwendet wird.

App/CONFIG_APP/frmMain.vb

@@ -290,7 +290,7 @@ Public Class frmMain
             For Each ofile As String In _Worklist
                 _Localemail = ofile
                 Logger.Info($"## Manual working on file {ofile} ... ")
-                Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, _Localemail)
+                Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, _Localemail)
                 _work.Start_WorkingProfiles(True)
             Next
 

App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt

@@ -1,5 +1,3 @@
-E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Pdf.v18.1.Core.dll
-E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.Resources.resources
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe.config
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.pdb
@@ -19,6 +17,7 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\NLog.d
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\S22.Imap.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Interop.WINDREAMLib.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Database.dll
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Pdf.v18.1.Core.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Sparkline.v18.1.Core.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraBars.v18.1.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.RichEdit.v18.1.Core.dll
@@ -107,6 +106,7 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\ja\Dev
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\ru\DevExpress.Office.v18.1.Core.resources.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbprojAssemblyReference.cache
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.frmMain.resources
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.Resources.resources
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.GenerateResource.cache
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.exe.licenses
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.CopyComplete

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

@@ -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.9.0.0")>
-<Assembly: AssemblyFileVersion("2.8.0.0")>
+<Assembly: AssemblyFileVersion("2.9.0.0")>

App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.xml

@@ -133,7 +133,7 @@ DigitalData.Modules.Logging
  Clears the internal log
  </summary>
 </member>
-<member name="M:DigitalData.Modules.Logging.LogConfig.GetClassFullName">
+<member name="M:DigitalData.Modules.Logging.LogConfig.GetClassFullName(System.Boolean)">
  <summary>
  Gets the fully qualified name of the class invoking the calling method,
  including the namespace but Not the assembly.  

App/DigitalData.EMLProfiler/clsEmail.IMAP.vb

@@ -202,15 +202,18 @@ Public Class clsEmailIMAP
 
             Dim oFoundMessages As Message() = New Message(oUniqueID.Length - 1) {}
             Dim oEnvelopes As Independentsoft.Email.Imap.Envelope() = oClient.ListMessages()
+
             For oCounterEnvelope As Integer = 0 To oEnvelopes.Length - 1
+                Logger.Debug($"oEnvelopes.Length: {oEnvelopes.Length}")
                 For oCounterEmailInPostbox As Integer = 0 To oUniqueID.Length - 1
+
                     If oEnvelopes(oCounterEnvelope).UniqueID = oUniqueID(oCounterEmailInPostbox) Then
                         Dim oMimeMessage As Mime.Message = oClient.GetMessage(oEnvelopes(oCounterEnvelope).UniqueID)
                         If Not IsNothing(oMimeMessage) Then
                             Dim oMessageID = oMimeMessage.MessageID
                             oMessageID = oMessageID.Replace(">", "").Replace("<", "")
                             'oEnvelopes(oCounterEnvelope).UniqueI
-                            Logger.Debug($"Isoft: Working on email: MessageID [{oMessageID}] - Subject[{oEnvelopes(oCounterEnvelope).Subject}] - Date [{oEnvelopes(oCounterEnvelope).Date.ToString}]")
+                            Logger.Info($"Isoft: Working on email: MessageID [{oMessageID}] - Subject[{oEnvelopes(oCounterEnvelope).Subject}] - Date [{oEnvelopes(oCounterEnvelope).Date.ToString}]")
                             Dim oCHECKSQL = $"SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('{oMessageID}')"
                             Dim oCHECKDT As DataTable = _DB_MSSQL.Return_Datatable(oCHECKSQL)
                             If Not IsNothing(oCHECKDT) Then
@@ -227,11 +230,12 @@ Public Class clsEmailIMAP
                                         Dim oUpd = $"UPDATE TBEMLP_HISTORY SET DATE_DELETED_INBOX = GETDATE(), COMMENT = 'DELETED MESSAGE FROM INBOX (2ndRun ALREADY WORKED)' WHERE lower(EMAIL_MSGID) = lower('{oMessageID}')"
                                         _DB_MSSQL.Execute_non_Query(oUpd)
                                     Catch ex As Exception
-                                        Logger.Warn($"Error deleting/Commentign message due to to already worked: {ex.Message}")
+                                        Logger.Warn($"Error deleting/Commenting message due to to already worked: {ex.Message}")
                                     End Try
 
                                 End If
                                 oClient.Store(oEnvelopes(oCounterEnvelope).UniqueID, "+FLAGS", "SEEN")
+
                                 If MoveMailTo <> String.Empty Then
                                     Try
                                         oClient.AddMessage(MoveMailTo, oMimeMessage)
@@ -239,6 +243,10 @@ Public Class clsEmailIMAP
                                         Logger.Warn($"Isoft: Could not move message to folder [{MoveMailTo}] - Error: {ex.Message}")
                                     End Try
                                 End If
+                                If oMessageCountRegular = 250 Then
+                                    Logger.Warn($"Worked 100 Mails exiting oCounterEmailInPostbox!")
+                                    Exit For
+                                End If
                             End If
 
                         End If

App/DigitalData.EMLProfiler/clsWorker.vb

@@ -14,7 +14,7 @@ Public Class clsWorker
     Private _wrapper As clsEncryption
     Private _POLL_PROFILEID As Integer = 0
     Dim cs As String
-    Sub New(LogConf As LogConfig, ConStr As String, POLL_PROFILEID As Integer, FB_DATASOURCE As String, FB_DATABASE As String, FB_USER As String, FB_PW As String, USE_WM As Boolean, Optional localeml As String = "")
+    Sub New(LogConf As LogConfig, ConStr As String, POLL_PROFILEID As Integer, FB_DATASOURCE As String, FB_DATABASE As String, FB_USER As String, FB_PW As String, USE_WM As Boolean, Optional plocaleml As String = "")
         Logger = LogConf.GetLogger
         _email = New clsEmail(LogConf)
         _emailIMAP = New clsEmailIMAP(LogConf, ConStr)
@@ -29,7 +29,7 @@ Public Class clsWorker
         _workmail = New clsWorkEmail(LogConf, ConStr, FB_DATASOURCE, FB_DATABASE, FB_USER, FB_PW, USE_WM)
         _wrapper = New clsEncryption("!35452didalog=", LogConf)
         _POLL_PROFILEID = POLL_PROFILEID
-        ClassCurrent.CURRENT_DEBUG_LOCAL_EMAIL = localeml
+        ClassCurrent.CURRENT_DEBUG_LOCAL_EMAIL = plocaleml
     End Sub
 
     Public Sub Debug_Local_Email()

App/DigitalData.EMLProfiler/obj/Debug/.NETFramework,Version=v4.6.1.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6.1", FrameworkDisplayName:=".NET Framework 4.6.1")>

App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+5c442f91a6238bfda874aa2a69de6ef1e62a37ae

App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt

@@ -22,6 +22,7 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\S22.Imap.xml
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.Resources.resources
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.GenerateResource.cache
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.CopyComplete
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.dll
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.xml

App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.xml

@@ -133,7 +133,7 @@ DigitalData.Modules.Logging
  Clears the internal log
  </summary>
 </member>
-<member name="M:DigitalData.Modules.Logging.LogConfig.GetClassFullName">
+<member name="M:DigitalData.Modules.Logging.LogConfig.GetClassFullName(System.Boolean)">
  <summary>
  Gets the fully qualified name of the class invoking the calling method,
  including the namespace but Not the assembly.  

App/SERV_EMAIL/obj/Debug/.NETFramework,Version=v4.6.1.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6.1", FrameworkDisplayName:=".NET Framework 4.6.1")>

App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-194f0e0b9909d26a065a24a0efa14204b59b0794
+42de2b8f54b73569520f05720ef3d431bcc3629b

App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.FileListAbsolute.txt

@@ -45,3 +45,5 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_E
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.exe
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.xml
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.pdb
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.vbprojAssemblyReference.cache
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.vbproj.CoreCompileInputs.cache