Kundenkontakte, prüfung ob korrekte Email.

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -105,6 +105,8 @@ Public Class cKundenKontakte
     Property kkd_Firmenname As Object = Nothing
     Property kkd_Geburtsort As Object = Nothing
     Property kkd_Geburtsland As Object = Nothing
+    Property kkd_letzteAenderungUser As String
+    Property kkd_letzteAenderung As DateTime
 
     Public hasEntry = False
 
@@ -155,6 +157,8 @@ Public Class cKundenKontakte
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsort", kkd_Geburtsort))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsland", kkd_Geburtsland))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_letzteAenderungUser", kkd_letzteAenderungUser))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_letzteAenderung", kkd_letzteAenderung))
 
 
         Return list

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -1,7 +1,4 @@
-Imports GrapeCity.ActiveReports
-Imports GrapeCity.ActiveReports.Document
-Imports System.ComponentModel
-Imports System.Data.SqlClient
+Imports System.Data.SqlClient
 Imports System.IO
 
 Public Class cAllgemein

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