smol changes

App/EmailProfiler.Common/clsEmail.IMAP.vb

@@ -6,43 +6,83 @@ Imports System.Reflection
 Imports System.IO
 
 Imports DigitalData.Modules.Messaging
+Imports DigitalData.Modules.Messaging.Mail
+Imports Limilabs.Client.IMAP
 
 Public Class clsEmailIMAP
-    Private Shared Logger As Logger
-    Private Shared LogConfig As LogConfig
-    Private _limilab As Limilab
-    Sub New(LogConf As LogConfig)
-        LogConfig = LogConf
-        Logger = LogConf.GetLogger
-        _limilab = New Limilab(LogConf)
+    Private ReadOnly Logger As Logger
+    Private ReadOnly _limilab As Limilab
+    Private Fetcher As MailFetcher
+
+    Public ReadOnly Property Client As Imap
+        Get
+            Return Fetcher.Client
+        End Get
+    End Property
+
+    Sub New(pLogConfig As LogConfig)
+        Logger = pLogConfig.GetLogger
+        _limilab = New Limilab(pLogConfig)
+        Fetcher = New MailFetcher(pLogConfig)
     End Sub
     Public Function FetchIMAPMessagesLimilab(Server As String, Port As Integer, Username As String, Password As String, AuthType As String) As Boolean
         Try
-            Logger.Debug("FetchIMAPMessagesLimilab - Fetching messages...")
-            _limilab.InitIMAP(True, Server, Port, Username, Password, AuthType)
-            Dim oListuids As New List(Of Long)
-            oListuids = _limilab.IMAPGetMessageIDs_AllMails()
+            Dim oSession = Fetcher.Connect(Server, Port, Username, Password, AuthType)
 
-            If IsNothing(oListuids) Then
-                Logger.Warn("List of UIDs was Nothing. Returning False.")
+            If oSession.Connected = False AndAlso oSession.Error IsNot Nothing Then
+                Logger.Warn("Connection to Mail Server failed!")
+                Logger.Error(oSession.Error)
                 Return False
-            Else
-                If oListuids.Count > 0 Then
-                    CURRENT_WORKMAIL_UID_LIST = oListuids
-                    Logger.Info("FetchIMAPMessagesLimilab - Found [{0}] messages", oListuids.Count)
-                    CURRENT_ImapObject = _limilab.CurrentImapObject
-                Else
-                    Logger.Debug("FetchIMAPMessagesLimilab - No Emails found!")
-                End If
 
+            ElseIf oSession.Connected = False Then
+                Logger.Warn("Connection to Mail Server failed!")
+                Return False
+            End If
+
+            Dim oMailIds As List(Of Long) = Fetcher.ListAllMails()
+
+            If oMailIds Is Nothing Then
+                Logger.Warn("List of UIDs was Nothing. Exiting.")
+                Return False
+            End If
+
+            If oMailIds.Count = 0 Then
+                Logger.Debug("No Emails found.")
                 Return True
             End If
 
+            CURRENT_WORKMAIL_UID_LIST = oMailIds
+
+            Return True
+
+            'Logger.Debug("FetchIMAPMessagesLimilab - Fetching messages...")
+            '_limilab.InitIMAP(True, Server, Port, Username, Password, AuthType)
+
+
+            'Dim oListuids As New List(Of Long)
+            '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
+            '        CURRENT_WORKMAIL_UID_LIST = oListuids
+            '        Logger.Info("FetchIMAPMessagesLimilab - Found [{0}] messages", oListuids.Count)
+            '        CURRENT_ImapObject = _limilab.CurrentImapObject
+            '    Else
+            '        Logger.Debug("FetchIMAPMessagesLimilab - No Emails found!")
+            '    End If
+
+            '    Return True
+            'End If
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False
         End Try
     End Function
