news

SDL/kunden/Newsletter/frmNewsletter.vb

@@ -77,12 +77,21 @@ Public Class frmNewsletter
     Public Function IsValidEmail(email As String) As Boolean
         If String.IsNullOrWhiteSpace(email) Then Return True
 
-        Try
-            Dim addr = New System.Net.Mail.MailAddress(email)
-            Return addr.Address = email.Trim()
-        Catch
-            Return False
-        End Try
+        Dim parts = email.Split({";"c, ","c}, StringSplitOptions.RemoveEmptyEntries)
+
+        For Each part In parts
+            Dim addrText = part.Trim()
+            If addrText = "" Then Continue For
+
+            Try
+                Dim addr As New System.Net.Mail.MailAddress(addrText)
+                If addr.Address <> addrText Then Return False
+            Catch
+                Return False
+            End Try
+        Next
+
+        Return True
     End Function
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click