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

ms

Browse Source
This commit is contained in:
SchreiberM
2021-07-13 17:24:31 +02:00
parent 2d8f5fe192
commit 2936b1fcbd
145 changed files with 94345 additions and 118148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
App/CONFIG_APP/frmMain.vb
View File

@@ -1,12 +1,11 @@
Imports DigitalData.EMLProfiler
Imports System.ComponentModel
Imports System.IO
Imports System.Text.RegularExpressions
Imports DigitalData.EMLProfiler
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Messaging
Imports System.IO
Imports System.Net
Imports System.ComponentModel
Imports Independentsoft.Email
Imports Independentsoft.Email.Mime
Imports System.Text.RegularExpressions
Public Class frmMain
Private Logger As DigitalData.Modules.Logging.Logger
@@ -491,7 +490,7 @@ Public Class frmMain
End If
End Sub
Private Sub ToolStripButton27_Click(sender As Object, e As EventArgs) Handles ToolStripButton27.Click
Save_email_Profile
Save_email_Profile()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Try
@@ -652,7 +651,7 @@ Public Class frmMain
Me.CHANGED_WHOTextBox1.Text = Environment.UserName
TBDD_EMAIL_ACCOUNTBindingSource.EndEdit()
TBDD_EMAIL_ACCOUNTTableAdapter.Update(MyDataset.TBDD_EMAIL_ACCOUNT)
ToolStripStatusLabel1.Text = $"Email-Profil gespeichert [{Now.ToString}]"
End If
Catch ex As Exception
MsgBox("Error in Save_EmailAccount: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -724,25 +723,34 @@ Public Class frmMain
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btntestImap.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,
ARCHIVE_FOLDERTextBox.Text)
Else
oResult = _emailIMAP.FetchIMAPMessagesIsoft(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text,
ARCHIVE_FOLDERTextBox.Text, Path.Combine(My.Application.Info.DirectoryPath, "Log") & "\IsoftLog.txt", True, chkDeleteMail.Checked)
Dim oSQL = $"SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE GUID = {EMAILIDTextBox.Text}"
Dim oDT As DataTable = _database.Return_Datatable(oSQL)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
Dim PWPlain = _Encryption.DecryptData(oDT.Rows(0).Item("EMAIL_PW"))
'Logger.Debug($"PWis !{PWPlain}35452dd=")
Dim oResult
'If chkS22.Checked Then
oResult = _emailIMAP.FetchIMAPMessagesS22(oDT.Rows(0).Item("EMAIL_SMTP"), oDT.Rows(0).Item("PORT_IN"), oDT.Rows(0).Item("EMAIL_USER"), PWPlain, txtInboxname.Text, True, chkDeleteMail.Checked,
ARCHIVE_FOLDERTextBox.Text)
'Else
'oResult = _emailIMAP.FetchIMAPMessagesIsoft(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text,
'ARCHIVE_FOLDERTextBox.Text, Path.Combine(My.Application.Info.DirectoryPath, "Log") & "\IsoftLog.txt", True, chkDeleteMail.Checked)
'End If
If oResult = False Then
MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
Else
MsgBox("Test Successful!", MsgBoxStyle.Information)
End If
End If
End If
If oResult = False Then
MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
Else
MsgBox("Test Successful!", MsgBoxStyle.Information)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -895,7 +903,7 @@ Public Class frmMain
End If
End Sub
Private Sub chkS22_CheckedChanged(sender As Object, e As EventArgs) Handles chkS22.CheckedChanged
Private Sub chkS22_CheckedChanged(sender As Object, e As EventArgs)
End Sub