diff --git a/App/EmailProfiler.Common/clsEmail.IMAP.vb b/App/EmailProfiler.Common/clsEmail.IMAP.vb index 9ecb0a4..abc4d9b 100644 --- a/App/EmailProfiler.Common/clsEmail.IMAP.vb +++ b/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 + ''' ''' Uses a private API from MailWriter to write a MailMessage to disk. ''' May break in future versions of .NET diff --git a/App/EmailProfiler.Common/clsWorker.vb b/App/EmailProfiler.Common/clsWorker.vb index 438ee92..220e040 100644 --- a/App/EmailProfiler.Common/clsWorker.vb +++ b/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 diff --git a/App/EmailProfiler.Form/EmailProfiler.Form.vbproj b/App/EmailProfiler.Form/EmailProfiler.Form.vbproj index 598ceae..7309c43 100644 --- a/App/EmailProfiler.Form/EmailProfiler.Form.vbproj +++ b/App/EmailProfiler.Form/EmailProfiler.Form.vbproj @@ -48,7 +48,7 @@ On - email_download_handdrawn.ico + envelope.ico @@ -60,6 +60,10 @@ + + False + ..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + ..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll @@ -191,7 +195,10 @@ - + + + PreserveNewest + diff --git a/App/EmailProfiler.Form/MailLicense.xml b/App/EmailProfiler.Form/MailLicense.xml new file mode 100644 index 0000000..0510526 --- /dev/null +++ b/App/EmailProfiler.Form/MailLicense.xml @@ -0,0 +1,23 @@ + + + 4dc5ef40-f1a9-468b-994c-b7ed600ad878 + Mail.dll + 2022-07-29 + Digital Data GmbH + single developer + Digital Data GmbH + + + + + + + + + + 75MRtl4ipYelIZYlpT8O7QDX9Zc= + + + Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo= + + \ No newline at end of file diff --git a/App/EmailProfiler.Form/email_download_handdrawn.ico b/App/EmailProfiler.Form/email_download_handdrawn.ico deleted file mode 100644 index 859cc50..0000000 Binary files a/App/EmailProfiler.Form/email_download_handdrawn.ico and /dev/null differ diff --git a/App/EmailProfiler.Form/envelope.ico b/App/EmailProfiler.Form/envelope.ico new file mode 100644 index 0000000..79f7ef4 Binary files /dev/null and b/App/EmailProfiler.Form/envelope.ico differ diff --git a/App/EmailProfiler.Form/frmMain.Designer.vb b/App/EmailProfiler.Form/frmMain.Designer.vb index 1cc7e8f..bc108a8 100644 --- a/App/EmailProfiler.Form/frmMain.Designer.vb +++ b/App/EmailProfiler.Form/frmMain.Designer.vb @@ -236,40 +236,6 @@ Partial Class frmMain Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.tabConfig = New System.Windows.Forms.TabPage() - Me.GroupBox4 = New System.Windows.Forms.GroupBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.btnTestRegEx = New System.Windows.Forms.Button() - Me.Label14 = New System.Windows.Forms.Label() - Me.txtResultRegEx = New System.Windows.Forms.TextBox() - Me.txthtmlEmail = New System.Windows.Forms.TextBox() - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.Button5 = New System.Windows.Forms.Button() - Me.txtRegex2 = New System.Windows.Forms.TextBox() - Me.Label13 = New System.Windows.Forms.Label() - Me.btnsaveRegex = New System.Windows.Forms.Button() - Me.txtRegex1 = New System.Windows.Forms.TextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.CHANGED_WHENTextBox4 = New System.Windows.Forms.TextBox() - Me.TBEMLP_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.CHECK_INTERVALL_MINUTESNumericUpDown = New System.Windows.Forms.NumericUpDown() - Me.btnShowLogpath = New System.Windows.Forms.Button() - Me.LOG_ERRORS_ONLYCheckBox = New System.Windows.Forms.CheckBox() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.txtConnectionString = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.BtnConnect = New System.Windows.Forms.Button() - Me.cmbDatenbank = New System.Windows.Forms.ComboBox() - Me.chkbxUserAut = New System.Windows.Forms.CheckBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.txtServer = New System.Windows.Forms.TextBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.txtUser = New System.Windows.Forms.TextBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.txtPasswort = New System.Windows.Forms.TextBox() Me.tabEmail = New System.Windows.Forms.TabPage() Me.btnCheckIMAPObjects = New System.Windows.Forms.Button() Me.AUTH_TYPEComboBox = New System.Windows.Forms.ComboBox() @@ -313,7 +279,41 @@ Partial Class frmMain Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripButton27 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton28 = New System.Windows.Forms.ToolStripButton() + Me.btnAktualisieren = New System.Windows.Forms.ToolStripButton() + Me.tabConfig = New System.Windows.Forms.TabPage() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.btnTestRegEx = New System.Windows.Forms.Button() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtResultRegEx = New System.Windows.Forms.TextBox() + Me.txthtmlEmail = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Button5 = New System.Windows.Forms.Button() + Me.txtRegex2 = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.btnsaveRegex = New System.Windows.Forms.Button() + Me.txtRegex1 = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.CHANGED_WHENTextBox4 = New System.Windows.Forms.TextBox() + Me.TBEMLP_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.CHECK_INTERVALL_MINUTESNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.btnShowLogpath = New System.Windows.Forms.Button() + Me.LOG_ERRORS_ONLYCheckBox = New System.Windows.Forms.CheckBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.txtConnectionString = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.BtnConnect = New System.Windows.Forms.Button() + Me.cmbDatenbank = New System.Windows.Forms.ComboBox() + Me.chkbxUserAut = New System.Windows.Forms.CheckBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtServer = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtUser = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtPasswort = New System.Windows.Forms.TextBox() Me.TBEMLP_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.TBEMLP_POLL_PROFILESTableAdapter = New EmailProfiler.Form.MyDatasetTableAdapters.TBEMLP_POLL_PROFILESTableAdapter() @@ -418,6 +418,12 @@ Partial Class frmMain Me.BindingNavigator4.SuspendLayout() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tabEmail.SuspendLayout() + Me.ContextMenuStrip2.SuspendLayout() + CType(Me.GridControl6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator6.SuspendLayout() Me.tabConfig.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.GroupBox5.SuspendLayout() @@ -425,12 +431,6 @@ Partial Class frmMain CType(Me.TBEMLP_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CHECK_INTERVALL_MINUTESNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() - Me.tabEmail.SuspendLayout() - Me.ContextMenuStrip2.SuspendLayout() - CType(Me.GridControl6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BindingNavigator6, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator6.SuspendLayout() CType(Me.TBEMLP_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -473,7 +473,7 @@ Partial Class frmMain 'COMMENTLabel ' COMMENTLabel.AutoSize = True - COMMENTLabel.Location = New System.Drawing.Point(251, 68) + COMMENTLabel.Location = New System.Drawing.Point(318, 68) COMMENTLabel.Name = "COMMENTLabel" COMMENTLabel.Size = New System.Drawing.Size(64, 13) COMMENTLabel.TabIndex = 12 @@ -617,7 +617,7 @@ Partial Class frmMain 'STEP_NAMELabel1 ' STEP_NAMELabel1.AutoSize = True - STEP_NAMELabel1.Location = New System.Drawing.Point(297, 25) + STEP_NAMELabel1.Location = New System.Drawing.Point(314, 25) STEP_NAMELabel1.Name = "STEP_NAMELabel1" STEP_NAMELabel1.Size = New System.Drawing.Size(71, 13) STEP_NAMELabel1.TabIndex = 5 @@ -626,7 +626,7 @@ Partial Class frmMain 'KEYWORDS_BODYLabel ' KEYWORDS_BODYLabel.AutoSize = True - KEYWORDS_BODYLabel.Location = New System.Drawing.Point(524, 25) + KEYWORDS_BODYLabel.Location = New System.Drawing.Point(541, 25) KEYWORDS_BODYLabel.Name = "KEYWORDS_BODYLabel" KEYWORDS_BODYLabel.Size = New System.Drawing.Size(142, 13) KEYWORDS_BODYLabel.TabIndex = 7 @@ -635,7 +635,7 @@ Partial Class frmMain 'COMMENTLabel1 ' COMMENTLabel1.AutoSize = True - COMMENTLabel1.Location = New System.Drawing.Point(297, 65) + COMMENTLabel1.Location = New System.Drawing.Point(314, 65) COMMENTLabel1.Name = "COMMENTLabel1" COMMENTLabel1.Size = New System.Drawing.Size(65, 13) COMMENTLabel1.TabIndex = 9 @@ -680,7 +680,7 @@ Partial Class frmMain 'ADDED_WHOLabel2 ' ADDED_WHOLabel2.AutoSize = True - ADDED_WHOLabel2.Location = New System.Drawing.Point(297, 105) + ADDED_WHOLabel2.Location = New System.Drawing.Point(314, 105) ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" ADDED_WHOLabel2.Size = New System.Drawing.Size(65, 13) ADDED_WHOLabel2.TabIndex = 33 @@ -689,7 +689,7 @@ Partial Class frmMain 'ADDED_WHENLabel2 ' ADDED_WHENLabel2.AutoSize = True - ADDED_WHENLabel2.Location = New System.Drawing.Point(423, 105) + ADDED_WHENLabel2.Location = New System.Drawing.Point(440, 105) ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" ADDED_WHENLabel2.Size = New System.Drawing.Size(73, 13) ADDED_WHENLabel2.TabIndex = 34 @@ -698,7 +698,7 @@ Partial Class frmMain 'CHANGED_WHOLabel2 ' CHANGED_WHOLabel2.AutoSize = True - CHANGED_WHOLabel2.Location = New System.Drawing.Point(556, 105) + CHANGED_WHOLabel2.Location = New System.Drawing.Point(573, 105) CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" CHANGED_WHOLabel2.Size = New System.Drawing.Size(77, 13) CHANGED_WHOLabel2.TabIndex = 35 @@ -707,7 +707,7 @@ Partial Class frmMain 'CHANGED_WHENLabel2 ' CHANGED_WHENLabel2.AutoSize = True - CHANGED_WHENLabel2.Location = New System.Drawing.Point(665, 105) + CHANGED_WHENLabel2.Location = New System.Drawing.Point(682, 105) CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" CHANGED_WHENLabel2.Size = New System.Drawing.Size(85, 13) CHANGED_WHENLabel2.TabIndex = 36 @@ -725,7 +725,7 @@ Partial Class frmMain 'INDEXNAMELabel ' INDEXNAMELabel.AutoSize = True - INDEXNAMELabel.Location = New System.Drawing.Point(311, 26) + INDEXNAMELabel.Location = New System.Drawing.Point(323, 26) INDEXNAMELabel.Name = "INDEXNAMELabel" INDEXNAMELabel.Size = New System.Drawing.Size(65, 13) INDEXNAMELabel.TabIndex = 39 @@ -734,7 +734,7 @@ Partial Class frmMain 'INDEXVALUELabel ' INDEXVALUELabel.AutoSize = True - INDEXVALUELabel.Location = New System.Drawing.Point(493, 26) + INDEXVALUELabel.Location = New System.Drawing.Point(505, 26) INDEXVALUELabel.Name = "INDEXVALUELabel" INDEXVALUELabel.Size = New System.Drawing.Size(67, 13) INDEXVALUELabel.TabIndex = 41 @@ -743,7 +743,7 @@ Partial Class frmMain 'ADDED_WHOLabel3 ' ADDED_WHOLabel3.AutoSize = True - ADDED_WHOLabel3.Location = New System.Drawing.Point(309, 109) + ADDED_WHOLabel3.Location = New System.Drawing.Point(321, 109) ADDED_WHOLabel3.Name = "ADDED_WHOLabel3" ADDED_WHOLabel3.Size = New System.Drawing.Size(65, 13) ADDED_WHOLabel3.TabIndex = 49 @@ -752,7 +752,7 @@ Partial Class frmMain 'ADDED_WHENLabel3 ' ADDED_WHENLabel3.AutoSize = True - ADDED_WHENLabel3.Location = New System.Drawing.Point(439, 109) + ADDED_WHENLabel3.Location = New System.Drawing.Point(451, 109) ADDED_WHENLabel3.Name = "ADDED_WHENLabel3" ADDED_WHENLabel3.Size = New System.Drawing.Size(73, 13) ADDED_WHENLabel3.TabIndex = 51 @@ -761,7 +761,7 @@ Partial Class frmMain 'CHANGED_WHOLabel3 ' CHANGED_WHOLabel3.AutoSize = True - CHANGED_WHOLabel3.Location = New System.Drawing.Point(569, 109) + CHANGED_WHOLabel3.Location = New System.Drawing.Point(581, 109) CHANGED_WHOLabel3.Name = "CHANGED_WHOLabel3" CHANGED_WHOLabel3.Size = New System.Drawing.Size(77, 13) CHANGED_WHOLabel3.TabIndex = 53 @@ -770,7 +770,7 @@ Partial Class frmMain 'CHANGED_WHENLabel3 ' CHANGED_WHENLabel3.AutoSize = True - CHANGED_WHENLabel3.Location = New System.Drawing.Point(699, 109) + CHANGED_WHENLabel3.Location = New System.Drawing.Point(711, 109) CHANGED_WHENLabel3.Name = "CHANGED_WHENLabel3" CHANGED_WHENLabel3.Size = New System.Drawing.Size(85, 13) CHANGED_WHENLabel3.TabIndex = 55 @@ -779,7 +779,7 @@ Partial Class frmMain 'SEQUENCELabel1 ' SEQUENCELabel1.AutoSize = True - SEQUENCELabel1.Location = New System.Drawing.Point(493, 66) + SEQUENCELabel1.Location = New System.Drawing.Point(505, 66) SEQUENCELabel1.Name = "SEQUENCELabel1" SEQUENCELabel1.Size = New System.Drawing.Size(68, 13) SEQUENCELabel1.TabIndex = 56 @@ -788,7 +788,7 @@ Partial Class frmMain 'Label6 ' Label6.AutoSize = True - Label6.Location = New System.Drawing.Point(894, 65) + Label6.Location = New System.Drawing.Point(911, 65) Label6.Name = "Label6" Label6.Size = New System.Drawing.Size(68, 13) Label6.TabIndex = 58 @@ -1602,9 +1602,9 @@ Partial Class frmMain 'ACTIVECheckBox1 ' Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox1.Location = New System.Drawing.Point(896, 79) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(247, 78) Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" - Me.ACTIVECheckBox1.Size = New System.Drawing.Size(68, 24) + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(66, 24) Me.ACTIVECheckBox1.TabIndex = 3 Me.ACTIVECheckBox1.Text = "Active" Me.ACTIVECheckBox1.UseVisualStyleBackColor = True @@ -1833,7 +1833,7 @@ Partial Class frmMain 'NumericUpDown1 ' Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBEMLP_POLL_STEPSBindingSource, "SEQUENCE", True)) - Me.NumericUpDown1.Location = New System.Drawing.Point(897, 81) + Me.NumericUpDown1.Location = New System.Drawing.Point(914, 81) Me.NumericUpDown1.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) Me.NumericUpDown1.Name = "NumericUpDown1" Me.NumericUpDown1.Size = New System.Drawing.Size(61, 21) @@ -1850,7 +1850,7 @@ Partial Class frmMain ' Me.CHANGED_WHENTextBox2.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(668, 121) + Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(685, 121) Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(120, 21) Me.CHANGED_WHENTextBox2.TabIndex = 37 @@ -1859,7 +1859,7 @@ Partial Class frmMain ' Me.CHANGED_WHOStepsTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHOStepsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOStepsTextBox.Location = New System.Drawing.Point(556, 121) + Me.CHANGED_WHOStepsTextBox.Location = New System.Drawing.Point(573, 121) Me.CHANGED_WHOStepsTextBox.Name = "CHANGED_WHOStepsTextBox" Me.CHANGED_WHOStepsTextBox.Size = New System.Drawing.Size(100, 21) Me.CHANGED_WHOStepsTextBox.TabIndex = 36 @@ -1868,7 +1868,7 @@ Partial Class frmMain ' Me.ADDED_WHENTextBox2.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(426, 121) + Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(443, 121) Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(124, 21) Me.ADDED_WHENTextBox2.TabIndex = 35 @@ -1877,7 +1877,7 @@ Partial Class frmMain ' Me.ADDED_WHOTextBox2.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(300, 121) + Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(317, 121) Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(120, 21) Me.ADDED_WHOTextBox2.TabIndex = 34 @@ -2011,13 +2011,13 @@ Partial Class frmMain Me.GUIDPollStepsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "GUID", True)) Me.GUIDPollStepsTextBox.Location = New System.Drawing.Point(254, 41) Me.GUIDPollStepsTextBox.Name = "GUIDPollStepsTextBox" - Me.GUIDPollStepsTextBox.Size = New System.Drawing.Size(40, 21) + Me.GUIDPollStepsTextBox.Size = New System.Drawing.Size(57, 21) Me.GUIDPollStepsTextBox.TabIndex = 2 ' 'STEP_NAMETextBox ' Me.STEP_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "STEP_NAME", True)) - Me.STEP_NAMETextBox.Location = New System.Drawing.Point(300, 41) + Me.STEP_NAMETextBox.Location = New System.Drawing.Point(317, 41) Me.STEP_NAMETextBox.Name = "STEP_NAMETextBox" Me.STEP_NAMETextBox.Size = New System.Drawing.Size(221, 21) Me.STEP_NAMETextBox.TabIndex = 6 @@ -2025,7 +2025,7 @@ Partial Class frmMain 'KEYWORDS_BODYTextBox ' Me.KEYWORDS_BODYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "KEYWORDS_BODY", True)) - Me.KEYWORDS_BODYTextBox.Location = New System.Drawing.Point(527, 41) + Me.KEYWORDS_BODYTextBox.Location = New System.Drawing.Point(544, 41) Me.KEYWORDS_BODYTextBox.Name = "KEYWORDS_BODYTextBox" Me.KEYWORDS_BODYTextBox.Size = New System.Drawing.Size(364, 21) Me.KEYWORDS_BODYTextBox.TabIndex = 8 @@ -2033,7 +2033,7 @@ Partial Class frmMain 'COMMENTTextBox1 ' Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "COMMENT", True)) - Me.COMMENTTextBox1.Location = New System.Drawing.Point(300, 81) + Me.COMMENTTextBox1.Location = New System.Drawing.Point(317, 81) Me.COMMENTTextBox1.Name = "COMMENTTextBox1" Me.COMMENTTextBox1.Size = New System.Drawing.Size(591, 21) Me.COMMENTTextBox1.TabIndex = 10 @@ -2041,9 +2041,9 @@ Partial Class frmMain 'ACTIVECheckBox2 ' Me.ACTIVECheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_STEPSBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox2.Location = New System.Drawing.Point(897, 39) + Me.ACTIVECheckBox2.Location = New System.Drawing.Point(254, 78) Me.ACTIVECheckBox2.Name = "ACTIVECheckBox2" - Me.ACTIVECheckBox2.Size = New System.Drawing.Size(104, 24) + Me.ACTIVECheckBox2.Size = New System.Drawing.Size(57, 24) Me.ACTIVECheckBox2.TabIndex = 12 Me.ACTIVECheckBox2.Text = "Active" Me.ACTIVECheckBox2.UseVisualStyleBackColor = True @@ -2124,7 +2124,7 @@ Partial Class frmMain 'SEQUENCENumericUpDown ' Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "SEQUENCE", True)) - Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(496, 82) + Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(508, 82) Me.SEQUENCENumericUpDown.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(61, 21) @@ -2143,14 +2143,14 @@ Partial Class frmMain Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "GUID", True)) Me.GUIDTextBox1.Location = New System.Drawing.Point(254, 42) Me.GUIDTextBox1.Name = "GUIDTextBox1" - Me.GUIDTextBox1.Size = New System.Drawing.Size(51, 21) + Me.GUIDTextBox1.Size = New System.Drawing.Size(66, 21) Me.GUIDTextBox1.TabIndex = 36 ' 'INDEXNAMEIndexStepsComboBox ' Me.INDEXNAMEIndexStepsComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "INDEXNAME", True)) Me.INDEXNAMEIndexStepsComboBox.FormattingEnabled = True - Me.INDEXNAMEIndexStepsComboBox.Location = New System.Drawing.Point(314, 42) + Me.INDEXNAMEIndexStepsComboBox.Location = New System.Drawing.Point(326, 42) Me.INDEXNAMEIndexStepsComboBox.Name = "INDEXNAMEIndexStepsComboBox" Me.INDEXNAMEIndexStepsComboBox.Size = New System.Drawing.Size(173, 21) Me.INDEXNAMEIndexStepsComboBox.TabIndex = 40 @@ -2158,7 +2158,7 @@ Partial Class frmMain 'INDEXVALUETextBox ' Me.INDEXVALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "INDEXVALUE", True)) - Me.INDEXVALUETextBox.Location = New System.Drawing.Point(496, 42) + Me.INDEXVALUETextBox.Location = New System.Drawing.Point(508, 42) Me.INDEXVALUETextBox.Name = "INDEXVALUETextBox" Me.INDEXVALUETextBox.Size = New System.Drawing.Size(200, 21) Me.INDEXVALUETextBox.TabIndex = 42 @@ -2166,9 +2166,9 @@ Partial Class frmMain 'ACTIVECheckBox3 ' Me.ACTIVECheckBox3.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox3.Location = New System.Drawing.Point(711, 40) + Me.ACTIVECheckBox3.Location = New System.Drawing.Point(254, 69) Me.ACTIVECheckBox3.Name = "ACTIVECheckBox3" - Me.ACTIVECheckBox3.Size = New System.Drawing.Size(121, 24) + Me.ACTIVECheckBox3.Size = New System.Drawing.Size(66, 24) Me.ACTIVECheckBox3.TabIndex = 44 Me.ACTIVECheckBox3.Text = "Active" Me.ACTIVECheckBox3.UseVisualStyleBackColor = True @@ -2176,7 +2176,7 @@ Partial Class frmMain 'USE_FOR_DIRECT_ANSWERCheckBox ' Me.USE_FOR_DIRECT_ANSWERCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "USE_FOR_DIRECT_ANSWER", True)) - Me.USE_FOR_DIRECT_ANSWERCheckBox.Location = New System.Drawing.Point(314, 72) + Me.USE_FOR_DIRECT_ANSWERCheckBox.Location = New System.Drawing.Point(326, 72) Me.USE_FOR_DIRECT_ANSWERCheckBox.Name = "USE_FOR_DIRECT_ANSWERCheckBox" Me.USE_FOR_DIRECT_ANSWERCheckBox.Size = New System.Drawing.Size(179, 24) Me.USE_FOR_DIRECT_ANSWERCheckBox.TabIndex = 46 @@ -2187,7 +2187,7 @@ Partial Class frmMain ' Me.ADDED_WHOTextBox3.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(312, 125) + Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(324, 125) Me.ADDED_WHOTextBox3.Name = "ADDED_WHOTextBox3" Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(121, 21) Me.ADDED_WHOTextBox3.TabIndex = 50 @@ -2196,7 +2196,7 @@ Partial Class frmMain ' Me.ADDED_WHENTextBox3.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(442, 125) + Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(454, 125) Me.ADDED_WHENTextBox3.Name = "ADDED_WHENTextBox3" Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(121, 21) Me.ADDED_WHENTextBox3.TabIndex = 52 @@ -2205,7 +2205,7 @@ Partial Class frmMain ' Me.CHANGED_WHOIndexingStepsTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHOIndexingStepsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOIndexingStepsTextBox.Location = New System.Drawing.Point(572, 125) + Me.CHANGED_WHOIndexingStepsTextBox.Location = New System.Drawing.Point(584, 125) Me.CHANGED_WHOIndexingStepsTextBox.Name = "CHANGED_WHOIndexingStepsTextBox" Me.CHANGED_WHOIndexingStepsTextBox.Size = New System.Drawing.Size(122, 21) Me.CHANGED_WHOIndexingStepsTextBox.TabIndex = 54 @@ -2214,7 +2214,7 @@ Partial Class frmMain ' Me.CHANGED_WHENTextBox3.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(702, 125) + Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(714, 125) Me.CHANGED_WHENTextBox3.Name = "CHANGED_WHENTextBox3" Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(121, 21) Me.CHANGED_WHENTextBox3.TabIndex = 56 @@ -2428,17 +2428,17 @@ Partial Class frmMain 'COMMENTTextBox ' Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROFILESBindingSource, "COMMENT", True)) - Me.COMMENTTextBox.Location = New System.Drawing.Point(254, 84) + Me.COMMENTTextBox.Location = New System.Drawing.Point(321, 84) Me.COMMENTTextBox.Name = "COMMENTTextBox" - Me.COMMENTTextBox.Size = New System.Drawing.Size(437, 21) + Me.COMMENTTextBox.Size = New System.Drawing.Size(370, 21) Me.COMMENTTextBox.TabIndex = 13 ' 'ACTIVECheckBox ' Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROFILESBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox.Location = New System.Drawing.Point(958, 42) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(254, 81) Me.ACTIVECheckBox.Name = "ACTIVECheckBox" - Me.ACTIVECheckBox.Size = New System.Drawing.Size(121, 24) + Me.ACTIVECheckBox.Size = New System.Drawing.Size(58, 24) Me.ACTIVECheckBox.TabIndex = 17 Me.ACTIVECheckBox.Text = "Active" Me.ACTIVECheckBox.UseVisualStyleBackColor = True @@ -2463,6 +2463,446 @@ Partial Class frmMain Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(121, 21) Me.ADDED_WHOTextBox.TabIndex = 21 ' + 'tabEmail + ' + Me.tabEmail.AutoScroll = True + Me.tabEmail.Controls.Add(Me.btnCheckIMAPObjects) + Me.tabEmail.Controls.Add(AUTH_TYPELabel) + Me.tabEmail.Controls.Add(Me.AUTH_TYPEComboBox) + Me.tabEmail.Controls.Add(Me.btntestImap) + Me.tabEmail.Controls.Add(ARCHIVE_FOLDERLabel) + Me.tabEmail.Controls.Add(Me.ARCHIVE_FOLDERTextBox) + Me.tabEmail.Controls.Add(PORT_INLabel) + Me.tabEmail.Controls.Add(Me.PORT_INTextBox) + Me.tabEmail.Controls.Add(Me.txtTestmail) + Me.tabEmail.Controls.Add(Me.Label12) + Me.tabEmail.Controls.Add(Me.btnsendtestmail) + Me.tabEmail.Controls.Add(Label11) + Me.tabEmail.Controls.Add(Me.txtnewpasswort) + Me.tabEmail.Controls.Add(Me.Button4) + Me.tabEmail.Controls.Add(GUIDLabel4) + Me.tabEmail.Controls.Add(Me.EMAILIDTextBox) + Me.tabEmail.Controls.Add(NAMELabel) + Me.tabEmail.Controls.Add(Me.NAMETextBox) + Me.tabEmail.Controls.Add(EMAIL_FROMLabel) + Me.tabEmail.Controls.Add(Me.EMAIL_FROMTextBox) + Me.tabEmail.Controls.Add(EMAIL_SMTPLabel) + Me.tabEmail.Controls.Add(Me.EMAIL_SMTPTextBox) + Me.tabEmail.Controls.Add(EMAIL_USERLabel) + Me.tabEmail.Controls.Add(Me.EMAIL_USERTextBox) + Me.tabEmail.Controls.Add(Me.EMAIL_PWTextBox) + Me.tabEmail.Controls.Add(PORTLabel) + Me.tabEmail.Controls.Add(Me.PORTTextBox) + Me.tabEmail.Controls.Add(Me.ACTIVECheckBox4) + Me.tabEmail.Controls.Add(ADDED_WHOLabel4) + Me.tabEmail.Controls.Add(Me.ADDED_WHOTextBox4) + Me.tabEmail.Controls.Add(ADDED_WHENLabel4) + Me.tabEmail.Controls.Add(Me.ADDED_WHENTextBox4) + Me.tabEmail.Controls.Add(CHANGED_WHOLabel5) + Me.tabEmail.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.tabEmail.Controls.Add(CHANGED_WHENLabel5) + Me.tabEmail.Controls.Add(Me.CHANGED_WHENTextBox5) + Me.tabEmail.Controls.Add(Me.GridControl6) + Me.tabEmail.Controls.Add(Me.BindingNavigator6) + Me.tabEmail.Location = New System.Drawing.Point(4, 22) + Me.tabEmail.Name = "tabEmail" + Me.tabEmail.Padding = New System.Windows.Forms.Padding(3) + Me.tabEmail.Size = New System.Drawing.Size(1219, 559) + Me.tabEmail.TabIndex = 3 + Me.tabEmail.Text = "EMail-Konto Konfiguration" + Me.tabEmail.UseVisualStyleBackColor = True + ' + 'btnCheckIMAPObjects + ' + Me.btnCheckIMAPObjects.Image = Global.EmailProfiler.Form.My.Resources.Resources.arrow_right + Me.btnCheckIMAPObjects.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheckIMAPObjects.Location = New System.Drawing.Point(831, 203) + Me.btnCheckIMAPObjects.Name = "btnCheckIMAPObjects" + Me.btnCheckIMAPObjects.Size = New System.Drawing.Size(189, 35) + Me.btnCheckIMAPObjects.TabIndex = 80 + Me.btnCheckIMAPObjects.Text = "Check Unseen IMAP Objects" + Me.btnCheckIMAPObjects.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCheckIMAPObjects.UseVisualStyleBackColor = True + Me.btnCheckIMAPObjects.Visible = False + ' + 'AUTH_TYPEComboBox + ' + Me.AUTH_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "AUTH_TYPE", True)) + Me.AUTH_TYPEComboBox.FormattingEnabled = True + Me.AUTH_TYPEComboBox.Items.AddRange(New Object() {"STARTTLS", "SSL/TLS", "SSL", "NONE"}) + Me.AUTH_TYPEComboBox.Location = New System.Drawing.Point(701, 164) + Me.AUTH_TYPEComboBox.Name = "AUTH_TYPEComboBox" + Me.AUTH_TYPEComboBox.Size = New System.Drawing.Size(121, 21) + Me.AUTH_TYPEComboBox.TabIndex = 79 + ' + 'btntestImap + ' + Me.btntestImap.Image = Global.EmailProfiler.Form.My.Resources.Resources.email_go + Me.btntestImap.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btntestImap.Location = New System.Drawing.Point(701, 203) + Me.btntestImap.Name = "btntestImap" + Me.btntestImap.Size = New System.Drawing.Size(117, 35) + Me.btntestImap.TabIndex = 68 + Me.btntestImap.Text = "Test IMAP" + Me.btntestImap.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btntestImap.UseVisualStyleBackColor = True + ' + 'ARCHIVE_FOLDERTextBox + ' + Me.ARCHIVE_FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ARCHIVE_FOLDER", True)) + Me.ARCHIVE_FOLDERTextBox.Location = New System.Drawing.Point(831, 164) + Me.ARCHIVE_FOLDERTextBox.Name = "ARCHIVE_FOLDERTextBox" + Me.ARCHIVE_FOLDERTextBox.Size = New System.Drawing.Size(227, 21) + Me.ARCHIVE_FOLDERTextBox.TabIndex = 77 + ' + 'PORT_INTextBox + ' + Me.PORT_INTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "PORT_IN", True)) + Me.PORT_INTextBox.Location = New System.Drawing.Point(496, 164) + Me.PORT_INTextBox.Name = "PORT_INTextBox" + Me.PORT_INTextBox.Size = New System.Drawing.Size(100, 21) + Me.PORT_INTextBox.TabIndex = 71 + ' + 'txtTestmail + ' + Me.txtTestmail.BackColor = System.Drawing.SystemColors.Control + Me.txtTestmail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.EmailProfiler.Form.My.MySettings.Default, "EmailTest_Receipiant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtTestmail.Location = New System.Drawing.Point(373, 258) + Me.txtTestmail.Name = "txtTestmail" + Me.txtTestmail.Size = New System.Drawing.Size(311, 21) + Me.txtTestmail.TabIndex = 67 + Me.txtTestmail.Text = Global.EmailProfiler.Form.My.MySettings.Default.EmailTest_Receipiant + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(370, 244) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(84, 13) + Me.Label12.TabIndex = 66 + Me.Label12.Text = "Testempfänger:" + ' + 'btnsendtestmail + ' + Me.btnsendtestmail.Image = Global.EmailProfiler.Form.My.Resources.Resources.email_go + Me.btnsendtestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsendtestmail.Location = New System.Drawing.Point(701, 244) + Me.btnsendtestmail.Name = "btnsendtestmail" + Me.btnsendtestmail.Size = New System.Drawing.Size(117, 35) + Me.btnsendtestmail.TabIndex = 65 + Me.btnsendtestmail.Text = "Send testmail" + Me.btnsendtestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsendtestmail.UseVisualStyleBackColor = True + ' + 'txtnewpasswort + ' + Me.txtnewpasswort.ContextMenuStrip = Me.ContextMenuStrip2 + Me.txtnewpasswort.Location = New System.Drawing.Point(738, 124) + Me.txtnewpasswort.Name = "txtnewpasswort" + Me.txtnewpasswort.Size = New System.Drawing.Size(186, 21) + Me.txtnewpasswort.TabIndex = 63 + Me.txtnewpasswort.UseSystemPasswordChar = True + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PasswortAnzeigenToolStripMenuItem}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(172, 26) + ' + 'PasswortAnzeigenToolStripMenuItem + ' + Me.PasswortAnzeigenToolStripMenuItem.Name = "PasswortAnzeigenToolStripMenuItem" + Me.PasswortAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(171, 22) + Me.PasswortAnzeigenToolStripMenuItem.Text = "Passwort anzeigen" + ' + 'Button4 + ' + Me.Button4.Image = Global.EmailProfiler.Form.My.Resources.Resources.key_16xLG + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(930, 122) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(128, 23) + Me.Button4.TabIndex = 62 + Me.Button4.Text = "Encrypt passwort" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + ' + 'EMAILIDTextBox + ' + Me.EMAILIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "GUID", True)) + Me.EMAILIDTextBox.Location = New System.Drawing.Point(313, 44) + Me.EMAILIDTextBox.Name = "EMAILIDTextBox" + Me.EMAILIDTextBox.Size = New System.Drawing.Size(50, 21) + Me.EMAILIDTextBox.TabIndex = 35 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(373, 44) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(323, 21) + Me.NAMETextBox.TabIndex = 37 + ' + 'EMAIL_FROMTextBox + ' + Me.EMAIL_FROMTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_FROM", True)) + Me.EMAIL_FROMTextBox.Location = New System.Drawing.Point(373, 84) + Me.EMAIL_FROMTextBox.Name = "EMAIL_FROMTextBox" + Me.EMAIL_FROMTextBox.Size = New System.Drawing.Size(323, 21) + Me.EMAIL_FROMTextBox.TabIndex = 39 + ' + 'EMAIL_SMTPTextBox + ' + Me.EMAIL_SMTPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_SMTP", True)) + Me.EMAIL_SMTPTextBox.Location = New System.Drawing.Point(701, 84) + Me.EMAIL_SMTPTextBox.Name = "EMAIL_SMTPTextBox" + Me.EMAIL_SMTPTextBox.Size = New System.Drawing.Size(357, 21) + Me.EMAIL_SMTPTextBox.TabIndex = 41 + ' + 'EMAIL_USERTextBox + ' + Me.EMAIL_USERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_USER", True)) + Me.EMAIL_USERTextBox.Location = New System.Drawing.Point(373, 124) + Me.EMAIL_USERTextBox.Name = "EMAIL_USERTextBox" + Me.EMAIL_USERTextBox.Size = New System.Drawing.Size(323, 21) + Me.EMAIL_USERTextBox.TabIndex = 43 + ' + 'EMAIL_PWTextBox + ' + Me.EMAIL_PWTextBox.ContextMenuStrip = Me.ContextMenuStrip2 + Me.EMAIL_PWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_PW", True)) + Me.EMAIL_PWTextBox.Location = New System.Drawing.Point(701, 124) + Me.EMAIL_PWTextBox.Name = "EMAIL_PWTextBox" + Me.EMAIL_PWTextBox.ReadOnly = True + Me.EMAIL_PWTextBox.Size = New System.Drawing.Size(31, 21) + Me.EMAIL_PWTextBox.TabIndex = 45 + Me.EMAIL_PWTextBox.UseSystemPasswordChar = True + ' + 'PORTTextBox + ' + Me.PORTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "PORT", True)) + Me.PORTTextBox.Location = New System.Drawing.Point(373, 164) + Me.PORTTextBox.Name = "PORTTextBox" + Me.PORTTextBox.Size = New System.Drawing.Size(121, 21) + Me.PORTTextBox.TabIndex = 47 + ' + 'ACTIVECheckBox4 + ' + Me.ACTIVECheckBox4.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox4.Location = New System.Drawing.Point(313, 71) + Me.ACTIVECheckBox4.Name = "ACTIVECheckBox4" + Me.ACTIVECheckBox4.Size = New System.Drawing.Size(59, 24) + Me.ACTIVECheckBox4.TabIndex = 49 + Me.ACTIVECheckBox4.Text = "Aktiv" + Me.ACTIVECheckBox4.UseVisualStyleBackColor = True + ' + 'ADDED_WHOTextBox4 + ' + Me.ADDED_WHOTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox4.Location = New System.Drawing.Point(373, 313) + Me.ADDED_WHOTextBox4.Name = "ADDED_WHOTextBox4" + Me.ADDED_WHOTextBox4.Size = New System.Drawing.Size(166, 21) + Me.ADDED_WHOTextBox4.TabIndex = 51 + ' + 'ADDED_WHENTextBox4 + ' + Me.ADDED_WHENTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox4.Location = New System.Drawing.Point(545, 313) + Me.ADDED_WHENTextBox4.Name = "ADDED_WHENTextBox4" + Me.ADDED_WHENTextBox4.Size = New System.Drawing.Size(151, 21) + Me.ADDED_WHENTextBox4.TabIndex = 53 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(373, 353) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(166, 21) + Me.CHANGED_WHOTextBox1.TabIndex = 55 + ' + 'CHANGED_WHENTextBox5 + ' + Me.CHANGED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox5.Location = New System.Drawing.Point(545, 353) + Me.CHANGED_WHENTextBox5.Name = "CHANGED_WHENTextBox5" + Me.CHANGED_WHENTextBox5.Size = New System.Drawing.Size(151, 21) + Me.CHANGED_WHENTextBox5.TabIndex = 57 + ' + 'GridControl6 + ' + Me.GridControl6.DataSource = Me.TBDD_EMAIL_ACCOUNTBindingSource + Me.GridControl6.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl6.Location = New System.Drawing.Point(3, 28) + Me.GridControl6.MainView = Me.GridView6 + Me.GridControl6.Name = "GridControl6" + Me.GridControl6.Size = New System.Drawing.Size(301, 528) + Me.GridControl6.TabIndex = 34 + Me.GridControl6.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView6}) + ' + 'GridView6 + ' + Me.GridView6.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridView6.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView6.Appearance.FilterPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.GridView6.Appearance.FilterPanel.Options.UseBackColor = True + Me.GridView6.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME, Me.colEMAIL_FROM, Me.colEMAIL_USER}) + Me.GridView6.GridControl = Me.GridControl6 + Me.GridView6.Name = "GridView6" + Me.GridView6.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView6.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView6.OptionsBehavior.Editable = False + Me.GridView6.OptionsView.EnableAppearanceEvenRow = True + Me.GridView6.OptionsView.ShowAutoFilterRow = True + Me.GridView6.OptionsView.ShowDetailButtons = False + Me.GridView6.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways + Me.GridView6.OptionsView.ShowGroupPanel = False + ' + 'colNAME + ' + Me.colNAME.Caption = "Name" + Me.colNAME.FieldName = "NAME" + Me.colNAME.Name = "colNAME" + Me.colNAME.Visible = True + Me.colNAME.VisibleIndex = 0 + ' + 'colEMAIL_FROM + ' + Me.colEMAIL_FROM.Caption = "Email from" + Me.colEMAIL_FROM.FieldName = "EMAIL_FROM" + Me.colEMAIL_FROM.Name = "colEMAIL_FROM" + Me.colEMAIL_FROM.Visible = True + Me.colEMAIL_FROM.VisibleIndex = 1 + ' + 'colEMAIL_USER + ' + Me.colEMAIL_USER.Caption = "Email User" + Me.colEMAIL_USER.FieldName = "EMAIL_USER" + Me.colEMAIL_USER.Name = "colEMAIL_USER" + Me.colEMAIL_USER.Visible = True + Me.colEMAIL_USER.VisibleIndex = 2 + ' + 'BindingNavigator6 + ' + Me.BindingNavigator6.AddNewItem = Me.BindingNavigatorAddNewItem1 + Me.BindingNavigator6.BindingSource = Me.TBDD_EMAIL_ACCOUNTBindingSource + Me.BindingNavigator6.CountItem = Me.BindingNavigatorCountItem1 + Me.BindingNavigator6.DeleteItem = Me.BindingNavigatorDeleteItem1 + Me.BindingNavigator6.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem1, Me.ToolStripButton27, Me.BindingNavigatorDeleteItem1, Me.btnAktualisieren}) + Me.BindingNavigator6.Location = New System.Drawing.Point(3, 3) + Me.BindingNavigator6.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 + Me.BindingNavigator6.MoveLastItem = Me.BindingNavigatorMoveLastItem1 + Me.BindingNavigator6.MoveNextItem = Me.BindingNavigatorMoveNextItem1 + Me.BindingNavigator6.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 + Me.BindingNavigator6.Name = "BindingNavigator6" + Me.BindingNavigator6.PositionItem = Me.BindingNavigatorPositionItem1 + Me.BindingNavigator6.Size = New System.Drawing.Size(1213, 25) + Me.BindingNavigator6.TabIndex = 0 + Me.BindingNavigator6.Text = "BindingNavigator6" + ' + 'BindingNavigatorAddNewItem1 + ' + Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" + Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem1 + ' + Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem1.Text = "von {0}" + Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem1 + ' + Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" + Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem1.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem1 + ' + Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" + Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem1 + ' + Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" + Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator3 + ' + Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" + Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem1 + ' + Me.BindingNavigatorPositionItem1.AccessibleName = "Position" + Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" + Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem1.Text = "0" + Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator4 + ' + Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" + Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem1 + ' + Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" + Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem1 + ' + Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" + Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator5 + ' + Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" + Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton27 + ' + Me.ToolStripButton27.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton27.Image = Global.EmailProfiler.Form.My.Resources.Resources.save_16xMD + Me.ToolStripButton27.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton27.Name = "ToolStripButton27" + Me.ToolStripButton27.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton27.Text = "tsbtnEmailProfile_Save" + ' + 'btnAktualisieren + ' + Me.btnAktualisieren.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnAktualisieren.Image = Global.EmailProfiler.Form.My.Resources.Resources.refresh_16xLG + Me.btnAktualisieren.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnAktualisieren.Name = "btnAktualisieren" + Me.btnAktualisieren.Size = New System.Drawing.Size(23, 22) + Me.btnAktualisieren.Text = "Aktualisieren" + ' 'tabConfig ' Me.tabConfig.Controls.Add(Me.GroupBox4) @@ -2830,446 +3270,6 @@ Partial Class frmMain Me.txtPasswort.TabIndex = 50 Me.txtPasswort.UseSystemPasswordChar = True ' - 'tabEmail - ' - Me.tabEmail.AutoScroll = True - Me.tabEmail.Controls.Add(Me.btnCheckIMAPObjects) - Me.tabEmail.Controls.Add(AUTH_TYPELabel) - Me.tabEmail.Controls.Add(Me.AUTH_TYPEComboBox) - Me.tabEmail.Controls.Add(Me.btntestImap) - Me.tabEmail.Controls.Add(ARCHIVE_FOLDERLabel) - Me.tabEmail.Controls.Add(Me.ARCHIVE_FOLDERTextBox) - Me.tabEmail.Controls.Add(PORT_INLabel) - Me.tabEmail.Controls.Add(Me.PORT_INTextBox) - Me.tabEmail.Controls.Add(Me.txtTestmail) - Me.tabEmail.Controls.Add(Me.Label12) - Me.tabEmail.Controls.Add(Me.btnsendtestmail) - Me.tabEmail.Controls.Add(Label11) - Me.tabEmail.Controls.Add(Me.txtnewpasswort) - Me.tabEmail.Controls.Add(Me.Button4) - Me.tabEmail.Controls.Add(GUIDLabel4) - Me.tabEmail.Controls.Add(Me.EMAILIDTextBox) - Me.tabEmail.Controls.Add(NAMELabel) - Me.tabEmail.Controls.Add(Me.NAMETextBox) - Me.tabEmail.Controls.Add(EMAIL_FROMLabel) - Me.tabEmail.Controls.Add(Me.EMAIL_FROMTextBox) - Me.tabEmail.Controls.Add(EMAIL_SMTPLabel) - Me.tabEmail.Controls.Add(Me.EMAIL_SMTPTextBox) - Me.tabEmail.Controls.Add(EMAIL_USERLabel) - Me.tabEmail.Controls.Add(Me.EMAIL_USERTextBox) - Me.tabEmail.Controls.Add(Me.EMAIL_PWTextBox) - Me.tabEmail.Controls.Add(PORTLabel) - Me.tabEmail.Controls.Add(Me.PORTTextBox) - Me.tabEmail.Controls.Add(Me.ACTIVECheckBox4) - Me.tabEmail.Controls.Add(ADDED_WHOLabel4) - Me.tabEmail.Controls.Add(Me.ADDED_WHOTextBox4) - Me.tabEmail.Controls.Add(ADDED_WHENLabel4) - Me.tabEmail.Controls.Add(Me.ADDED_WHENTextBox4) - Me.tabEmail.Controls.Add(CHANGED_WHOLabel5) - Me.tabEmail.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.tabEmail.Controls.Add(CHANGED_WHENLabel5) - Me.tabEmail.Controls.Add(Me.CHANGED_WHENTextBox5) - Me.tabEmail.Controls.Add(Me.GridControl6) - Me.tabEmail.Controls.Add(Me.BindingNavigator6) - Me.tabEmail.Location = New System.Drawing.Point(4, 22) - Me.tabEmail.Name = "tabEmail" - Me.tabEmail.Padding = New System.Windows.Forms.Padding(3) - Me.tabEmail.Size = New System.Drawing.Size(1219, 559) - Me.tabEmail.TabIndex = 3 - Me.tabEmail.Text = "EMail-Konto Konfiguration" - Me.tabEmail.UseVisualStyleBackColor = True - ' - 'btnCheckIMAPObjects - ' - Me.btnCheckIMAPObjects.Image = Global.EmailProfiler.Form.My.Resources.Resources.arrow_right - Me.btnCheckIMAPObjects.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckIMAPObjects.Location = New System.Drawing.Point(831, 203) - Me.btnCheckIMAPObjects.Name = "btnCheckIMAPObjects" - Me.btnCheckIMAPObjects.Size = New System.Drawing.Size(189, 35) - Me.btnCheckIMAPObjects.TabIndex = 80 - Me.btnCheckIMAPObjects.Text = "Check Unseen IMAP Objects" - Me.btnCheckIMAPObjects.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnCheckIMAPObjects.UseVisualStyleBackColor = True - Me.btnCheckIMAPObjects.Visible = False - ' - 'AUTH_TYPEComboBox - ' - Me.AUTH_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "AUTH_TYPE", True)) - Me.AUTH_TYPEComboBox.FormattingEnabled = True - Me.AUTH_TYPEComboBox.Items.AddRange(New Object() {"STARTTLS", "SSL/TLS", "SSL"}) - Me.AUTH_TYPEComboBox.Location = New System.Drawing.Point(701, 164) - Me.AUTH_TYPEComboBox.Name = "AUTH_TYPEComboBox" - Me.AUTH_TYPEComboBox.Size = New System.Drawing.Size(121, 21) - Me.AUTH_TYPEComboBox.TabIndex = 79 - ' - 'btntestImap - ' - Me.btntestImap.Image = Global.EmailProfiler.Form.My.Resources.Resources.email_go - Me.btntestImap.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntestImap.Location = New System.Drawing.Point(701, 203) - Me.btntestImap.Name = "btntestImap" - Me.btntestImap.Size = New System.Drawing.Size(117, 35) - Me.btntestImap.TabIndex = 68 - Me.btntestImap.Text = "Test IMAP" - Me.btntestImap.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btntestImap.UseVisualStyleBackColor = True - ' - 'ARCHIVE_FOLDERTextBox - ' - Me.ARCHIVE_FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ARCHIVE_FOLDER", True)) - Me.ARCHIVE_FOLDERTextBox.Location = New System.Drawing.Point(831, 164) - Me.ARCHIVE_FOLDERTextBox.Name = "ARCHIVE_FOLDERTextBox" - Me.ARCHIVE_FOLDERTextBox.Size = New System.Drawing.Size(227, 21) - Me.ARCHIVE_FOLDERTextBox.TabIndex = 77 - ' - 'PORT_INTextBox - ' - Me.PORT_INTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "PORT_IN", True)) - Me.PORT_INTextBox.Location = New System.Drawing.Point(496, 164) - Me.PORT_INTextBox.Name = "PORT_INTextBox" - Me.PORT_INTextBox.Size = New System.Drawing.Size(100, 21) - Me.PORT_INTextBox.TabIndex = 71 - ' - 'txtTestmail - ' - Me.txtTestmail.BackColor = System.Drawing.SystemColors.Control - Me.txtTestmail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.EmailProfiler.Form.My.MySettings.Default, "EmailTest_Receipiant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.txtTestmail.Location = New System.Drawing.Point(373, 258) - Me.txtTestmail.Name = "txtTestmail" - Me.txtTestmail.Size = New System.Drawing.Size(311, 21) - Me.txtTestmail.TabIndex = 67 - Me.txtTestmail.Text = Global.EmailProfiler.Form.My.MySettings.Default.EmailTest_Receipiant - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(370, 244) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(84, 13) - Me.Label12.TabIndex = 66 - Me.Label12.Text = "Testempfänger:" - ' - 'btnsendtestmail - ' - Me.btnsendtestmail.Image = Global.EmailProfiler.Form.My.Resources.Resources.email_go - Me.btnsendtestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnsendtestmail.Location = New System.Drawing.Point(701, 244) - Me.btnsendtestmail.Name = "btnsendtestmail" - Me.btnsendtestmail.Size = New System.Drawing.Size(117, 35) - Me.btnsendtestmail.TabIndex = 65 - Me.btnsendtestmail.Text = "Send testmail" - Me.btnsendtestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnsendtestmail.UseVisualStyleBackColor = True - ' - 'txtnewpasswort - ' - Me.txtnewpasswort.ContextMenuStrip = Me.ContextMenuStrip2 - Me.txtnewpasswort.Location = New System.Drawing.Point(738, 124) - Me.txtnewpasswort.Name = "txtnewpasswort" - Me.txtnewpasswort.Size = New System.Drawing.Size(186, 21) - Me.txtnewpasswort.TabIndex = 63 - Me.txtnewpasswort.UseSystemPasswordChar = True - ' - 'ContextMenuStrip2 - ' - Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PasswortAnzeigenToolStripMenuItem}) - Me.ContextMenuStrip2.Name = "ContextMenuStrip2" - Me.ContextMenuStrip2.Size = New System.Drawing.Size(172, 26) - ' - 'PasswortAnzeigenToolStripMenuItem - ' - Me.PasswortAnzeigenToolStripMenuItem.Name = "PasswortAnzeigenToolStripMenuItem" - Me.PasswortAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(171, 22) - Me.PasswortAnzeigenToolStripMenuItem.Text = "Passwort anzeigen" - ' - 'Button4 - ' - Me.Button4.Image = Global.EmailProfiler.Form.My.Resources.Resources.key_16xLG - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(930, 122) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(128, 23) - Me.Button4.TabIndex = 62 - Me.Button4.Text = "Encrypt passwort" - Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.UseVisualStyleBackColor = True - ' - 'EMAILIDTextBox - ' - Me.EMAILIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "GUID", True)) - Me.EMAILIDTextBox.Location = New System.Drawing.Point(313, 44) - Me.EMAILIDTextBox.Name = "EMAILIDTextBox" - Me.EMAILIDTextBox.Size = New System.Drawing.Size(50, 21) - Me.EMAILIDTextBox.TabIndex = 35 - ' - 'NAMETextBox - ' - Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "NAME", True)) - Me.NAMETextBox.Location = New System.Drawing.Point(373, 44) - Me.NAMETextBox.Name = "NAMETextBox" - Me.NAMETextBox.Size = New System.Drawing.Size(323, 21) - Me.NAMETextBox.TabIndex = 37 - ' - 'EMAIL_FROMTextBox - ' - Me.EMAIL_FROMTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_FROM", True)) - Me.EMAIL_FROMTextBox.Location = New System.Drawing.Point(373, 84) - Me.EMAIL_FROMTextBox.Name = "EMAIL_FROMTextBox" - Me.EMAIL_FROMTextBox.Size = New System.Drawing.Size(323, 21) - Me.EMAIL_FROMTextBox.TabIndex = 39 - ' - 'EMAIL_SMTPTextBox - ' - Me.EMAIL_SMTPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_SMTP", True)) - Me.EMAIL_SMTPTextBox.Location = New System.Drawing.Point(701, 84) - Me.EMAIL_SMTPTextBox.Name = "EMAIL_SMTPTextBox" - Me.EMAIL_SMTPTextBox.Size = New System.Drawing.Size(357, 21) - Me.EMAIL_SMTPTextBox.TabIndex = 41 - ' - 'EMAIL_USERTextBox - ' - Me.EMAIL_USERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_USER", True)) - Me.EMAIL_USERTextBox.Location = New System.Drawing.Point(373, 124) - Me.EMAIL_USERTextBox.Name = "EMAIL_USERTextBox" - Me.EMAIL_USERTextBox.Size = New System.Drawing.Size(323, 21) - Me.EMAIL_USERTextBox.TabIndex = 43 - ' - 'EMAIL_PWTextBox - ' - Me.EMAIL_PWTextBox.ContextMenuStrip = Me.ContextMenuStrip2 - Me.EMAIL_PWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "EMAIL_PW", True)) - Me.EMAIL_PWTextBox.Location = New System.Drawing.Point(701, 124) - Me.EMAIL_PWTextBox.Name = "EMAIL_PWTextBox" - Me.EMAIL_PWTextBox.ReadOnly = True - Me.EMAIL_PWTextBox.Size = New System.Drawing.Size(31, 21) - Me.EMAIL_PWTextBox.TabIndex = 45 - Me.EMAIL_PWTextBox.UseSystemPasswordChar = True - ' - 'PORTTextBox - ' - Me.PORTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "PORT", True)) - Me.PORTTextBox.Location = New System.Drawing.Point(373, 164) - Me.PORTTextBox.Name = "PORTTextBox" - Me.PORTTextBox.Size = New System.Drawing.Size(121, 21) - Me.PORTTextBox.TabIndex = 47 - ' - 'ACTIVECheckBox4 - ' - Me.ACTIVECheckBox4.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox4.Location = New System.Drawing.Point(313, 71) - Me.ACTIVECheckBox4.Name = "ACTIVECheckBox4" - Me.ACTIVECheckBox4.Size = New System.Drawing.Size(59, 24) - Me.ACTIVECheckBox4.TabIndex = 49 - Me.ACTIVECheckBox4.Text = "Aktiv" - Me.ACTIVECheckBox4.UseVisualStyleBackColor = True - ' - 'ADDED_WHOTextBox4 - ' - Me.ADDED_WHOTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox4.Location = New System.Drawing.Point(373, 313) - Me.ADDED_WHOTextBox4.Name = "ADDED_WHOTextBox4" - Me.ADDED_WHOTextBox4.Size = New System.Drawing.Size(166, 21) - Me.ADDED_WHOTextBox4.TabIndex = 51 - ' - 'ADDED_WHENTextBox4 - ' - Me.ADDED_WHENTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox4.Location = New System.Drawing.Point(545, 313) - Me.ADDED_WHENTextBox4.Name = "ADDED_WHENTextBox4" - Me.ADDED_WHENTextBox4.Size = New System.Drawing.Size(151, 21) - Me.ADDED_WHENTextBox4.TabIndex = 53 - ' - 'CHANGED_WHOTextBox1 - ' - Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(373, 353) - Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" - Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(166, 21) - Me.CHANGED_WHOTextBox1.TabIndex = 55 - ' - 'CHANGED_WHENTextBox5 - ' - Me.CHANGED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox5.Location = New System.Drawing.Point(545, 353) - Me.CHANGED_WHENTextBox5.Name = "CHANGED_WHENTextBox5" - Me.CHANGED_WHENTextBox5.Size = New System.Drawing.Size(151, 21) - Me.CHANGED_WHENTextBox5.TabIndex = 57 - ' - 'GridControl6 - ' - Me.GridControl6.DataSource = Me.TBDD_EMAIL_ACCOUNTBindingSource - Me.GridControl6.Dock = System.Windows.Forms.DockStyle.Left - Me.GridControl6.Location = New System.Drawing.Point(3, 28) - Me.GridControl6.MainView = Me.GridView6 - Me.GridControl6.Name = "GridControl6" - Me.GridControl6.Size = New System.Drawing.Size(301, 528) - Me.GridControl6.TabIndex = 34 - Me.GridControl6.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView6}) - ' - 'GridView6 - ' - Me.GridView6.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan - Me.GridView6.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView6.Appearance.FilterPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.GridView6.Appearance.FilterPanel.Options.UseBackColor = True - Me.GridView6.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME, Me.colEMAIL_FROM, Me.colEMAIL_USER}) - Me.GridView6.GridControl = Me.GridControl6 - Me.GridView6.Name = "GridView6" - Me.GridView6.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView6.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView6.OptionsBehavior.Editable = False - Me.GridView6.OptionsView.EnableAppearanceEvenRow = True - Me.GridView6.OptionsView.ShowAutoFilterRow = True - Me.GridView6.OptionsView.ShowDetailButtons = False - Me.GridView6.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways - Me.GridView6.OptionsView.ShowGroupPanel = False - ' - 'colNAME - ' - Me.colNAME.Caption = "Name" - Me.colNAME.FieldName = "NAME" - Me.colNAME.Name = "colNAME" - Me.colNAME.Visible = True - Me.colNAME.VisibleIndex = 0 - ' - 'colEMAIL_FROM - ' - Me.colEMAIL_FROM.Caption = "Email from" - Me.colEMAIL_FROM.FieldName = "EMAIL_FROM" - Me.colEMAIL_FROM.Name = "colEMAIL_FROM" - Me.colEMAIL_FROM.Visible = True - Me.colEMAIL_FROM.VisibleIndex = 1 - ' - 'colEMAIL_USER - ' - Me.colEMAIL_USER.Caption = "Email User" - Me.colEMAIL_USER.FieldName = "EMAIL_USER" - Me.colEMAIL_USER.Name = "colEMAIL_USER" - Me.colEMAIL_USER.Visible = True - Me.colEMAIL_USER.VisibleIndex = 2 - ' - 'BindingNavigator6 - ' - Me.BindingNavigator6.AddNewItem = Me.BindingNavigatorAddNewItem1 - Me.BindingNavigator6.BindingSource = Me.TBDD_EMAIL_ACCOUNTBindingSource - Me.BindingNavigator6.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator6.DeleteItem = Me.BindingNavigatorDeleteItem1 - Me.BindingNavigator6.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem1, Me.ToolStripButton27, Me.BindingNavigatorDeleteItem1, Me.ToolStripButton28}) - Me.BindingNavigator6.Location = New System.Drawing.Point(3, 3) - Me.BindingNavigator6.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 - Me.BindingNavigator6.MoveLastItem = Me.BindingNavigatorMoveLastItem1 - Me.BindingNavigator6.MoveNextItem = Me.BindingNavigatorMoveNextItem1 - Me.BindingNavigator6.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 - Me.BindingNavigator6.Name = "BindingNavigator6" - Me.BindingNavigator6.PositionItem = Me.BindingNavigatorPositionItem1 - Me.BindingNavigator6.Size = New System.Drawing.Size(1213, 25) - Me.BindingNavigator6.TabIndex = 0 - Me.BindingNavigator6.Text = "BindingNavigator6" - ' - 'BindingNavigatorAddNewItem1 - ' - Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" - Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" - ' - 'BindingNavigatorCountItem1 - ' - Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) - Me.BindingNavigatorCountItem1.Text = "von {0}" - Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." - ' - 'BindingNavigatorDeleteItem1 - ' - Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" - Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorDeleteItem1.Text = "Löschen" - ' - 'BindingNavigatorMoveFirstItem1 - ' - Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" - Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" - ' - 'BindingNavigatorMovePreviousItem1 - ' - Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" - Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" - ' - 'BindingNavigatorSeparator3 - ' - Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" - Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorPositionItem1 - ' - Me.BindingNavigatorPositionItem1.AccessibleName = "Position" - Me.BindingNavigatorPositionItem1.AutoSize = False - Me.BindingNavigatorPositionItem1.Font = New System.Drawing.Font("Segoe UI", 9.0!) - Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" - Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) - Me.BindingNavigatorPositionItem1.Text = "0" - Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" - ' - 'BindingNavigatorSeparator4 - ' - Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" - Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorMoveNextItem1 - ' - Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" - Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" - ' - 'BindingNavigatorMoveLastItem1 - ' - Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" - Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" - ' - 'BindingNavigatorSeparator5 - ' - Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" - Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) - ' - 'ToolStripButton27 - ' - Me.ToolStripButton27.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton27.Image = Global.EmailProfiler.Form.My.Resources.Resources.save_16xMD - Me.ToolStripButton27.ImageTransparentColor = System.Drawing.Color.Magenta - Me.ToolStripButton27.Name = "ToolStripButton27" - Me.ToolStripButton27.Size = New System.Drawing.Size(23, 22) - Me.ToolStripButton27.Text = "tsbtnEmailProfile_Save" - ' - 'ToolStripButton28 - ' - Me.ToolStripButton28.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton28.Image = CType(resources.GetObject("ToolStripButton28.Image"), System.Drawing.Image) - Me.ToolStripButton28.ImageTransparentColor = System.Drawing.Color.Magenta - Me.ToolStripButton28.Name = "ToolStripButton28" - Me.ToolStripButton28.Size = New System.Drawing.Size(23, 22) - Me.ToolStripButton28.Text = "btnAktualisieren" - ' 'TBEMLP_HISTORYBindingSource ' Me.TBEMLP_HISTORYBindingSource.DataMember = "TBEMLP_HISTORY" @@ -3382,6 +3382,14 @@ Partial Class frmMain Me.BindingNavigator4.PerformLayout() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + Me.tabEmail.ResumeLayout(False) + Me.tabEmail.PerformLayout() + Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.GridControl6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator6, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator6.ResumeLayout(False) + Me.BindingNavigator6.PerformLayout() Me.tabConfig.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() @@ -3393,14 +3401,6 @@ Partial Class frmMain CType(Me.CHECK_INTERVALL_MINUTESNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() - Me.tabEmail.ResumeLayout(False) - Me.tabEmail.PerformLayout() - Me.ContextMenuStrip2.ResumeLayout(False) - CType(Me.GridControl6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BindingNavigator6, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator6.ResumeLayout(False) - Me.BindingNavigator6.PerformLayout() CType(Me.TBEMLP_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -3644,7 +3644,7 @@ Partial Class frmMain Friend WithEvents btnsaveRegex As Button Friend WithEvents txtRegex1 As TextBox Friend WithEvents Label8 As Label - Friend WithEvents ToolStripButton28 As ToolStripButton + Friend WithEvents btnAktualisieren As ToolStripButton Friend WithEvents GroupBox4 As GroupBox Friend WithEvents Button3 As Button Friend WithEvents btnTestRegEx As Button diff --git a/App/EmailProfiler.Form/frmMain.resx b/App/EmailProfiler.Form/frmMain.resx index 5e8d26e..1591281 100644 --- a/App/EmailProfiler.Form/frmMain.resx +++ b/App/EmailProfiler.Form/frmMain.resx @@ -294,19 +294,98 @@ 1271, 17 + + 985, 56 + + + 623, 134 + + + 1162, 173 + + + 851, 173 + + + + + 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== + + + + + 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= + + + + + 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= + + + + + 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 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + 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== + + 290, 56 180, 56 + + 180, 56 + 623, 134 985, 56 - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -371,6 +450,18 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + 1139, 56 + + + 1021, 95 + + + 1175, 95 + + + 17, 95 + 17, 95 @@ -444,6 +535,9 @@ 537, 95 + + 537, 95 + 1021, 95 @@ -514,6 +608,9 @@ 17, 134 + + 17, 134 + 1175, 95 @@ -581,91 +678,9 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - 1162, 173 + + 239, 173 - - 851, 173 - - - - 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== - - - - - 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= - - - - - 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= - - - - - 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 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - - 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== - - - - - 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== - - 239, 173 diff --git a/App/EmailProfiler.Form/frmMain.vb b/App/EmailProfiler.Form/frmMain.vb index 74d17f1..857ed5c 100644 --- a/App/EmailProfiler.Form/frmMain.vb +++ b/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 @@ -41,9 +41,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 +50,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 +62,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 +582,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 +592,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 +723,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 +879,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