Kunednkontakte, Bereichitungsgruppen (Ansicht), StartOptions, etc.

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -900,25 +900,44 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
     End Function
 
-    Shared Function checkifMailisOK(email As String) As Boolean
+    Shared Function checkifMailisOK(emailList As String) As String
 
-        If String.IsNullOrWhiteSpace(email) Then
-            Return True
+        Dim invalid As New List(Of String)
 
-        Else
+        If String.IsNullOrWhiteSpace(emailList) Then Return ""
+
+        Dim emails = emailList.Split(";"c, ","c)
+
+        For Each email In emails
+            Dim e = email.Trim()
+            If e = "" Then Continue For
 
             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
+                Dim addr As New System.Net.Mail.MailAddress(e)
+                If Not addr.Host.Contains(".") Then
+                    invalid.Add(e)
+                End If
             Catch
-                Return False
+                invalid.Add(e)
             End Try
+        Next
+
+        If invalid.Count = 0 Then
+            Return ""
+        Else
+            Dim StringLIst As String = ""
+            For i = 1 To invalid.Count
+                StringLIst = StringLIst & invalid(i - 1)
+            Next i
+
+            Return StringLIst
 
         End If
 
+
+
+
+
     End Function
 
     Public Function MakeScreenshot()