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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-09-20 14:19:37 +02:00
parent 25f8db19ad
commit d04c3ab202
50 changed files with 457 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
App/CONFIG_APP/bin/Debug/CONFIG_APP.exe
View File

Binary file not shown.

BIN
App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb
View File

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

80
App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.xml
View File

@@ -126,74 +126,100 @@ DigitalData.Modules.Database
<param name="Connection">The Firebird connection to use</param>
<returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
</member>
<member name="M:DigitalData.Modules.Database.Firebird.GetDatatable(System.String,DigitalData.Modules.Database.Firebird.TransactionMode)">
<member name="M:DigitalData.Modules.Database.Firebird.GetDatatable(System.String,DigitalData.Modules.Database.Firebird.TransactionMode,FirebirdSql.Data.FirebirdClient.FbTransaction)">
<summary>
Executes a sql query resulting in a table of values.
</summary>
<param name="SqlQuery">The query to execute</param>
<returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
</member>
<member name="M:DigitalData.Modules.Database.Oracle.GetDatatable(System.String,System.Int32)">
<member name="M:DigitalData.Modules.Database.ODBC.ExecuteNonQueryWithConnection(System.String,System.Data.Odbc.OdbcConnection)">
<summary>
Executes a non-query command.
</summary>
<param name="SqlQuery">The command to execute</param>
<param name="Connection">The Firebird connection to use</param>
<returns>True, if command was executed sucessfully. Otherwise false.</returns>
</member>
<member name="M:DigitalData.Modules.Database.ODBC.ExecuteNonQuery(System.String)">
<summary>
Executes a non-query command.
</summary>
<param name="SqlCommand">The command to execute</param>
<returns>True, if command was executed sucessfully. Otherwise false.</returns>
</member>
<member name="M:DigitalData.Modules.Database.ODBC.GetScalarValueWithConnection(System.String,System.Data.Odbc.OdbcConnection)">
<summary>
Executes a sql query resulting in a scalar value.
</summary>
<param name="SqlQuery">The query to execute</param>
<param name="Connection">The Firebird connection to use</param>
<returns>The scalar value if the command was executed successfully. Nothing otherwise.</returns>
</member>
<member name="M:DigitalData.Modules.Database.ODBC.GetScalarValue(System.String)">
<summary>
Executes a sql query resulting in a table of values.
</summary>
<param name="SqlQuery">The query to execute</param>
<returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
</member>
<member name="M:DigitalData.Modules.Database.ODBC.GetDatatableWithConnection(System.String,System.Data.Odbc.OdbcConnection)">
<summary>
Executes a sql query resulting in a table of values.
</summary>
<param name="SqlQuery">The query to execute</param>
<param name="Connection">The Firebird connection to use</param>
<returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
</member>
<member name="M:DigitalData.Modules.Database.ODBC.GetDatatable(System.String)">
<summary>
Executes a sql query resulting in a table of values.
</summary>
<param name="SqlQuery">The query to execute</param>
<returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
</member>
<member name="M:DigitalData.Modules.Database.Oracle.GetDatatable(System.String)">
<summary>
Returns a datatable for a sql-statement
</summary>
<param name="sqlcommand">sqlcommand for datatable (select XYZ from TableORView)</param>
<param name="commandtimeout">Optional Timeout</param>
<returns>Returns a datatable</returns>
<remarks></remarks>
</member>
<member name="M:DigitalData.Modules.Database.Oracle.NewExecutenonQuery(System.String,System.Int32)">
<member name="M:DigitalData.Modules.Database.Oracle.NewExecutenonQuery(System.String)">
<summary>
Executes the passed sql-statement
</summary>
<param name="executeStatement">the sql statement</param>
<param name="commandtimeout">Optional Timeout</param>
<returns>Returns true if properly executed, else false</returns>
<remarks></remarks>
</member>
<member name="M:DigitalData.Modules.Database.Oracle.NewExecuteNonQueryAsync(System.String,System.Int32)">
<summary>
Executes the passed sql-statement in asyncmode
</summary>
<param name="executeStatement">the sql statement</param>
<param name="commandtimeout">Optional Timeout</param>
<remarks></remarks>
</member>
<member name="M:DigitalData.Modules.Database.Oracle.NewExecuteScalar(System.String,System.Int32)">
<member name="M:DigitalData.Modules.Database.Oracle.NewExecuteScalar(System.String)">
<summary>
Executes the passed sql-statement as Scalar
</summary>
<param name="executeStatement">the sql statement</param>
<param name="commandtimeout">Optional Timeout</param>
<returns>Returns true if properly executed, else false</returns>
<remarks></remarks>
<returns>Returns the scalarvalue</returns>
</member>
<member name="M:DigitalData.Modules.Database.MSSQLServer.GetDatatable(System.String,System.Int32)">
<summary>
Returns a datatable for a sql-statement
</summary>
<param name="sqlcommand">sqlcommand for datatable (select XYZ from TableORView)</param>
<param name="Timeout">Optional Timeout</param>
<param name="SqlCommand">sqlcommand for datatable (select XYZ from TableORView)</param>
<returns>Returns a datatable</returns>
<remarks></remarks>
</member>
<member name="M:DigitalData.Modules.Database.MSSQLServer.NewExecutenonQuery(System.String,System.Int32)">
<member name="M:DigitalData.Modules.Database.MSSQLServer.NewExecutenonQuery(System.String)">
<summary>
Executes the passed sql-statement
</summary>
<param name="executeStatement">the sql statement</param>
<param name="Timeout">Optional Timeout</param>
<returns>Returns true if properly executed, else false</returns>
<remarks></remarks>
</member>
<member name="M:DigitalData.Modules.Database.MSSQLServer.NewExecuteScalar(System.String,System.Int32)">
<member name="M:DigitalData.Modules.Database.MSSQLServer.NewExecuteScalar(System.String)">
<summary>
Executes the passed sql-statement as Scalar
</summary>
<param name="ScalarSQL">the sql statement</param>
<param name="Timeout">Optional Timeout</param>
<returns>Returns true if properly executed, else false</returns>
<remarks></remarks>
</member>
<member name="M:DigitalData.Modules.Database.MSSQLServer.NewExecuteNonQueryAsync(System.String,System.Int32)">
<summary>

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

