Bodyauswertung

App/CONFIG_APP/frmMain.vb

@@ -15,6 +15,8 @@ Public Class frmMain
     Private _email As clsEmail
     Private _emailIMAP As clsEmailIMAP
     Private _LoadInProgress As Boolean = True
+    Private _RunwithLocalemail As Boolean = False
+    Private _Localemail As String
 
     Public Sub New()
 
@@ -249,8 +251,15 @@ Public Class frmMain
     End Sub
 
     Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
-        Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
-        _work.Start_WorkingProfiles()
+        If _RunwithLocalemail = False Then
+            MyLogger.Debug = True
+            Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
+            _work.Start_WorkingProfiles()
+        Else
+            Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, _Localemail)
+            _work.Start_WorkingProfiles(True)
+        End If
+
     End Sub
 
     Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
@@ -270,16 +279,42 @@ Public Class frmMain
             'Label1.Text = "Error completed!"
         End If
         tsbtnRunProfiles.Enabled = True
+        tsbtnRunLocalMail.Enabled = True
         ToolStripProgressBar1.Visible = False
     End Sub
 
     Private Sub tsbtnRunProfiles_Click(sender As Object, e As EventArgs) Handles tsbtnRunProfiles.Click
+        _RunwithLocalemail = False
         If Not BackgroundWorker1.IsBusy Then
             tsbtnRunProfiles.Enabled = False
+            tsbtnRunLocalMail.Enabled = False
             ToolStripProgressBar1.Visible = True
             BackgroundWorker1.RunWorkerAsync()
         End If
     End Sub
+    Private Sub ToolStripButton28_Click(sender As Object, e As EventArgs) Handles tsbtnRunLocalMail.Click
+        If Not BackgroundWorker1.IsBusy Then
+            Dim openFileDialog1 As New OpenFileDialog()
+
+            ' openFileDialog1.InitialDirectory = "c:\"
+            openFileDialog1.Filter = "Emails (*.eml)|*.eml|All files (*.*)|*.*"
+            openFileDialog1.FilterIndex = 2
+            openFileDialog1.RestoreDirectory = True
+
+            If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+                _RunwithLocalemail = True
+                _Localemail = openFileDialog1.FileName
+                tsbtnRunLocalMail.Enabled = False
+                tsbtnRunProfiles.Enabled = False
+                ToolStripProgressBar1.Visible = True
+                BackgroundWorker1.RunWorkerAsync()
+            End If
+
+
+
+        End If
+
+    End Sub
     Private Sub mWorker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
         Me.ToolStripProgressBar1.Value = e.ProgressPercentage
     End Sub
@@ -659,4 +694,6 @@ Public Class frmMain
         Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
         _email.TEST_POP3_COLLECT(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
     End Sub
+
+
 End Class