funk

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -1204,46 +1204,6 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             EmAilAttach = String.Empty
         End Try
 
-    End Function
-
-    Shared Function checkifMailisOK(emailList As String) As String
-
-        Dim invalid As New List(Of String)
-
-        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(e)
-                If Not addr.Host.Contains(".") Then
-                    invalid.Add(e)
-                End If
-            Catch
-                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
 
     Shared Function checkifMailisOK_better(emailList As String) As String