Binary file not shown.

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

Binary file not shown.

14
App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.xml
View File

@@ -24,7 +24,7 @@ DigitalData.Modules.Logging
</member>
<member name="T:DigitalData.Modules.Logging.LogConfig">
<module>LogConfig</module>
<version>0.0.0.7</version>
<version>0.0.1.0</version>
<date>02.10.2018</date>
<summary>
Module that writes file-logs to different locations:
@@ -125,6 +125,13 @@ DigitalData.Modules.Logging
</summary>
<returns>True, if debug log will be written. False otherwise.</returns>
</member>
<member name="P:DigitalData.Modules.Logging.LogConfig.Logs">
<summary>
Returns Logs in Memory as List(Of String) if Debug is enabled
Returns an empty list if debug is disabled
</summary>
<returns>A list of log messages</returns>
</member>
<member name="M:DigitalData.Modules.Logging.LogConfig.#ctor(DigitalData.Modules.Logging.LogConfig.PathType,System.String,System.String)">
<summary>
Initializes a new LogConfig object with a logpath and optinally a filename-suffix.
@@ -146,6 +153,11 @@ DigitalData.Modules.Logging
<param name="ClassName">The name of the class the logger belongs to</param>
<returns>An object of Logging.Logger</returns>
</member>
<member name="M:DigitalData.Modules.Logging.LogConfig.ClearLogs">
<summary>
Clears the internal log
</summary>
</member>
<member name="M:DigitalData.Modules.Logging.LogConfig.GetClassFullName">
<summary>
Gets the fully qualified name of the class invoking the calling method,

