MS_08.04

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -3,6 +3,7 @@ Imports System.Globalization
 
 Public Class frmConfig_Basic
     Dim formloaded As Boolean = False
+    Private email As New ClassEmail
     Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
         Try
             Dim con As String
@@ -378,4 +379,11 @@ Public Class frmConfig_Basic
     Private Sub txtTask_Popup_TextChanged(sender As Object, e As EventArgs) Handles txtTask_Popup.TextChanged
         SaveMySettingsValue("Task_Popup_minutes", txtTask_Popup.Text, "ConfigMain")
     End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        If email.Send_Log_Mail("<b> Log-/SupportMail Record-Organizer.</b> <p>", _
+                             "Support-Mail Record-Organizer", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de") = True Then
+            MsgBox("Log Mail was sent to Digital Data!", MsgBoxStyle.Information, "Success!")
+        End If
+    End Sub
 End Class