AppStd/EmailProfiler
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Bugfixing mit Vektofeld Boolean

Browse Source
This commit is contained in:
SchreiberM
2019-12-20 10:08:48 +01:00
parent e743baf415
commit 37693a8fc0
47 changed files with 462 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll
View File

Binary file not shown.

BIN
App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb
View File

Binary file not shown.

BIN
App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.dll
View File

Binary file not shown.

BIN
App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.pdb
View File

Binary file not shown.

BIN
App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.dll
View File

Binary file not shown.

BIN
App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.pdb
View File

Binary file not shown.

194
App/DigitalData.EMLProfiler/clsEmail.IMAP.vb
View File

@@ -102,7 +102,7 @@ Public Class clsEmailIMAP
Try
Logger.Debug(String.Format("Working on IMAP_COLLECT Independentsoft..."))
Dim oClient As New Independentsoft.Email.Imap.ImapClient(Server, Port)
If IsoftLog <> "" Then
If IsoftLog <> "" And LogConfig.Debug = True Then
Dim iLogger As New Independentsoft.Email.Logger(IsoftLog)
AddHandler iLogger.WriteLog, AddressOf OnWriteLog
oClient.Logger = iLogger
@@ -114,6 +114,7 @@ Public Class clsEmailIMAP
Try
oClient.Login(Username, Password, AuthenticationType.Login)
Catch ex As Exception
Logger.Warn("Error while loginImap.now trying Ntlm-Auth: " & ex.Message)
Try
oClient.Login(Username, Password, AuthenticationType.Ntlm)
Catch ex1 As Exception
@@ -124,47 +125,107 @@ Public Class clsEmailIMAP
End Try
Logger.Debug("Logged in...")
oClient.SelectFolder(Inbox)
Dim oEnvelopes As Independentsoft.Email.Imap.Envelope() = oClient.ListMessages()
Dim coSearchCriteria As New SearchCriteria()
coSearchCriteria.Unseen = True
Dim oCount As Integer = 0
For i As Integer = 0 To oEnvelopes.Length - 1
If IsNothing(oEnvelopes(i).Subject) Then
Logger.Debug("Attention...Subject is nothing!!")
End If
'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
Logger.Info($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
Logger.Debug($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
Dim oUniqueID As Integer() = oClient.Search(coSearchCriteria)
Dim oMessage As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
If Not IsNothing(oMessage) Then
oCount += 1
MAIL_LIST.Add(oMessage)
If IsTest = True Then
MsgBox($"{oUniqueID.Count} unseen messages! (oUniqueID.Length: {oUniqueID.Length.ToString})")
Dim oFoundMessages1 As Message() = New Message(oUniqueID.Length - 1) {}
For i As Integer = 0 To oUniqueID.Length - 1
oFoundMessages1(i) = oClient.GetMessage(oUniqueID(i))
MsgBox($"Message {i.ToString} - {oFoundMessages1(i).Subject}...")
Next
End If
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
For oCounterUnseen As Integer = 0 To oUniqueID.Length - 1
If oEnvelopes(oCounterEnvelope).UniqueID = oUniqueID(oCounterUnseen) Then
If IsTest = True Then
MsgBox($"Working on unseen email: UniqueID: {oEnvelopes(oCounterEnvelope).UniqueID} - Subject:{oEnvelopes(oCounterEnvelope).Subject} - Date {oEnvelopes(oCounterEnvelope).Date.ToString}")
End If
Logger.Info($"Working on unseen email: UniqueID: {oEnvelopes(oCounterEnvelope).UniqueID} - Subject:{oEnvelopes(oCounterEnvelope).Subject} - Date {oEnvelopes(oCounterEnvelope).Date.ToString}")
Logger.Debug($"Working on unseen email: UniqueID: {oEnvelopes(oCounterEnvelope).UniqueID} - Subject:{oEnvelopes(oCounterEnvelope).Subject} - Date {oEnvelopes(oCounterEnvelope).Date.ToString}")
Dim oMessage As Mime.Message = oClient.GetMessage(oEnvelopes(oCounterEnvelope).UniqueID)
If Not IsNothing(oMessage) Then
oCount += 1
MAIL_LIST.Add(oMessage)
oClient.Store(oEnvelopes(oCounterEnvelope).UniqueID, "+FLAGS", "SEEN")
End If
End If
Try
If DeleteinTest = True Then
Logger.Debug($"Message shall be deleted...")
oClient.Delete(oEnvelopes(i).UniqueID)
Logger.Debug($"Message has been marked as deleted!")
End If
Catch ex As Exception
Logger.Warn("Message could not be deleted: " & ex.Message)
End Try
Try
If MoveMailTo <> "" Then
Logger.Debug($"Moving to [{MoveMailTo}] is active...")
oClient.AddMessage(MoveMailTo, oMessage)
Logger.Debug($"Successfully moved!")
End If
Catch ex As Exception
Logger.Warn("Message could not be moved: " & ex.Message)
End Try
Next
Next
'For i As Integer = 0 To oUniqueID.Length - 1
' oFoundMessages(i) = oClient.GetMessage(oUniqueID(i))
' 'If oFoundMessages(i).Subject.ToLower.Contains("seen") Then
' For i1 As Integer = 0 To oEnvelopes.Length - 1
' If oEnvelopes(i1).UniqueID = oUniqueID(i) Then
' Logger.Info($"Working on unseen email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
' Logger.Debug($"Working on unseen email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
' Dim oMessage As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
' If Not IsNothing(oMessage) Then
' oCount += 1
' MAIL_LIST.Add(oMessage)
' oClient.Store(oEnvelopes(i1).UniqueID, "+FLAGS", "SEEN")
' End If
' End If
' Next
' 'End If
'Next
'Dim oEnvelopes As Independentsoft.Email.Imap.Envelope() = oClient.ListMessages()
'Dim oCount As Integer = 0
'For i As Integer = 0 To oEnvelopes.Length - 1
' If IsNothing(oEnvelopes(i).Subject) Then
' Logger.Debug("Attention...Subject is nothing!!")
' End If
' 'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
' Logger.Info($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
' Logger.Debug($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
' Dim oMessage As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
' If Not IsNothing(oMessage) Then
' oCount += 1
' MAIL_LIST.Add(oMessage)
' End If
' Try
' If DeleteinTest = True Then
' Logger.Debug($"Message shall be deleted...")
' oClient.Delete(oEnvelopes(i).UniqueID)
' Logger.Debug($"Message has been marked as deleted!")
' Else
' Logger.Debug("Message will be set to SEEN")
' oClient.Store(oEnvelopes(i).UniqueID, "-FLAGS", "SEEN")
' End If
' Catch ex As Exception
' Logger.Warn("Message could not be deleted: " & ex.Message)
' End Try
' Try
' If MoveMailTo <> "" Then
' Logger.Debug($"Moving to [{MoveMailTo}] is active...")
' oClient.AddMessage(MoveMailTo, oMessage)
' Logger.Debug($"Successfully moved!")
' End If
' Catch ex As Exception
' Logger.Warn("Message could not be moved: " & ex.Message)
' End Try
'Next
oClient.Expunge()
oClient.Disconnect()
If oCount > 0 Then
Logger.Debug($"Found [{oCount.ToString}] Messages...")
Logger.Debug($"###############################################")
Logger.Debug($"Found [{oCount.ToString}] Messages to work on!")
Logger.Debug($"###############################################")
End If
' Logger.Debug($"{oCount.ToString} messages will be worked..")
Logger.Debug("IMAP COLLECT Independentsoft finished!")
@@ -174,6 +235,69 @@ Public Class clsEmailIMAP
Return False
End Try
End Function
Public Function IMAP_Set2Seen(Server As String, Port As Integer, Username As String, Password As String, IsoftLog As String)
Try
Logger.Debug(String.Format("Working on IMAP_Set2Seen Independentsoft..."))
Dim oClient As New Independentsoft.Email.Imap.ImapClient(Server, Port)
If IsoftLog <> "" And LogConfig.Debug = True Then
Dim iLogger As New Independentsoft.Email.Logger(IsoftLog)
AddHandler iLogger.WriteLog, AddressOf OnWriteLog
oClient.Logger = iLogger
End If
oClient.EnableSsl = True
oClient.ValidateRemoteCertificate = False
oClient.Connect()
Try
oClient.Login(Username, Password, AuthenticationType.Login)
Catch ex As Exception
Logger.Warn("Error while loginImap.now trying Ntlm-Auth: " & ex.Message)
Try
oClient.Login(Username, Password, AuthenticationType.Ntlm)
Catch ex1 As Exception
Logger.Error(ex)
Return False
End Try
End Try
Logger.Debug("Logged in...")
oClient.SelectFolder("Inbox")
Dim coSearchCriteria As New SearchCriteria()
coSearchCriteria.Unseen = True
Dim oUniqueID As Integer() = oClient.Search(coSearchCriteria)
Dim oFoundMessages As Message() = New Message(oUniqueID.Length - 1) {}
For i As Integer = 0 To oUniqueID.Length - 1
oFoundMessages(i) = oClient.GetMessage(oUniqueID(i))
If oFoundMessages(i).Subject.ToLower.Contains("seen") Then
Logger.Debug($"Working on unseen email: [{oUniqueID(i)}] Subject:{oFoundMessages(i).Subject} - Date {oFoundMessages(i).Date}")
Dim oEnvelopes1 As Independentsoft.Email.Imap.Envelope() = oClient.ListMessages()
For i1 As Integer = 0 To oEnvelopes1.Length - 1
If oEnvelopes1(i1).UniqueID = oUniqueID(i) Then
Logger.Debug($"Setting email to Unseen!")
oClient.Store(oEnvelopes1(i1).UniqueID, "+FLAGS", "SEEN")
MsgBox("Set to SEEN")
End If
Next
End If
Next
oClient.Expunge()
MsgBox("Expunge done")
oClient.Disconnect()
Logger.Debug("IMAP_Set2Seen finished!")
Return True
Catch ex As Exception
Logger.Error(ex, "Unexpected Error in IMAP_Set2Seen Independentsoft:")
Return False
End Try
End Function
''' <summary>
''' Uses a private API from MailWriter to write a MailMessage to disk.

91
App/DigitalData.EMLProfiler/clsEmail.vb
View File

@@ -5,7 +5,7 @@ Imports Independentsoft.Email.Mime
Imports Independentsoft.Email.Imap
Imports DigitalData.EMLProfiler.ClassCurrent
Imports DigitalData.Modules.Logging
Imports System.Net
Public Class clsEmail
Private Shared Logger As DigitalData.Modules.Logging.Logger
@@ -86,7 +86,7 @@ Public Class clsEmail
Return False
End Try
End Function
Public Function DELETE_EMAIL(msgid As String)
Public Function DELETE_EMAIL(msgid As String, Optional CheckDeletedRun As Boolean = False)
Try
If CURRENT_POLL_TYPE = "POP" Then
Dim client As New Pop3Client(MAIL_SERVER, MAIL_PORT)
@@ -107,24 +107,76 @@ Public Class clsEmail
client.Disconnect()
Return True
ElseIf CURRENT_POLL_TYPE = "IMAP" Then
Try
'Using oClient As New S22.Imap.ImapClient(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, S22.Imap.AuthMethod.Login, True)
' Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, MAIL_INBOX_NAME)
' For Each oMessageId As UInteger In oMessageIds
' If oMessageId = msgid Then
' Logger.Debug($"DELETE_EMAILMessage shall be deleted...")
' oClient.DeleteMessage(oMessageId)
' Logger.Debug($"DELETE_EMAILMessage has been deleted!")
' End If
' Next
' oClient.Expunge() 'delete messages marked as deleted
If CheckDeletedRun = True Then
Try
Logger.Debug(String.Format("Working on S22 Delete..."))
Using oClient As New S22.Imap.ImapClient(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, S22.Imap.AuthMethod.Login, True)
Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, MAIL_INBOX_NAME)
For Each oMessageId As UInteger In oMessageIds
If oMessageId = msgid Then
Logger.Debug($"Message shall be deleted...")
oClient.DeleteMessage(oMessageId)
Logger.Debug($"Message has been deleted!")
End If
Next
oClient.Expunge() 'delete messages marked as deleted
End Using
Catch ex As Exception
Logger.Warn("Error while deleting s22Mail: " & ex.Message)
Return False
End Try
Else
Try
Logger.Debug(String.Format("Working on IMAP Delete..."))
Dim oIMAPClient As New ImapClient(MAIL_SERVER, MAIL_PORT)
oIMAPClient.EnableSsl = True
oIMAPClient.ValidateRemoteCertificate = False
oIMAPClient.Connect()
Try
oIMAPClient.Login(MAIL_USER, MAIL_USER_PW, AuthenticationType.Login)
Catch ex As Exception
Logger.Warn("Error while loginImap.now trying Ntlm-Auth: " & ex.Message)
Try
oIMAPClient.Login(MAIL_USER, MAIL_USER_PW, AuthenticationType.Ntlm)
Catch ex1 As Exception
Logger.Error(ex)
Return False
End Try
End Try
Logger.Debug("Logged in for delete...")
oIMAPClient.SelectFolder(MAIL_INBOX_NAME)
Dim oEnvelopes As Envelope() = oIMAPClient.ListMessages()
For i As Integer = 0 To oEnvelopes.Length - 1
If oEnvelopes(i).MessageID = msgid Then
oIMAPClient.Delete(oEnvelopes(i).UniqueID) 'mark as deleted
End If
Next
oIMAPClient.Expunge() 'delete messages marked as deleted
Dim oDeleted As Boolean = True
For i As Integer = 0 To oEnvelopes.Length - 1
If oEnvelopes(i).MessageID = msgid Then
Logger.Debug("Message is still existing. Deleting did not work!")
oDeleted = False
End If
Next
oIMAPClient.Disconnect()
If oDeleted = False Then
DELETE_EMAIL(msgid, True)
Else
Return True
End If
Catch ex As Exception
Logger.Warn("Error in IMAP Delete: " & ex.Message)
Return False
End Try
End If
'End Using
Return True
Catch ex As Exception
Logger.Warn("Error in IMAP Delete: " & ex.Message)
Return False
End Try
Else
Return False
@@ -139,6 +191,7 @@ Public Class clsEmail
mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
AUTH_TYPE As String, Optional attment As String = "")
Try
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Logger.Debug($"in Email_Send_Independentsoft..")
Dim empfaenger As String()
If mailto.Contains(";") Then

