ustva, automail, etc.

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -945,8 +945,6 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
         End Select
 
-
-
         mySmtpsvr.UseDefaultCredentials = False
         mySmtpsvr.Credentials = myCredentials
         Try
@@ -955,20 +953,26 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             Msg.From = New MailAddress(eMailfrom)
 
             If eMailTo IsNot Nothing Then
-                For Each s In eMailTo.ToString.Split(";")
-                    If s <> "" Then Msg.To.Add(convertToIso(s).ToString.Trim())
+                For Each s As String In eMailTo.ToString.Split(";"c)
+                    If Not String.IsNullOrWhiteSpace(s) Then
+                        Msg.To.Add(convertToIso(s).Trim())
+                    End If
                 Next
             End If
 
             If cc IsNot Nothing Then
-                For Each s In cc.ToString.Split(";")
-                    If s <> "" Then Msg.CC.Add(convertToIso(s).ToString.Trim())
+                For Each s As String In cc.ToString.Split(";"c)
+                    If Not String.IsNullOrWhiteSpace(s) Then
+                        Msg.CC.Add(convertToIso(s).Trim())
+                    End If
                 Next
             End If
 
             If bcc IsNot Nothing Then
-                For Each s In bcc.ToString.Split(";")
-                    If s <> "" Then Msg.Bcc.Add(convertToIso(s).ToString.Trim())
+                For Each s As String In bcc.ToString.Split(";"c)
+                    If Not String.IsNullOrWhiteSpace(s) Then
+                        Msg.Bcc.Add(convertToIso(s).Trim())
+                    End If
                 Next
             End If
 
@@ -1244,8 +1248,13 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Dim invalid As New List(Of String)
         Dim idn As New IdnMapping()
 
+        'If emailList.EndsWith("; ") Then
+        '    Return emailList
+        'End If
+
         For Each email As String In emailList.Split(";"c, ","c)
 
+
             Dim e As String = email.Trim()
 
             If e = "" Then Continue For
@@ -1284,14 +1293,9 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
                     invalid.Add(e)
                     Continue For
                 End If
-                ' Keine führenden/abschließenden Semikolons
-                If localPart.EndsWith("; ") Then
-                    invalid.Add(e)
-                    Continue For
-                End If
 
-                ' Keine doppelten Punkte
-                If localPart.Contains("..") Then
+                    ' Keine doppelten Punkte
+                    If localPart.Contains("..") Then
                     invalid.Add(e)
                     Continue For
                 End If
@@ -1305,6 +1309,8 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
                     Continue For
                 End If
 
+
+
                 ' Domainlabels prüfen
                 For Each label As String In domainAscii.Split("."c)