From 3504fa862c353c52a7dce8691be8d25c7763a471 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 26 Jun 2026 16:09:10 +0200
Subject: [PATCH] funk

---
 VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 40 -----------------------
 1 file changed, 40 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index 40296602..70accfb2 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/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