47
App/DigitalData.EMLProfiler/clsWindream_Index.vb
View File

@@ -40,6 +40,7 @@ Public Class clsWindream_Index
Sub New(LogConf As LogConfig)
MyBase.New(LogConf)
Logger = LogConf.GetLogger
LogConf.Debug = True
End Sub
Private Function IsNotEmpty(ByVal aValue As Object)
@@ -141,6 +142,8 @@ Public Class clsWindream_Index
Logger.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch")
Case 4099
Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Case 4100
Logger.Debug("Typ des windream-Indexes: 4100 Vektor Boolean")
Case 4101
Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
Case 4103
@@ -165,7 +168,8 @@ Public Class clsWindream_Index
Dim str As String = aValues(0)
str = str.ToString.Replace(" ", "")
myArray(0) = CDbl(str.Replace(".", ","))
Case 4100
myArray(0) = CBool(aValues(0))
Case 4101
myArray(0) = CDate(aValues(0))
Case 4103
@@ -207,6 +211,8 @@ Public Class clsWindream_Index
myArray(i1) = OConvertValue
Case 4099
myArray(i1) = CDbl(aValue.Replace(".", ",").Replace(" ", ""))
Case 4100
myArray(i1) = CBool(aValue)
Case 4101
myArray(i1) = CDate(aValue)
Case 4103
@@ -299,6 +305,7 @@ Public Class clsWindream_Index
Case WMObjectVariableValueTypeString
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString")
OConvertValue = CStr(value)
Logger.Debug($"OConvertValue.Length [{OConvertValue.ToString.Length}] - Content/Value: [{OConvertValue}]")
Case WMObjectVariableValueTypeInteger
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
value = value.ToString.Replace(" ", "")
@@ -313,6 +320,7 @@ Public Class clsWindream_Index
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
value = value.ToString.Replace(" ", "")
OConvertValue = CDbl(value)
Case WMObjectVariableValueTypeFixedPoint
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
value = value.ToString.Replace(" ", "")
@@ -365,6 +373,9 @@ Public Class clsWindream_Index
Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
'Vektor Kommazahl
oIsVector = True
Case 4100
Logger.Debug("Typ des windream-Indexes: 4100 Vektor Boolean")
oIsVector = True
Case 4101
Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
'Vektor Kommazahl
@@ -381,7 +392,7 @@ Public Class clsWindream_Index
'Vektor Kommazahl
oIsVector = True
Case Else
Logger.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!")
Logger.Debug($"Typ des windream-Indexes [{indexname} - Typ: {vType.ToString} ] konnte nicht bestimmt werden!")
Logger.Debug("Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
OConvertValue = ""
@@ -396,7 +407,6 @@ Public Class clsWindream_Index
'############################################################################################
If oIsVector = False Then
If OConvertValue.ToString Is Nothing = False Then
Logger.Debug("Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & OConvertValue & ")")
If _int = True Then
OConvertValue = OConvertValue.ToString.Replace(" ", "")
@@ -409,7 +419,14 @@ Public Class clsWindream_Index
OConvertValue = OConvertValue.ToString.Replace(" ", "")
oDocument.SetVariableValue(aName, CDbl(OConvertValue))
Else
oDocument.SetVariableValue(aName, OConvertValue)
If OConvertValue.ToString.Length <= 512 Then
oDocument.SetVariableValue(aName, OConvertValue)
Else
Logger.Info($"Will not set indexvalue of index [{aName}] with the full length as Length > 512 [{OConvertValue.ToString.Length}]")
oDocument.SetVariableValue(aName, OConvertValue.ToString.Substring(0, 511))
End If
End If
Logger.Info(String.Format("Index '{0}' was written with value '{1}'", aName, OConvertValue))
@@ -444,7 +461,7 @@ Public Class clsWindream_Index
'Next
Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 1 Then
If Anzahl = 1 And vType = 4100 Then
Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0)
Select Case vType
@@ -463,6 +480,8 @@ Public Class clsWindream_Index
Str = Str.ToString.Replace(" ", "")
'Umwandeln in Double
myArray(0) = CDbl(Str.Replace(".", ","))
Case 4100
myArray(0) = CBool(value)
Case 4101
'Umwandeln in Date
myArray(0) = CDate(value)
@@ -539,6 +558,17 @@ Public Class clsWindream_Index
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
Case 4100
ReDim myArray(Anzahl - 1)
Dim i1 As Integer = 0
'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each NewValue As Object In aValues
Dim Str As String = NewValue.ToString
myArray(i1) = CBool(Str)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
Case 4101
'Vektortyp DATE
'Die Größe des Arrays festlegen
@@ -584,7 +614,6 @@ Public Class clsWindream_Index
'SetRights(WMObject, User)
oDocument.Save()
oDocument.unlock()
Logger.Debug("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Logger.Debug("")
@@ -765,6 +794,9 @@ Public Class clsWindream_Index
Case 4099
Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Return True
Case 4100
Logger.Debug("Typ des windream-Indexes: 4100 Vektor Boolean")
Return True
Case 4101
Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
Return True
@@ -778,8 +810,7 @@ Public Class clsWindream_Index
Logger.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
Return True
Case Else
Logger.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!")
Logger.Debug($"GetCheckISVektor Typ des windream-Indexes [{oIndexname} - Typ: {vType.ToString} ] konnte nicht bestimmt werden!")
End Select
Return False
End Function

17
App/DigitalData.EMLProfiler/clsWorkEmail.vb
View File

@@ -20,9 +20,6 @@ Public Class clsWorkEmail
Try
Logger = LogConf.GetLogger
MyLogger = LogConf
If LogConf.Debug = True Then
Logger.Info("DEBUG Active")
End If
_email = New clsEmail(LogConf)
_DB_MSSQL = New clsDatabase(LogConf, ConStr)
_windream = New clsWindream_allgemein(LogConf)
@@ -38,7 +35,6 @@ Public Class clsWorkEmail
End Sub
Public Function WORK_MAIL(MyEmailMessage As Message)
Try
Logger.Debug($"Starting WORK_MAIL...")
CURRENT_MAIL_BODY_ALL = ""
CURRENT_MAIL_BODY_ANSWER1 = ""
@@ -97,7 +93,14 @@ Public Class clsWorkEmail
Dim TEMP_PROCESS_PROFILE_DT As DataTable = DT_POLL_PROCESS
Dim PM_ROW As DataRow() = TEMP_PROCESS_PROFILE_DT.Select(oExpression)
For Each row As DataRow In PM_ROW
WM_REFERENCE_INDEX = row("WM_REFERENCE_INDEX")
Try
WM_REFERENCE_INDEX = row("WM_REFERENCE_INDEX")
Catch ex As Exception
Logger.Debug($"PM_IN Attention WM_REFERENCE_INDEX seems to be Empty/null: {ex.Message}")
WM_REFERENCE_INDEX = Nothing
End Try
WM_VECTOR_LOG = row("WM_VECTOR_LOG")
WM_OBJEKTTYPE = row("WM_OBJEKTTYPE")
WM_IDX_BODY_TEXT = row("WM_IDX_BODY_TEXT")
@@ -157,6 +160,7 @@ Public Class clsWorkEmail
Try
WM_REFERENCE_INDEX = oDataRow("WM_REFERENCE_INDEX")
Catch ex As Exception
Logger.Debug($"Attention WM_REFERENCE_INDEX seems to be Empty/null: {ex.Message}")
WM_REFERENCE_INDEX = Nothing
End Try
Try
@@ -187,8 +191,11 @@ Public Class clsWorkEmail
Private Function SAVE2TEMP()
Try
Dim oTempPath As String = Path.Combine(Path.GetTempPath, "DD_EmailProfiler")
Logger.Debug($"oTempPath is: {oTempPath} ...")
If Directory.Exists(oTempPath) = False Then
Directory.CreateDirectory(oTempPath)
Else
Logger.Debug($"oTempPath [{oTempPath}] is already existing!!")
End If
Dim oFileEntries As String() = Directory.GetFiles(oTempPath)
' Process the list of files found in the directory.

22
App/DigitalData.EMLProfiler/clsWorker.vb
View File

@@ -129,7 +129,6 @@ Public Class clsWorker
pollresult = _email.POP3_COLLECT()
Case "IMAP"
'pollresult = _emailIMAP.IMAP_COLLECT()
' 09.04.19: Use S22.Imap instead of IndependentSoft ImapClient
pollresult = _emailIMAP.FetchIMAPMessagesIsoft(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_INBOX_NAME)
End Select
End If
@@ -162,9 +161,28 @@ Public Class clsWorker
For Each _file In TEMP_FILES
System.IO.File.Delete(_file)
Next
Catch ex As Exception
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
Try
fi.Delete()
Catch ex As Exception
Logger.Warn($"SWP1 - Could not delete the tempfile: {ex.Message}")
End Try
Next
Catch ex As Exception
Logger.Warn($"SWP2 - Could not delete the tempfile: {ex.Message}")
End Try
Catch ex As Exception
Logger.Warn($"SWP - Could not delete the tempfile from TEMP_FILES: {ex.Message}")
End Try
Else
Logger.Info("No active profiles")
End If

BIN
App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll
View File

Binary file not shown.

BIN
App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb
View File

Binary file not shown.

6
App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt
View File

@@ -1,6 +1,3 @@
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\bin\Debug\DigitalData.EMLProfiler.dll.config
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\DigitalData.EMLProfiler.dll
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\DigitalData.EMLProfiler.pdb
@@ -24,6 +21,9 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\NLog.xml
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\bin\Debug\FirebirdSql.Data.FirebirdClient.pdb
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