MS send

App/CONFIG_APP/frmMain.vb

@@ -1,5 +1,6 @@
 Imports DigitalData.EMLProfiler
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Messaging
 Imports System.IO
 Imports System.Net
 Imports System.ComponentModel
@@ -551,9 +552,13 @@ Public Class frmMain
             Select Case PROCESS_NAMEComboBox.Text
                 Case "ProcessManager"
                     txtSubjectExample.Text = "[ProcessManager][EA][DID#[%Dokument-ID]]"
+                Case "Attachment Sniffer"
+                    lblDownloadPath.Text = "Download-Path Attachments:"
+                Case "ZugFeRD-Parser"
+                    lblDownloadPath.Text = "Download-Path Attachments:"
                 Case Else
                     txtSubjectExample.Text = ""
-
+                    lblDownloadPath.Text = "Download-Path:"
             End Select
         End If
     End Sub
@@ -809,4 +814,18 @@ Public Class frmMain
     Private Sub frmMain_ImeModeChanged(sender As Object, e As EventArgs) Handles Me.ImeModeChanged
 
     End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim _ss2email As New Email(MyLogger)
+        If txtTestmail.Text <> String.Empty Then
+            My.Settings.Save()
+            Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
+
+            If _ss2email.NewEmail(txtTestmail.Text, "Testmail SSMail", "This is the body (text will be replaced within profile)", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "GUI Test", "") = True Then
+                MsgBox("Email was send successfully.", MsgBoxStyle.Information)
+            Else
+                MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
+            End If
+        End If
+    End Sub
 End Class