+
     ''' <summary>
     ''' Uses a private API from MailWriter to write a MailMessage to disk.
     ''' May break in future versions of .NET

App/EmailProfiler.Common/clsWorker.vb

@@ -5,36 +5,40 @@ Imports Limilabs.Mail
 Imports Limilabs.Mail.MIME
 Imports Limilabs.Mail.Headers
 Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Messaging.Mail
 
 Public Class clsWorker
-    Private Shared Logger As Logger
-    'Private _email As clsEmail
-    Private ReadOnly _emailIMAP As clsEmailIMAP
-    'Private _Database As clsDatabase
-    Private ReadOnly _Database As MSSQLServer
-    Private ReadOnly _USE_WM As Boolean = False
-    Private ReadOnly _windream As clsWindream_allgemein
-    Private ReadOnly _windream_index As clsWindream_Index
-    Private ReadOnly _workmail As clsWorkEmail
-    Private ReadOnly _wrapper As clsEncryption
-    Private ReadOnly _POLL_PROFILEID As Integer = 0
-    Private ReadOnly Eml_Limitation_Sender As String = ""
-    Sub New(pLogConfig As LogConfig, ConStr As String, WMConStr As String, POLL_PROFILEID As Integer, USE_WM As Boolean, EmailAccountID As Integer, EmlProfPraefix As String, EML_LIMITATION As String, Optional plocaleml As String = "")
-        Logger = pLogConfig.GetLogger
-        _emailIMAP = New clsEmailIMAP(pLogConfig)
-        _Database = New MSSQLServer(pLogConfig, ConStr)
+    Private ReadOnly Logger As Logger
+    Private ReadOnly Fetcher As MailFetcher
+    Private ReadOnly Database As MSSQLServer
+    Private ReadOnly UseWindream As Boolean = False
+    Private ReadOnly ClassWindreamAllgemein As clsWindream_allgemein
+    Private ReadOnly ClassWindreamIndex As clsWindream_Index
+    Private ReadOnly ClassWorkMail As clsWorkEmail
+    Private ReadOnly Encryption As clsEncryption
+    Private ReadOnly ProfileId As Integer = 0D
+    Private ReadOnly EmailLimitationSender As String = ""
 
-        _USE_WM = USE_WM
-        Eml_Limitation_Sender = EML_LIMITATION
-        If _USE_WM Then
-            _windream = New clsWindream_allgemein(pLogConfig)
-            _windream_index = New clsWindream_Index(pLogConfig)
+    Sub New(pLogConfig As LogConfig, pConnectionString As String, pWindreamConnectionString As String, pPollProfileId As Integer, pUseWindream As Boolean, pEmailAccountID As Integer, pEmailPrefix As String, pEmailLimitationSender As String, Optional pLocalEML As String = "")
+        Logger = pLogConfig.GetLogger
+        'ClassEmailImap = New clsEmailIMAP(pLogConfig)
+        Fetcher = New MailFetcher(pLogConfig)
+        Database = New MSSQLServer(pLogConfig, pConnectionString)
+
+        UseWindream = pUseWindream
+        EmailLimitationSender = pEmailLimitationSender
+
+        If UseWindream Then
+            ClassWindreamAllgemein = New clsWindream_allgemein(pLogConfig)
+            ClassWindreamIndex = New clsWindream_Index(pLogConfig)
         End If
 
-        _workmail = New clsWorkEmail(pLogConfig, ConStr, WMConStr, USE_WM, EmailAccountID, EmlProfPraefix)
-        _wrapper = New clsEncryption("!35452didalog=", pLogConfig)
-        _POLL_PROFILEID = POLL_PROFILEID
-        CURRENT_DEBUG_LOCAL_EMAIL = plocaleml
+        ClassWorkMail = New clsWorkEmail(pLogConfig, pConnectionString, pWindreamConnectionString, pUseWindream, pEmailAccountID, pEmailPrefix)
+
+
+        Encryption = New clsEncryption("!35452didalog=", pLogConfig)
+        ProfileId = pPollProfileId
+        CURRENT_DEBUG_LOCAL_EMAIL = pLocalEML
     End Sub
 
     Public Sub Start_WorkingProfiles(Optional LocalEmail As Boolean = False)
@@ -53,10 +57,10 @@ Public Class clsWorker
             Next
             TEMP_FILES.Clear()
 
-            If _Database.DBInitialized = True Then
+            If Database.DBInitialized = True Then
                 Logger.Debug("now windream_init... ")
-                If _USE_WM Then
-                    If _windream.Init = False Then
+                If UseWindream Then
+                    If ClassWindreamAllgemein.Init = False Then
                         Logger.Info("windream could not be initialized!!")
                         Exit Sub
                     Else
@@ -64,13 +68,13 @@ Public Class clsWorker
                     End If
                 End If
                 Dim osql As String = "SELECT * FROM TBEMLP_POLL_PROFILES"
-                If _POLL_PROFILEID = 0 Then
+                If ProfileId = 0 Then
                     osql &= " WHERE ACTIVE = 1 order by SEQUENCE"
                 Else
-                    osql &= " WHERE GUID = " & _POLL_PROFILEID
+                    osql &= " WHERE GUID = " & ProfileId
                 End If
-                Dim DT_TBDD_EMAIL As DataTable = _Database.GetDatatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
-                Dim DT_PROFILES = _Database.GetDatatable(osql)
+                Dim DT_TBDD_EMAIL As DataTable = Database.GetDatatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
+                Dim DT_PROFILES = Database.GetDatatable(osql)
                 If Not IsNothing(DT_PROFILES) Then
                     If DT_PROFILES.Rows.Count > 0 Then
                         Logger.Debug("count of active profiles: " & DT_PROFILES.Rows.Count.ToString)
@@ -78,14 +82,14 @@ Public Class clsWorker
                             CURRENT_PROFILE_GUID = oDR_Profile.Item("GUID")
                             DT_POLL_PROCESS = Nothing
                             Dim sql = String.Format("SELECT * FROM TBEMLP_POLL_PROCESS WHERE PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_PROFILE_GUID)
-                            DT_POLL_PROCESS = _Database.GetDatatable(sql)
+                            DT_POLL_PROCESS = Database.GetDatatable(sql)
                             If Not IsNothing(DT_POLL_PROCESS) Then
                                 If DT_POLL_PROCESS.Rows.Count = 0 Then
                                     Logger.Info("No processes configured for this Email-Profile - " & sql)
                                     Continue For
                                 Else
                                     DT_STEPS = Nothing
-                                    DT_STEPS = _Database.GetDatatable(String.Format("SELECT T.* FROM TBEMLP_POLL_STEPS T,TBEMLP_POLL_PROCESS T1  WHERE T.PROCESS_ID = T1.GUID AND T1.PROFILE_ID = {0} AND T1.ACTIVE = 1", CURRENT_PROFILE_GUID))
+                                    DT_STEPS = Database.GetDatatable(String.Format("SELECT T.* FROM TBEMLP_POLL_STEPS T,TBEMLP_POLL_PROCESS T1  WHERE T.PROCESS_ID = T1.GUID AND T1.PROFILE_ID = {0} AND T1.ACTIVE = 1", CURRENT_PROFILE_GUID))
 
                                 End If
                             Else
@@ -123,7 +127,7 @@ Public Class clsWorker
                                     MAIL_AUTHTYPE = row("AUTH_TYPE")
                                     Logger.Debug(String.Format("{0}-{1}", MAIL_FROM, MAIL_SERVER))
 
-                                    Dim PWPlain = _wrapper.DecryptData(MAIL_USER_PW)
+                                    Dim PWPlain = Encryption.DecryptData(MAIL_USER_PW)
                                     If Not IsNothing(PWPlain) Then
                                         If PWPlain <> "" Then
                                             MAIL_USER_PW = PWPlain
@@ -138,15 +142,17 @@ Public Class clsWorker
                                 CURRENT_WORKMAIL_UID_LIST.Clear()
 
                                 If MAIL_SERVER <> "" Then
-                                    Dim pollresult As Boolean = False
+                                    Dim oPollResult As Boolean = False
                                     If LocalEmail = True Then
-                                        pollresult = True
+                                        oPollResult = True
                                     Else
                                         Select Case CURRENT_POLL_TYPE
-                                            Case "POP"
-                                                'pollresult = _email.POP3_COLLECT()
                                             Case "IMAP"
-                                                pollresult = _emailIMAP.FetchIMAPMessagesLimilab(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTHTYPE)
+                                                oPollResult = FetchMessages(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTHTYPE)
+
+                                            Case Else
+                                                Logger.Error("Poll Type [{0}] is not supported!", CURRENT_POLL_TYPE)
+                                                oPollResult = False
                                         End Select
                                     End If
 
@@ -154,24 +160,23 @@ Public Class clsWorker
                                         If LocalEmail Then
                                             Logger.Info("Working with local Mail")
                                             Dim oEmail As IMail = New MailBuilder().CreateFromEmlFile(CURRENT_DEBUG_LOCAL_EMAIL)
-                                            _workmail.WorkEmailMessage(oEmail, 123456789)
+                                            ClassWorkMail.WorkEmailMessage(oEmail, 123456789)
                                             CURRENT_MAIL_MESSAGE = Nothing
                                         Else
                                             Try
                                                 Logger.Info(String.Format("Pulled: [{0}] E-Mails", CURRENT_WORKMAIL_UID_LIST.Count()))
                                                 Dim LIMIT_EMAIL_FROM As Boolean = False
-                                                If Eml_Limitation_Sender.Contains("@") Then
+                                                If EmailLimitationSender.Contains("@") Then
                                                     LIMIT_EMAIL_FROM = True
                                                     Logger.Info("####################################")
-                                                    Logger.Info($"LIMIT_EMAIL_FROM is ACTIVE - EMAIL_FROM = [{Eml_Limitation_Sender}]")
+                                                    Logger.Info($"LIMIT_EMAIL_FROM is ACTIVE - EMAIL_FROM = [{EmailLimitationSender}]")
                                                     Logger.Info("####################################")
                                                     Logger.Debug("####################################")
-                                                    Logger.Debug($"LIMIT_EMAIL_FROM is ACTIVE - EMAIL_FROM = [{Eml_Limitation_Sender}]")
+                                                    Logger.Debug($"LIMIT_EMAIL_FROM is ACTIVE - EMAIL_FROM = [{EmailLimitationSender}]")
                                                     Logger.Debug("####################################")
                                                 End If
                                                 For Each oUID In CURRENT_WORKMAIL_UID_LIST
-                                                    Dim oEml = CURRENT_ImapObject.GetMessageByUID(oUID)
-                                                    Dim oEmail As IMail = New MailBuilder().CreateFromEml(oEml)
+                                                    Dim oEmail As IMail = Fetcher.FetchMail(oUID)
 
                                                     If Not IsNothing(oEmail) Then
                                                         If LIMIT_EMAIL_FROM Then
@@ -179,12 +184,12 @@ Public Class clsWorker
                                                             For Each m As MailBox In oEmail.From
                                                                 oEmailFrom = m.Address
                                                             Next
-                                                            If oEmailFrom <> Eml_Limitation_Sender Then
+                                                            If oEmailFrom <> EmailLimitationSender Then
                                                                 Logger.Debug($"Skipping email {oEmailFrom} ...Subject [{oEmail.Subject}]")
                                                                 Continue For
                                                             End If
                                                         End If
-                                                        If _workmail.WorkEmailMessage(oEmail, oUID) = True Then
+                                                        If ClassWorkMail.WorkEmailMessage(oEmail, oUID) = True Then
                                                             If CURRENT_DEBUG_LOCAL_EMAIL = "" Then
                                                                 EMAIL_DELETE()
                                                             End If
@@ -197,8 +202,8 @@ Public Class clsWorker
                                                     CURRENT_MAIL_MESSAGE = Nothing
                                                 Next
                                                 If CURRENT_POLL_TYPE = "IMAP" And CURRENT_WORKMAIL_UID_LIST.Count > 0 Then
-                                                    If Not IsNothing(CURRENT_ImapObject) Then
-                                                        CURRENT_ImapObject.Close()
+                                                    If Not IsNothing(Fetcher.Client) Then
+                                                        Fetcher.Client.Close()
                                                     End If
                                                 End If
 
@@ -216,7 +221,7 @@ Public Class clsWorker
                                     Logger.Warn("For the Email-Profile ID " & CURRENT_EMAIL_GUID & " no record could be found!")
                                 End If
 
-                                _Database.ExecuteNonQuery("UPDATE TBEMLP_POLL_PROFILES SET LAST_TICK = GETDATE() WHERE GUID = " & oDR_Profile.Item("GUID").ToString)
+                                Database.ExecuteNonQuery("UPDATE TBEMLP_POLL_PROFILES SET LAST_TICK = GETDATE() WHERE GUID = " & oDR_Profile.Item("GUID").ToString)
                             Else
                                 Logger.Warn("For the Email-Profile ID " & CURRENT_EMAIL_GUID & " no record could be found! Check wether Email-Profile is active!")
                             End If
@@ -245,24 +250,66 @@ Public Class clsWorker
                     End If
                 End If
 
-                _Database.ExecuteNonQuery("UPDATE TBEMLP_CONFIG SET LAST_TICK = GETDATE() WHERE GUID = 1")
+                Database.ExecuteNonQuery("UPDATE TBEMLP_CONFIG SET LAST_TICK = GETDATE() WHERE GUID = 1")
             End If
         Catch ex As Exception
             Logger.Error(ex)
         End Try
     End Sub
-    Private Function EMAIL_DELETE()
-        If DeleteMail = True And MessageError = False Then
-            If Not IsNothing(CURRENT_ImapObject) Then
-                CURRENT_ImapObject.DeleteMessageByUID(CURRENT_MAIL_UID)
-            Else
-                Logger.Warn("EMAIL_DELETE - CURRENT_ImapObject is nothing")
+
+    Public Function FetchMessages(Server As String, Port As Integer, Username As String, Password As String, AuthType As String) As Boolean
+        Try
+            Dim oSession = Fetcher.Connect(Server, Port, Username, Password, AuthType)
+
+
+            If oSession.Connected = False AndAlso oSession.Error IsNot Nothing Then
+                Logger.Warn("Connection to Mail Server failed!")
+                Logger.Error(oSession.Error)
+                Return False
+
+            ElseIf oSession.Connected = False Then
+                Logger.Warn("Connection to Mail Server failed!")
+                Return False
             End If
 
-        Else
-            If MessageError = True Then
-                Logger.Warn($"Did not delete Message with UID [{CURRENT_MAIL_UID}] as there was an MessageError!")
+            CURRENT_ImapObject = Fetcher.Client
+            Dim oMailIds As List(Of Long) = Fetcher.ListAllMails()
+
+            If oMailIds Is Nothing Then
+                Logger.Warn("List of UIDs was Nothing. Exiting.")
+                Return False
             End If
-        End If
+
+            If oMailIds.Count = 0 Then
+                Logger.Debug("No Emails found.")
+                Return True
+            End If
+
+            CURRENT_WORKMAIL_UID_LIST = oMailIds
+
+            Return True
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
     End Function
+    Private Sub EMAIL_DELETE()
+        Try
+            If DeleteMail = True And MessageError = False Then
+                If IsNothing(Fetcher.Client) Then
+                    Logger.Warn("EMAIL_DELETE - CURRENT_ImapObject is nothing")
+                End If
+
+                Fetcher.Client.DeleteMessageByUID(CURRENT_MAIL_UID)
+                Logger.Info("Email with Id [{0}] was deleted.", CURRENT_MAIL_UID)
+            Else
+                If MessageError = True Then
+                    Logger.Warn("Did not delete Message with UID [{0}] as there was an MessageError!", CURRENT_MAIL_UID)
+                End If
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
 End Class

App/EmailProfiler.Form/EmailProfiler.Form.vbproj

@@ -48,7 +48,7 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>email_download_handdrawn.ico</ApplicationIcon>
+    <ApplicationIcon>envelope.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@@ -60,6 +60,10 @@
     <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <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.Base, Version=1.3.4.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
@@ -115,7 +119,6 @@
       <DependentUpon>frmMain.vb</DependentUpon>
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="ModuleSettings.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -191,7 +194,10 @@
     <None Include="Resources\arrow_Down_16xMD.png" />
   </ItemGroup>
   <ItemGroup>
-    <Content Include="email_download_handdrawn.ico" />
+    <Content Include="envelope.ico" />
+    <Content Include="MailLicense.xml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <None Include="Resources\email_go.png" />
     <None Include="Resources\key_16xLG.png" />
     <None Include="Resources\Encrypt.png" />

App/EmailProfiler.Form/MailLicense.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<License>
+  <Id>4dc5ef40-f1a9-468b-994c-b7ed600ad878</Id>
+  <ProductName>Mail.dll</ProductName>
+  <SubscriptionUntil>2022-07-29</SubscriptionUntil>
+  <RegisteredTo>Digital Data GmbH</RegisteredTo>
+  <LicenseType>single developer</LicenseType>
+  <BuyerName>Digital Data GmbH</BuyerName>
+  <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
+    <SignedInfo>
+      <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />
+      <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
+      <Reference URI="">
+        <Transforms>
+          <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />
+        </Transforms>
+        <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
+        <DigestValue>75MRtl4ipYelIZYlpT8O7QDX9Zc=</DigestValue>
+      </Reference>
+    </SignedInfo>
+    <SignatureValue>Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo=</SignatureValue>
+  </Signature>
+</License>

App/EmailProfiler.Form/ModuleSettings.vb

@@ -1,4 +0,0 @@
-Module ModuleSettings
-    Public LOGERRRORS_ONLY As Boolean = True
-    Public MyConnectionString As String
-End Module

App/EmailProfiler.Form/MyDataset.xss

@@ -4,15 +4,15 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="13" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="13" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:TBEMLP_POLL_PROFILES" ZOrder="10" X="21" Y="23" Height="305" Width="287" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBEMLP_POLL_PROCESS" ZOrder="9" X="354" Y="46" Height="305" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBEMLP_POLL_STEPS" ZOrder="7" X="690" Y="111" Height="286" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
     <Shape ID="DesignTable:TBEMLP_POLL_INDEXING_STEPS" ZOrder="5" X="993" Y="271" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBEMLP_HISTORY" ZOrder="3" X="242" Y="387" Height="267" Width="249" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:TBEMLP_CONFIG" ZOrder="2" X="757" Y="447" Height="286" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="1" X="457" Y="458" Height="305" Width="292" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBEMLP_HISTORY" ZOrder="1" X="33" Y="398" Height="267" Width="249" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
+    <Shape ID="DesignTable:TBEMLP_CONFIG" ZOrder="3" X="698" Y="456" Height="286" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="2" X="347" Y="418" Height="343" Width="292" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
   </Shapes>
   <Connectors>
     <Connector ID="DesignRelation:FK_TBEMLP_POLL_PROCESS_PROFILE_ID" ZOrder="8" LineWidth="11">

App/EmailProfiler.Form/frmMain.resx

@@ -371,6 +371,168 @@
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
 </value>
   </data>
+  <metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1139, 56</value>
+  </metadata>
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="XtraTabPage1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4DAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        Pg0KICA8ZyBpZD0iUHJvcGVydGllcyI+DQogICAgPHBhdGggZD0iTTMwLDE4di00bC00LjQtMC43Yy0w
+        LjItMC44LTAuNS0xLjUtMC45LTIuMWwyLjYtMy42bC0yLjgtMi44bC0zLjYsMi42Yy0wLjctMC40LTEu
+        NC0wLjctMi4xLTAuOUwxOCwyaC00ICAgbC0wLjcsNC40Yy0wLjgsMC4yLTEuNSwwLjUtMi4xLDAuOUw3
+        LjUsNC43TDQuNyw3LjVsMi42LDMuNmMtMC40LDAuNy0wLjcsMS40LTAuOSwyLjFMMiwxNHY0bDQuNCww
+        LjdjMC4yLDAuOCwwLjUsMS41LDAuOSwyLjEgICBsLTIuNiwzLjZsMi44LDIuOGwzLjYtMi42YzAuNyww
+        LjQsMS40LDAuNywyLjEsMC45TDE0LDMwaDRsMC43LTQuNGMwLjgtMC4yLDEuNS0wLjUsMi4xLTAuOWwz
+        LjYsMi42bDIuOC0yLjhsLTIuNi0zLjYgICBjMC40LTAuNywwLjctMS40LDAuOS0yLjFMMzAsMTh6IE0x
+        NiwyMGMtMi4yLDAtNC0xLjgtNC00YzAtMi4yLDEuOC00LDQtNHM0LDEuOCw0LDRDMjAsMTguMiwxOC4y
+        LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>537, 95</value>
+  </metadata>
+  <metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1021, 95</value>
+  </metadata>
+  <data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
+        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
+        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
+        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
+        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
+        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
+        rkJggg==
+</value>
+  </data>
+  <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>537, 95</value>
+  </metadata>
+  <data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
+        DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
+        rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
+        i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
+        86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
+        QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
+        bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton13.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
+        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
+        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
+        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
+        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
+        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
+        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
+        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
+        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ToolStripButton15.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
+        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
+        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
+        oAc0QjgAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
+        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
+        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
+        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
+        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
+        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="XtraTabPage2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll
+        bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv
+        cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg
+        eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog
+        ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci
+        IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi
+        IC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1175, 95</value>
+  </metadata>
+  <data name="XtraTabPage3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
+        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
+        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
+        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
+        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
+        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+
+        DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu
+        NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx
+        Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo
+        IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0
+        LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y
+        TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="BindingNavigator6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>851, 173</value>
+  </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>180, 56</value>
+  </metadata>
+  <metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>623, 134</value>
+  </metadata>
+  <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
   <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 95</value>
   </metadata>
@@ -441,76 +603,9 @@
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>537, 95</value>
+  <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
   </metadata>
-  <metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1021, 95</value>
-  </metadata>
-  <data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
-        DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
-        rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
-        i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
-        86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
-        QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
-        bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="ToolStripButton13.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="ToolStripButton14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="ToolStripButton15.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="ToolStripButton16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
   <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 134</value>
   </metadata>
@@ -651,21 +746,9 @@
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
 </value>
   </data>
-  <data name="ToolStripButton28.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
-        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
-        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
-        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
-        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
-        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
-        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
-        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
-        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
-        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
-</value>
-  </data>
+  <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>239, 173</value>
+  </metadata>
   <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>239, 173</value>
   </metadata>
@@ -1911,7 +1994,6 @@
         AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD4AAABw==
 </value>
   </data>
-  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="frmMain.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40

App/EmailProfiler.Form/frmMain.vb

@@ -6,15 +6,15 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
 Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Messaging.Mail
 
 Public Class frmMain
     Private Logger As Logger
     Private LogConfig As LogConfig
-    Private ConfigManager As Configmanager(Of Config)
+    Private ConfigManager As ConfigManager(Of Config)
     Private _database As MSSQLServer
     Private _Encryption As clsEncryption
     Private _windream As clsWindream_allgemein
-    Private _emailIMAP As clsEmailIMAP
     Private _LoadInProgress As Boolean = True
     Private _RunwithLocalemail As Boolean = False
     Private _SQLServerConString As String
@@ -22,6 +22,7 @@ Public Class frmMain
     Private _limilab As Limilab
     Private _ConfigManager As ClassDBConfig
     Private _DBConfig As ClassDBConfig.Config
+    Private MyConnectionString As String
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
@@ -41,9 +42,6 @@ Public Class frmMain
             If ConfigManager.Config.UseWindream Then
                 _windream = New clsWindream_allgemein(LogConfig)
             End If
-
-            '_email = New clsEmail(MyLogger)
-            _emailIMAP = New clsEmailIMAP(LogConfig)
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in FormLoad")
         End Try
@@ -53,7 +51,11 @@ Public Class frmMain
         If Set_ConnectionStrings() Then
             Load_AllData()
             Check_Steps()
-            Active_Color()
+            Active_Color(ACTIVECheckBox)
+            Active_Color(ACTIVECheckBox1)
+            Active_Color(ACTIVECheckBox2)
+            Active_Color(ACTIVECheckBox3)
+            Active_Color(ACTIVECheckBox4)
         End If
         If ConfigManager.Config.UseWindream Then
             ObjektTypenEintragen()
@@ -61,6 +63,13 @@ Public Class frmMain
 
         _Encryption = New clsEncryption("!35452didalog=", LogConfig)
     End Sub
+
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If ConfigManager.Config.UseWindream Then
+            Load_Indexdata()
+        End If
+    End Sub
+
     Private Function Set_ConnectionStrings()
         Try
 
@@ -574,11 +583,7 @@ Public Class frmMain
         End Select
     End Sub
 
-    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If ConfigManager.Config.UseWindream Then
-            Load_Indexdata()
-        End If
-    End Sub
+
 
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
         tslblRefresh.BackColor = Color.Transparent
@@ -588,15 +593,12 @@ Public Class frmMain
         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
+    Sub Active_Color(pCheckBox As CheckBox)
+        If pCheckBox.Checked Then
+            pCheckBox.BackColor = Color.LimeGreen
 
         Else
-            ACTIVECheckBox.BackColor = Color.IndianRed
+            pCheckBox.BackColor = Color.IndianRed
         End If
     End Sub
 
@@ -722,16 +724,35 @@ Public Class frmMain
             If oDT.Rows.Count = 1 Then
 
                 Dim PWPlain = _Encryption.DecryptData(oDT.Rows(0).Item("EMAIL_PW"))
-                'Logger.Debug($"PWis !{PWPlain}35452dd=")
-                _limilab.InitIMAP(True, oDT.Rows(0).Item("EMAIL_SMTP"), oDT.Rows(0).Item("PORT_IN"), oDT.Rows(0).Item("EMAIL_USER"), PWPlain, oDT.Rows(0).Item("AUTH_TYPE"))
-                Dim oResult = _limilab.IMAPTestLogin()
 
-                If oResult = False Then
-                    MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
+                Dim oFetcher As New MailFetcher(LogConfig)
+                Dim oSession = oFetcher.Connect(oDT.Rows(0).Item("EMAIL_SMTP"), oDT.Rows(0).Item("PORT_IN"), oDT.Rows(0).Item("EMAIL_USER"), PWPlain, oDT.Rows(0).Item("AUTH_TYPE"))
+
+                If oSession.Connected = True Then
+                    ' Unseen check will be done automatically
+                    'btnCheckIMAPObjects.Visible = True
+
+                    Dim oMailIds = oFetcher.ListUnseenMails()
+                    If oMailIds Is Nothing Then
+                        MsgBox("Could not get unseen Objects from IMAP-Folder!", MsgBoxStyle.Critical, Text)
+                    Else
+                        MsgBox($"IMAP-Folder contained [{oMailIds.Count}] unseen Objects!", MsgBoxStyle.Information, Text)
+                    End If
+
+                    oFetcher.Disconnect()
                 Else
-                    MsgBox("IMAP-Test Successful!", MsgBoxStyle.Information)
-                    btnCheckIMAPObjects.Visible = True
+                    MsgBox($"Imap Login NOT successful: {vbNewLine}{oSession.Error?.Message}", MsgBoxStyle.Critical, Text)
                 End If
+
+                '_limilab.InitIMAP(True, oDT.Rows(0).Item("EMAIL_SMTP"), oDT.Rows(0).Item("PORT_IN"), oDT.Rows(0).Item("EMAIL_USER"), PWPlain, oDT.Rows(0).Item("AUTH_TYPE"))
+                'Dim oResult = _limilab.IMAPTestLogin()
+
+                'If oResult = False Then
+                '    MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
+                'Else
+                '    MsgBox("IMAP-Test Successful!", MsgBoxStyle.Information)
+                '    btnCheckIMAPObjects.Visible = True
+                'End If
             End If
         End If
     End Sub
@@ -859,7 +880,12 @@ Public Class frmMain
         End Try
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs)
+    Private Sub btnAktualisieren_Click(sender As Object, e As EventArgs) Handles btnAktualisieren.Click
+        Me.TBDD_EMAIL_ACCOUNTTableAdapter.Fill(Me.MyDataset.TBDD_EMAIL_ACCOUNT)
+    End Sub
 
+    Private Sub ACTIVECheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged, ACTIVECheckBox1.CheckedChanged, ACTIVECheckBox2.CheckedChanged, ACTIVECheckBox3.CheckedChanged, ACTIVECheckBox4.CheckedChanged
+        Dim oCheckBox As CheckBox = sender
+        Active_Color(oCheckBox)
     End Sub
 End Class