8
App/CONFIG_APP/bin/Debug/Log/2019-09-18-Email-Profiler - Config-Log-Debug.log Normal file
View File

@@ -0,0 +1,8 @@
2019-09-18 08:50:16|frmMain|DEBUG >> AppConfig is located at: [E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe.Config]
2019-09-18 08:50:17|clsWindream_allgemein|DEBUG >> sDD-VMX02-APS01
2019-09-18 08:50:18|clsWindream_allgemein|DEBUG >> sDD-VMX02-APS01
2019-09-18 08:50:18|clsWindream_allgemein|DEBUG >> windream-Server: 'sDD-VMX02-APS01'
2019-09-18 08:50:18|clsWindream_allgemein|DEBUG >> windream-UserName: 'DIGITALDATA.LOCAL\SchreiberM'
2019-09-18 08:50:18|clsWindream_allgemein|DEBUG >> Alles OK - Erfolgreich angemeldet und Session aufgebaut
2019-09-18 08:50:18|frmMain|DEBUG >> SQL-Server ConnString is [Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd]
2019-09-18 08:50:18|clsDatabase|DEBUG >> ReturnDatatable Command: select * from TBEMLP_CONFIG

5
App/CONFIG_APP/bin/Debug/Log/2019-09-18-Email-Profiler - Config-Log-Error.log Normal file
View File

@@ -0,0 +1,5 @@
2019-09-18 08:52:43|clsEmailIMAP|ERROR >> Ein Verbindungsversuch ist fehlgeschlagen, da die Gegenstelle nach einer bestimmten Zeitspanne nicht richtig reagiert hat, oder die hergestellte Verbindung war fehlerhaft, da der verbundene Host nicht reagiert hat 217.110.227.196:25
bei System.Net.Sockets.TcpClient..ctor(String hostname, Int32 port)
bei S22.Imap.ImapClient.Connect(String hostname, Int32 port, Boolean ssl, RemoteCertificateValidationCallback validate)
bei S22.Imap.ImapClient..ctor(String hostname, Int32 port, String username, String password, AuthMethod method, Boolean ssl, RemoteCertificateValidationCallback validate)
bei DigitalData.EMLProfiler.clsEmailIMAP.FetchIMAPMessages(String Server, Int32 Port, String Username, String Password, String Inbox, Boolean IsTest) in E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\clsEmail.IMAP.vb:Zeile 57.

131
App/CONFIG_APP/frmMain.Designer.vb generated
View File

