EmailProfiler/App/CONFIG_APP/frmMain.vb

Imports DigitalData.EMLProfiler
Imports DigitalData.Modules.Logging
Imports System.IO
Imports System.Net
Imports System.ComponentModel
Imports Independentsoft.Email
Imports Independentsoft.Email.Mime

Public Class frmMain
    Private Logger As DigitalData.Modules.Logging.Logger
    Private Shared MyLogger As LogConfig
    Private _database As clsDatabase
    Private _Encryption As clsEncryption
    Private _windream As clsWindream_allgemein
    Private _email As clsEmail
    Private _emailIMAP As clsEmailIMAP
    Private _LoadInProgress As Boolean = True

    Public Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBEMLP_CONFIG". Sie können sie bei Bedarf verschieben oder entfernen.

        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBEMLP_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.

        ToolStripProgressBar1.Visible = False
        MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), "Log")
        Logger = MyLogger.GetLogger()
        _windream = New clsWindream_allgemein(MyLogger)
        _email = New clsEmail(MyLogger)
        _emailIMAP = New clsEmailIMAP(MyLogger)
        InitDatabase()
        If Set_ConnectionStrings() Then
            Load_AllData()
            Check_Steps()
            Active_Color()
        End If
        ObjektTypenEintragen()
        _Encryption = New clsEncryption("!35452didalog=", MyLogger)
    End Sub
    Private Function Set_ConnectionStrings()
        Try
            Me.TBEMLP_POLL_PROFILESTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            Me.TBEMLP_POLL_PROCESSTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            Me.TBEMLP_POLL_STEPSTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            Me.TBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            Me.TBDD_EMAIL_ACCOUNTTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            Me.TBEMLP_HISTORYTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            Me.TBEMLP_CONFIGTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString

            Return True
        Catch ex As Exception
            MsgBox("Unexpected Error in Set ConnectionStrings: " & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try
    End Function
    Sub Load_AllData()
        Try
            Me.TBDD_EMAIL_ACCOUNTTableAdapter.Fill(Me.MyDataset.TBDD_EMAIL_ACCOUNT)
            Me.TBEMLP_POLL_PROFILESTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_PROFILES)
            Me.TBEMLP_POLL_PROCESSTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_PROCESS)
            Me.TBEMLP_POLL_STEPSTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_STEPS)
            Me.TBEMLP_POLL_INDEXING_STEPSTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_INDEXING_STEPS)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_AllData: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_Profiles()
        Try
            Me.TBEMLP_POLL_PROFILESTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_PROFILES)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_Profiles: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_Processes()
        Try
            Me.TBEMLP_POLL_PROCESSTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_PROCESS)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_Processes: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_Steps()
        Try
            Me.TBEMLP_POLL_STEPSTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_STEPS)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_Steps: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_History()
        Try
            Me.TBEMLP_HISTORYTableAdapter.Fill(Me.MyDataset.TBEMLP_HISTORY)
        Catch ex As Exception
            MsgBox("Error in Load History: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_indexingSteps()
        Try
            Me.TBEMLP_POLL_INDEXING_STEPSTableAdapter.Fill(Me.MyDataset.TBEMLP_POLL_INDEXING_STEPS)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_indexingSteps: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Load_Config()
        Try
            _LoadInProgress = True
            Me.TBEMLP_CONFIGTableAdapter.Fill(Me.MyDataset.TBEMLP_CONFIG)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_Config: " & ex.Message, MsgBoxStyle.Critical)
        End Try
        _LoadInProgress = False
    End Sub
    Private Sub ObjektTypenEintragen()
        Try
            If IsNothing(_windream) Then
                Exit Sub
            End If
            ' Combobox leeren
            Me.WM_OBJEKTTYPEComboBox.Items.Clear()
            Dim result = _windream.GetObjecttypesAsStrings
            ' alle Objekttypen durchlaufen
            For Each oStr In result
                ' und in die Combobox eintragen
                Me.WM_OBJEKTTYPEComboBox.Items.Add(oStr)
            Next
        Catch ex As Exception
            MsgBox("Unexpected error in ObjektTypenEintragen", MsgBoxStyle.Critical)
        End Try

    End Sub

    Public Function InitDatabase()
        Dim dbResult As Boolean
        tslblstatus.BackColor = Color.Transparent
        If My.Settings.MyConnectionString <> String.Empty Then
            _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
            dbResult = _database.Init(My.Settings.MyConnectionString)
        Else
            MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)

            TabControl1.SelectedIndex = 1
            tslblstatus.Text = "Please add a connection!"
            tslblstatus.BackColor = Color.Red
        End If
        If dbResult = False Then
            MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
            Return False
        Else
            Return True
        End If
    End Function
    Private Sub cmbDatenbank_Click(sender As Object, e As EventArgs) Handles cmbDatenbank.Click

        Try
            Me.Cursor = Cursors.WaitCursor
            Dim csb As New SqlClient.SqlConnectionStringBuilder
            csb.DataSource = Me.txtServer.Text
            csb.IntegratedSecurity = False
            csb.UserID = Me.txtUser.Text
            csb.Password = Me.txtPasswort.Text

            Dim con As String
            If chkbxUserAut.Checked Then
                con = "Data Source=" & Me.txtServer.Text & ";Trusted_Connection=True;"
            Else
                'con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
                con = "Server=" & Me.txtServer.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
            End If
            Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
            connection.Open()
            MyConnectionString = con
            My.Settings.Save()
            Dim cmd As New SqlClient.SqlCommand("sp_databases", connection)
            cmd.CommandType = CommandType.StoredProcedure
            ' Ausführen und Ergebnis in einer ListBox anzeigen
            Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
            If dr.HasRows Then
                cmbDatenbank.Items.Clear()
                Do While dr.Read
                    cmbDatenbank.Items.Add(dr("Database_Name"))
                Loop
                cmbDatenbank.DroppedDown = True
            Else
                MsgBox("The standard-databases could not be retrieved. The default database will be set!" & vbNewLine & "Check rights in sql-server for user: " & Me.txtUser.Text, MsgBoxStyle.Exclamation)
                cmbDatenbank.Text = "DD_ECM"
            End If
            connection.Close()
        Catch ex As Exception
            If ex.Message.ToLower.Contains("he standard-databases") Or ex.Message.ToLower.Contains("ie standard-datenbanken") Then
                cmbDatenbank.Text = "DD_ECM"
            End If
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Databases:")
        End Try
        Cursor = Cursors.Default
    End Sub
    Private Sub BtnConnect_Click_1(sender As Object, e As EventArgs) Handles BtnConnect.Click
        Try
            Dim con As String
            If chkbxUserAut.Checked Then
                con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;Application Name=DD ADDI-Client"
            Else
                con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";Application Name=DD ADDI-Client"
            End If


            Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
            'während Verbindungsaufbau Sanduhr-Mauszeiger
            Cursor = Cursors.WaitCursor
            connection.Open()
            Cursor = Cursors.Default
            'DialogResult = Windows.Forms.DialogResult.OK
            Dim result As MsgBoxResult
            Dim msg = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?"
            'If USER_LANGUAGE <> "de-DE" Then
            '    msg = "Connection was successfully opened!" & vbNewLine & "Would You like to save it?"
            'End If
            result = MessageBox.Show(msg, "Database-Connection", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = MsgBoxResult.Yes Then
                'Set the construction string
                MyConnectionString = con
                My.Settings.MyConnectionString = MyConnectionString
                'csb.ConnectionString
                _database.Init(MyConnectionString)
                My.Settings.Save()

                If chkbxUserAut.Checked = False Then
                    Dim cipherText As String = _Encryption.EncryptData(Me.txtPasswort.Text)
                    Dim pw As String = cipherText
                    con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
                End If

                Dim csb As New SqlClient.SqlConnectionStringBuilder
                csb.ConnectionString = MyConnectionString
                Dim constr = connection.ConnectionString
                If chkbxUserAut.Checked = False Then
                    constr = constr.Replace(csb.Password, "XXXXX")
                End If
            End If
        Catch ex As Exception
            Cursor = Cursors.Default
            MsgBox("Error in Connectionbuild: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
        _work.Start_WorkingProfiles()
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        If e.Error IsNot Nothing Then
            '' if BackgroundWorker terminated due to error
            MessageBox.Show(e.Error.Message)
            'Label1.Text = "Error occurred!"

        ElseIf e.Cancelled Then
            '' otherwise if it was cancelled
            MessageBox.Show("Task cancelled!")
            '  Label1.Text = "Task Cancelled!"

        Else
            '' otherwise it completed normally
            MessageBox.Show("Manual Run completed!")
            'Label1.Text = "Error completed!"
        End If
        tsbtnRunProfiles.Enabled = True
        ToolStripProgressBar1.Visible = False
    End Sub

    Private Sub tsbtnRunProfiles_Click(sender As Object, e As EventArgs) Handles tsbtnRunProfiles.Click
        If Not BackgroundWorker1.IsBusy Then
            tsbtnRunProfiles.Enabled = False
            ToolStripProgressBar1.Visible = True
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub
    Private Sub mWorker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Me.ToolStripProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub btnShowLogpath_Click(sender As Object, e As EventArgs) Handles btnShowLogpath.Click
        Process.Start(MyLogger.LogDirectory)
    End Sub

    Private Sub TBEMLP_POLL_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TBEMLP_POLL_PROFILESBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.MyDataset)

    End Sub

    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
        Load_AllData()
    End Sub

    Private Sub ToolStripButton10_Click(sender As Object, e As EventArgs) Handles ToolStripButton10.Click
        Load_Processes()
    End Sub

    Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
        Try
            TBEMLP_POLL_PROCESSBindingSource.EndEdit()
            If MyDataset.TBEMLP_POLL_PROCESS.GetChanges Is Nothing = False Then
                CHANGED_WHOProcessTextBox.Text = Environment.UserName
                TBEMLP_POLL_PROCESSBindingSource.EndEdit()
                TBEMLP_POLL_PROCESSTableAdapter.Update(MyDataset.TBEMLP_POLL_PROCESS)
            End If
        Catch ex As Exception
            MsgBox("Error in Save Process: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Sub WM_OBJEKTTYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WM_OBJEKTTYPEComboBox.SelectedIndexChanged
        Load_Indexdata()
    End Sub
    Sub Load_Indexdata()
        Try
            If Not IsNothing(WM_OBJEKTTYPEComboBox.Text) Then
                Me.WM_VECTOR_LOGComboBox.Items.Clear()
                Me.WM_IDX_BODY_TEXTComboBox.Items.Clear()
                INDEXNAMEIndexStepsComboBox.Items.Clear()

                Me.WM_VECTOR_LOGComboBox.Items.Add("")
                Me.WM_IDX_BODY_TEXTComboBox.Items.Add("")
                INDEXNAMEIndexStepsComboBox.Items.Add("")
                'Me.WM_REFERENCE_INDEXComboBox.Items.Clear()
                'Me.WM_REFERENCE_INDEXComboBox.Items.Add("")
                Dim indexe = _windream.GetIndicesByObjecttype(WM_OBJEKTTYPEComboBox.Text)
                If indexe IsNot Nothing Then
                    For Each index As String In indexe
                        Me.WM_VECTOR_LOGComboBox.Items.Add(index)
                        WM_IDX_BODY_TEXTComboBox.Items.Add(index)
                        INDEXNAMEIndexStepsComboBox.Items.Add(index)
                        ' WM_REFERENCE_INDEXComboBox.Items.Add(index)
                    Next
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices: ")
        End Try
    End Sub
    Private Sub ToolStripButton18_Click(sender As Object, e As EventArgs) Handles ToolStripButton18.Click
        Load_Steps()
    End Sub

    Private Sub WM_IMPORTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles WM_IMPORTCheckBox.CheckedChanged
        If WM_IMPORTCheckBox.Checked Then
            GroupBox2.Enabled = True
        Else
            GroupBox2.Enabled = False
        End If
    End Sub

    Private Sub TBEMLP_POLL_PROFILESBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBEMLP_POLL_PROFILESBindingSource.AddingNew
        MyDataset.TBEMLP_POLL_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
    End Sub

    Private Sub TBEMLP_POLL_PROCESSBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBEMLP_POLL_PROCESSBindingSource.AddingNew
        MyDataset.TBEMLP_POLL_PROCESS.ADDED_WHOColumn.DefaultValue = Environment.UserName
    End Sub

    Private Sub TBEMLP_POLL_STEPSBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBEMLP_POLL_STEPSBindingSource.AddingNew
        MyDataset.TBEMLP_POLL_STEPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
    End Sub
    Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew
        MyDataset.TBDD_EMAIL_ACCOUNT.ADDED_WHOColumn.DefaultValue = Environment.UserName
    End Sub

    Private Sub TBEMLP_POLL_PROCESSBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBEMLP_POLL_PROCESSBindingSource.PositionChanged
        Check_Steps()
    End Sub
    Sub Check_Steps()
        If IsNumeric(GUIDProcessTextBox.Text) Then
            Dim oItemCount = TBEMLP_POLL_STEPSBindingSource.Count
            XtraTabPage2.Text = $"Working Steps ({oItemCount})"
        End If
    End Sub
    Sub Check_IndexingSteps()
        If IsNumeric(GUIDPollStepsTextBox.Text) Then
            Dim oItemCount = TBEMLP_POLL_INDEXING_STEPSBindingSource.Count
            XtraTabPage3.Text = $"Indexing Steps ({oItemCount})"
        End If
    End Sub
    Private Sub ToolStripButton27_Click(sender As Object, e As EventArgs) Handles ToolStripButton27.Click
        Save_email_Profile
    End Sub
    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Try
            TBEMLP_POLL_PROFILESBindingSource.EndEdit()
            If MyDataset.TBEMLP_POLL_PROFILES.GetChanges Is Nothing = False Then
                CHANGED_WHOProfilesTextBox.Text = Environment.UserName
                TBEMLP_POLL_PROFILESBindingSource.EndEdit()
                TBEMLP_POLL_PROFILESTableAdapter.Update(MyDataset.TBEMLP_POLL_PROFILES)
            End If
        Catch ex As Exception
            MsgBox("Error in Save Process: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs) Handles ToolStripButton17.Click
        Try
            TBEMLP_POLL_STEPSBindingSource.EndEdit()
            If MyDataset.TBEMLP_POLL_STEPS.GetChanges Is Nothing = False Then
                CHANGED_WHOStepsTextBox.Text = Environment.UserName
                TBEMLP_POLL_STEPSBindingSource.EndEdit()
                TBEMLP_POLL_STEPSTableAdapter.Update(MyDataset.TBEMLP_POLL_STEPS)
            End If
        Catch ex As Exception
            MsgBox("Error in Save Steps: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub TBEMLP_POLL_STEPSBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBEMLP_POLL_STEPSBindingSource.PositionChanged
        Check_IndexingSteps()
    End Sub
    Private Sub ToolStripButton25_Click(sender As Object, e As EventArgs) Handles ToolStripButton25.Click
        Try
            TBEMLP_POLL_INDEXING_STEPSBindingSource.EndEdit()
            If MyDataset.TBEMLP_POLL_INDEXING_STEPS.GetChanges Is Nothing = False Then
                CHANGED_WHOIndexingStepsTextBox.Text = Environment.UserName
                TBEMLP_POLL_INDEXING_STEPSBindingSource.EndEdit()
                TBEMLP_POLL_INDEXING_STEPSTableAdapter.Update(MyDataset.TBEMLP_POLL_INDEXING_STEPS)
            End If
        Catch ex As Exception
            MsgBox("Error in Save Indexing Steps: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub ToolStripButton26_Click(sender As Object, e As EventArgs) Handles ToolStripButton26.Click
        Load_indexingSteps()
    End Sub

    Private Sub XtraTabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControl1.TabIndexChanged

    End Sub

    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
        Select Case XtraTabControl1.SelectedTabPageIndex
            Case 0
                Check_Steps()
                Load_Indexdata()
            Case 1
                Check_IndexingSteps()
            Case 2

        End Select
    End Sub

    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Load_Indexdata()
    End Sub

    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
        tsbtnRunProfiles.Visible = False
        Select Case TabControl1.SelectedIndex
            Case 0
                tsbtnRunProfiles.Visible = True
            Case 1
                Try
                    Dim oDTFunctionRegex As DataTable = _database.Return_Datatable("SELECT * FROM TBDD_FUNCTION_REGEX WHERE FUNCTION_NAME = 'EMAIL_PROFILER - BODY REMOVE NewLine'")
                    If oDTFunctionRegex.Rows.Count = 1 Then
                        txtRegexvbNewline.Text = oDTFunctionRegex.Rows(0).Item("REGEX")
                    End If
                Catch ex As Exception
                    MsgBox("Error in Load Regex: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
                Load_Config()
            Case 2
                Load_History()
        End Select

    End Sub

    Private Sub btnsaveRegex_Click(sender As Object, e As EventArgs) Handles btnsaveRegex.Click
        Dim upd = $"UPDATE TBDD_FUNCTION_REGEX SET REGEX = '{txtRegexvbNewline.Text}' WHERE FUNCTION_NAME = 'EMAIL_PROFILER - BODY REMOVE NewLine'"
        If _database.Execute_non_Query(upd) = True Then
            tslblRefresh.Text = "Regex saved - " & Now.ToString
        Else
            tslblRefresh.Text = "Regex NOT saved - Check Your log: " & Now.ToString
        End If
    End Sub

    Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged
        Active_Color()
    End Sub
    Sub Active_Color()
        If ACTIVECheckBox.Checked Then
            ACTIVECheckBox.BackColor = Color.LimeGreen

        Else
            ACTIVECheckBox.BackColor = Color.IndianRed
        End If
    End Sub

    Private Sub PROCESS_NAMEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles PROCESS_NAMEComboBox.SelectedIndexChanged
        If PROCESS_NAMEComboBox.SelectedIndex <> -1 Then
            Select Case PROCESS_NAMEComboBox.Text
                Case "ProcessManager"
                    txtSubjectExample.Text = "[ProcessManager][EA][DID#[%Dokument-ID]]"
                Case Else
                    txtSubjectExample.Text = ""

            End Select
        End If
    End Sub

    Private Sub ToolStripButton34_Click(sender As Object, e As EventArgs) Handles ToolStripButton34.Click
        Load_History()
    End Sub

    Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
        If _LoadInProgress = True Then Exit Sub
        Dim upd = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',LOG_ERRORS_ONLY = '{LOG_ERRORS_ONLYCheckBox.Checked}' WHERE GUID = 1"
        _database.Execute_non_Query(upd)
        Load_Config()

    End Sub
    Sub Save_Config()
        Try
            TBEMLP_CONFIGBindingSource.EndEdit()
            If MyDataset.TBEMLP_CONFIG.GetChanges Is Nothing = False Then
                Me.CHANGED_WHOTextBox.Text = Environment.UserName
                TBEMLP_CONFIGBindingSource.EndEdit()
                TBEMLP_CONFIGTableAdapter.Update(MyDataset.TBEMLP_CONFIG)

            End If
        Catch ex As Exception
            MsgBox("Error in Save_Config: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Save_email_Profile()
        Try
            TBDD_EMAIL_ACCOUNTBindingSource.EndEdit()
            If MyDataset.TBDD_EMAIL_ACCOUNT.GetChanges Is Nothing = False Then
                Me.CHANGED_WHOTextBox1.Text = Environment.UserName
                TBDD_EMAIL_ACCOUNTBindingSource.EndEdit()
                TBDD_EMAIL_ACCOUNTTableAdapter.Update(MyDataset.TBDD_EMAIL_ACCOUNT)

            End If
        Catch ex As Exception
            MsgBox("Error in Save_EmailAccount: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub CHECK_INTERVALL_MINUTESNumericUpDown_ValueChanged(sender As Object, e As EventArgs) Handles CHECK_INTERVALL_MINUTESNumericUpDown.ValueChanged
        If _LoadInProgress = True Then Exit Sub
        Dim upd = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',CHECK_INTERVALL_MINUTES = {CHECK_INTERVALL_MINUTESNumericUpDown.Value} WHERE GUID = 1"
        _database.Execute_non_Query(upd)
        Load_Config()
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If File.Exists(TextBox2.Text) Then
            Dim msg_email As New Independentsoft.Email.Mime.Message(TextBox2.Text)
            Dim oTEMPBODYSTRING As String
            Dim CURRENT_MAIL_BODY As String
            If IsNothing(msg_email.Body) Then
                Dim oAllBodyParts As New BodyPartCollection()
                oAllBodyParts.Add(msg_email.BodyParts)
                oAllBodyParts.Add(GetChildren(msg_email.BodyParts))

                For Each bodyPart As BodyPart In oAllBodyParts
                    If bodyPart.ContentType IsNot Nothing AndAlso bodyPart.ContentType.Type = "text" AndAlso bodyPart.ContentType.SubType = "plain" Then
                        Logger.Debug(String.Format("BODY1-Text is....#{0}", bodyPart.Body))
                        If CURRENT_MAIL_BODY <> bodyPart.Body Then
                            CURRENT_MAIL_BODY = bodyPart.Body
                        End If

                    ElseIf bodyPart.ContentType IsNot Nothing AndAlso bodyPart.ContentType.Type = "text" AndAlso bodyPart.ContentType.SubType = "html" Then
                        Logger.Debug(String.Format("bodyhtml....#{0}", bodyPart.Body))
                        If CURRENT_MAIL_BODY = "" Then
                            CURRENT_MAIL_BODY = bodyPart.Body
                            Logger.Debug(String.Format("bodyhtml....#{0}", bodyPart.Body))

                        End If
                    End If
                Next
            Else
                CURRENT_MAIL_BODY = msg_email.Body
            End If


        End If
    End Sub
    Private Function GetChildren(ByVal bodyParts As BodyPartCollection) As BodyPartCollection

        Dim children As New BodyPartCollection()

        For i As Integer = 0 To bodyParts.Count - 1
            children.Add(GetChildren(bodyParts(i).BodyParts))
            children.Add(bodyParts(i))
        Next

        Return children
    End Function

    Private Sub STEP_NAMEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STEP_NAMEComboBox.SelectedIndexChanged
        Label9.Visible = False
        txtSubjectExample.Visible = False
        Select Case STEP_NAMEComboBox.Text
            Case "Easy Approval"
                Label9.Visible = True
                txtSubjectExample.Visible = True
            Case "Download Mail"
                COPY_2_HDDCheckBox.Checked = True
            Case Else

        End Select
    End Sub

    Private Sub btnFBD_DonwloadPath_Click(sender As Object, e As EventArgs) Handles btnFBD_DonwloadPath.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            PATH_EMAIL_TEMPTextBox.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Private Sub btnFBD_ErrorPath_Click(sender As Object, e As EventArgs) Handles btnFBD_ErrorPath.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            PATH_EMAIL_ERRORSTextBox.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim pwencrypted = _Encryption.EncryptData(txtnewpasswort.Text)
        EMAIL_PWTextBox.Text = pwencrypted
        Save_email_Profile()
        MsgBox("Passwort was encrypted!")
    End Sub

    Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click
        If txtTestmail.Text <> String.Empty Then
            My.Settings.Save()
            Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)

            If _email.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
                                EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "") = True Then
                MsgBox("Email was send successfully.", MsgBoxStyle.Information)
            Else
                MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
            End If
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Settings.Save()
        Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
        _emailIMAP.TEST_IMAP_COLLECT(txtInboxname.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        My.Settings.Save()
        Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
        _email.TEST_POP3_COLLECT(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
    End Sub
End Class