fakt, ustva, etc

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -958,15 +958,17 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
         End If
 
-
-
-
         mySmtpsvr.UseDefaultCredentials = False
         mySmtpsvr.Credentials = myCredentials
         Try
             'Msg.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8")
             Msg.BodyEncoding = System.Text.Encoding.UTF8 'System.Text.Encoding.GetEncoding("ISO-8859-1")
-            Msg.From = New MailAddress(eMailfrom)
+
+            If myCredentials.UserName.ToLower.Contains("no-reply") AndAlso eMailfrom.ToString.ToLower.Contains("no-reply") Then
+                Msg.From = New MailAddress(myCredentials.UserName)
+            Else
+                Msg.From = New MailAddress(eMailfrom)
+            End If
 
             If eMailTo IsNot Nothing Then
                 For Each s As String In eMailTo.ToString.Split(";"c)