@@ -278,11 +278,16 @@ Partial Class frmMain
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.chkDeleteMail = New System.Windows.Forms.CheckBox()
Me.txtMoveTo = New System.Windows.Forms.TextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtInboxname = New System.Windows.Forms.TextBox()
Me.Button6 = New System.Windows.Forms.Button()
Me.PORT_INTextBox = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtInboxname = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtTestmail = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.btnsendtestmail = New System.Windows.Forms.Button()
@@ -342,6 +347,7 @@ Partial Class frmMain
Me.TBEMLP_HISTORYTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_HISTORYTableAdapter()
Me.TBEMLP_CONFIGTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_CONFIGTableAdapter()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.chkS22 = New System.Windows.Forms.CheckBox()
GUIDLabel = New System.Windows.Forms.Label()
PROFILE_NAMELabel = New System.Windows.Forms.Label()
POLL_TYPELabel = New System.Windows.Forms.Label()
@@ -446,6 +452,7 @@ Partial Class frmMain
CType(Me.BindingNavigator5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator5.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.GroupBox5.SuspendLayout()
CType(Me.GridControl6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingNavigator6, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2896,12 +2903,11 @@ Partial Class frmMain
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.GroupBox5)
Me.TabPage3.Controls.Add(Me.Button6)
Me.TabPage3.Controls.Add(PORT_INLabel)
Me.TabPage3.Controls.Add(Me.PORT_INTextBox)
Me.TabPage3.Controls.Add(Me.Button2)
Me.TabPage3.Controls.Add(Me.txtInboxname)
Me.TabPage3.Controls.Add(Me.Button1)
Me.TabPage3.Controls.Add(Me.txtTestmail)
Me.TabPage3.Controls.Add(Me.Label12)
Me.TabPage3.Controls.Add(Me.btnsendtestmail)
@@ -2942,6 +2948,77 @@ Partial Class frmMain
Me.TabPage3.Text = "EMail-Konto Konfiguration"
Me.TabPage3.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.chkS22)
Me.GroupBox5.Controls.Add(Me.Label16)
Me.GroupBox5.Controls.Add(Me.Button1)
Me.GroupBox5.Controls.Add(Me.chkDeleteMail)
Me.GroupBox5.Controls.Add(Me.txtMoveTo)
Me.GroupBox5.Controls.Add(Me.Label15)
Me.GroupBox5.Controls.Add(Me.txtInboxname)
Me.GroupBox5.Location = New System.Drawing.Point(374, 319)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(457, 100)
Me.GroupBox5.TabIndex = 76
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "IMAP Test"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(125, 34)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(70, 13)
Me.Label16.TabIndex = 76
Me.Label16.Text = "InBox-Name:"
'
'Button1
'
Me.Button1.Image = Global.CONFIG_APP.My.Resources.Resources.email_go
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(6, 20)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(117, 35)
Me.Button1.TabIndex = 68
Me.Button1.Text = "TEST_IMAP"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'chkDeleteMail
'
Me.chkDeleteMail.AutoSize = True
Me.chkDeleteMail.Location = New System.Drawing.Point(309, 35)
Me.chkDeleteMail.Name = "chkDeleteMail"
Me.chkDeleteMail.Size = New System.Drawing.Size(80, 17)
Me.chkDeleteMail.TabIndex = 75
Me.chkDeleteMail.Text = "Lösche Mail"
Me.chkDeleteMail.UseVisualStyleBackColor = True
'
'txtMoveTo
'
Me.txtMoveTo.Location = New System.Drawing.Point(203, 58)
Me.txtMoveTo.Name = "txtMoveTo"
Me.txtMoveTo.Size = New System.Drawing.Size(200, 21)
Me.txtMoveTo.TabIndex = 73
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(152, 61)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(49, 13)
Me.Label15.TabIndex = 74
Me.Label15.Text = "MoveTo:"
'
'txtInboxname
'
Me.txtInboxname.Location = New System.Drawing.Point(203, 31)
Me.txtInboxname.Name = "txtInboxname"
Me.txtInboxname.Size = New System.Drawing.Size(100, 21)
Me.txtInboxname.TabIndex = 69
Me.txtInboxname.Text = "Inbox"
'
'Button6
'
Me.Button6.Image = Global.CONFIG_APP.My.Resources.Resources.email_go
@@ -2966,7 +3043,7 @@ Partial Class frmMain
'
Me.Button2.Image = Global.CONFIG_APP.My.Resources.Resources.email_go
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(374, 321)
Me.Button2.Location = New System.Drawing.Point(377, 425)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(117, 35)
Me.Button2.TabIndex = 70
@@ -2974,26 +3051,6 @@ Partial Class frmMain
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'txtInboxname
'
Me.txtInboxname.Location = New System.Drawing.Point(496, 294)
Me.txtInboxname.Name = "txtInboxname"
Me.txtInboxname.Size = New System.Drawing.Size(100, 21)
Me.txtInboxname.TabIndex = 69
Me.txtInboxname.Text = "Inbox"
'
'Button1
'
Me.Button1.Image = Global.CONFIG_APP.My.Resources.Resources.email_go
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(373, 280)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(117, 35)
Me.Button1.TabIndex = 68
Me.Button1.Text = "TEST_IMAP"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'txtTestmail
'
Me.txtTestmail.BackColor = System.Drawing.SystemColors.Control
@@ -3378,7 +3435,7 @@ Partial Class frmMain
Me.GroupBox4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox4.Location = New System.Drawing.Point(8, 122)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(1203, 396)
Me.GroupBox4.Size = New System.Drawing.Size(1203, 0)
Me.GroupBox4.TabIndex = 68
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Test RegEx"
@@ -3419,7 +3476,7 @@ Partial Class frmMain
Me.txtResultRegEx.Location = New System.Drawing.Point(659, 49)
Me.txtResultRegEx.Multiline = True
Me.txtResultRegEx.Name = "txtResultRegEx"
Me.txtResultRegEx.Size = New System.Drawing.Size(538, 341)
Me.txtResultRegEx.Size = New System.Drawing.Size(538, 0)
Me.txtResultRegEx.TabIndex = 69
'
'txthtmlEmail
@@ -3431,7 +3488,7 @@ Partial Class frmMain
Me.txthtmlEmail.Location = New System.Drawing.Point(9, 49)
Me.txthtmlEmail.Multiline = True
Me.txthtmlEmail.Name = "txthtmlEmail"
Me.txthtmlEmail.Size = New System.Drawing.Size(538, 341)
Me.txthtmlEmail.Size = New System.Drawing.Size(538, 0)
Me.txthtmlEmail.TabIndex = 67
Me.txthtmlEmail.Text = Global.CONFIG_APP.My.MySettings.Default.MyTestHTML
'
@@ -3509,6 +3566,16 @@ Partial Class frmMain
'
Me.TBEMLP_CONFIGTableAdapter.ClearBeforeFill = True
'
'chkS22
'
Me.chkS22.AutoSize = True
Me.chkS22.Location = New System.Drawing.Point(6, 62)
Me.chkS22.Name = "chkS22"
Me.chkS22.Size = New System.Drawing.Size(44, 17)
Me.chkS22.TabIndex = 77
Me.chkS22.Text = "S22"
Me.chkS22.UseVisualStyleBackColor = True
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3584,6 +3651,8 @@ Partial Class frmMain
Me.BindingNavigator5.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.GridControl6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingNavigator6, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3859,4 +3928,10 @@ Partial Class frmMain
Friend WithEvents PORT_INTextBox As TextBox
Friend WithEvents lblDownloadPath As Label
Friend WithEvents Button6 As Button
Friend WithEvents Label15 As Label
Friend WithEvents txtMoveTo As TextBox
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents Label16 As Label
Friend WithEvents chkDeleteMail As CheckBox
Friend WithEvents chkS22 As CheckBox
End Class

12
App/CONFIG_APP/frmMain.vb
View File

@@ -669,8 +669,14 @@ Public Class frmMain
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.Save()
Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
'Logger.Debug($"PWis !{PWPlain}35452dd=")
Dim oResult
If chkS22.Checked Then
oResult = _emailIMAP.FetchIMAPMessages(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, True, chkDeleteMail.Checked, txtMoveTo.Text)
Else
oResult = _emailIMAP.FetchIMAPMessagesIsoft(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, True, chkDeleteMail.Checked, txtMoveTo.Text, Path.Combine(My.Application.Info.DirectoryPath, "Log") & "\IsoftLog.txt")
End If
Dim oResult = _emailIMAP.FetchIMAPMessages(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, True)
If oResult = False Then
MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
@@ -828,4 +834,8 @@ Public Class frmMain
End If
End If
End Sub
Private Sub chkS22_CheckedChanged(sender As Object, e As EventArgs) Handles chkS22.CheckedChanged
End Sub
End Class

BIN
App/CONFIG_APP/obj/Debug/CONFIG_APP.exe
View File

Binary file not shown.

BIN
App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb
View File

Binary file not shown.

BIN
App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache
View File

Binary file not shown.