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

jj für ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-01-08 16:05:41 +01:00
parent 1198b1004e
commit 60ed01009a
81 changed files with 252991 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App/CONFIG_APP/frmMain.vb
View File

@@ -13,6 +13,7 @@ Public Class frmMain
Private _Encryption As clsEncryption
Private _windream As clsWindream_allgemein
Private _email As clsEmail
Private _emailIMAP As clsEmailIMAP
Private _LoadInProgress As Boolean = True
Public Sub New()
@@ -34,6 +35,7 @@ Public Class frmMain
Logger = MyLogger.GetLogger()
_windream = New clsWindream_allgemein(MyLogger)
_email = New clsEmail(MyLogger)
_emailIMAP = New clsEmailIMAP(MyLogger)
InitDatabase()
If Set_ConnectionStrings() Then
Load_AllData()
@@ -645,4 +647,16 @@ Public Class frmMain
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.Save()
Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
_emailIMAP.TEST_IMAP_COLLECT(txtInboxname.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
My.Settings.Save()
Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
_email.TEST_POP3_COLLECT(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
End Sub
End Class