Kundenkontakte, prüfung ob korrekte Email.

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -900,6 +900,27 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
     End Function
 
+    Shared Function checkifMailisOK(email As String) As Boolean
+
+        If String.IsNullOrWhiteSpace(email) Then
+            Return True
+
+        Else
+
+            Try
+                Dim addr As New System.Net.Mail.MailAddress(email)
+                ' zusätzlicher Check: Domain muss einen Punkt enthalten
+                Dim domain As String = addr.Host
+                If Not domain.Contains(".") Then Return False
+                Return True
+            Catch
+                Return False
+            End Try
+
+        End If
+
+    End Function
+
     Public Function MakeScreenshot()
         Dim form As New Form
         form = Form.ActiveForm