Bugfix Emailversand, kurli. Schriftart aus Email/Anhang entfernen, Prüfung für dopp. Positionen

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -13,6 +13,8 @@ Imports System.Threading
 Imports System.Net
 Imports Spire.Pdf.Tables
 Imports System.Windows.Forms.VisualStyles
+Imports System.Text.RegularExpressions
+Imports System.Runtime.InteropServices.ComTypes
 
 Public Class cDATENSERVER
 
@@ -270,7 +272,18 @@ Public Class cDATENSERVER
         s = s.Replace("Ì", ".")
         s = s.Replace("Ü", "U") ' .... das zum Beispiel
 
+        s = s.Replace("А", "A") 'cyrillic A
+        s = s.Replace("Р", "P") 'cyrillic P
+        s = s.Replace("С", "C") 'cyrillic C
+        s = s.Replace("Т", "T") 'cyrillic T
+        s = s.Replace("Ѕ", "S") 'cyrillic S
+        s = s.Replace("І", "I") 'cyrillic I
+        s = s.Replace("Ј", "J") 'cyrillic J
+        s = s.Replace("Е", "E") 'cyrillic E
 
+        Dim temp = s
+        s = Regex.Replace(s, "[бБвгГдДёЁжЖзЗиИйЙкКлЛмнпПртфФхХцЦчЧшШщЩъЪыЫьЬэЭюЮяЯ]", "").Replace("""", "") 'REMOVE cyrillic letters 
+        'If s = "" Then s = temp
 
         Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
         s = System.Text.Encoding.UTF8.GetString(tempBytes)
@@ -1862,7 +1875,16 @@ Public Class DATENVERVER_OPTIONS
             My.Computer.FileSystem.CreateDirectory(TMP_PATH2)
         End If
         If delete Then clearTMPPath(unterOrdner)
-        If name = "" Then name = "TMP"
+
+        If name = "" Then
+            name = "TMP"
+        Else
+            name = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(name)
+            name = name.Replace("?", "")
+        End If
+
+
+
         Dim destPath = TMP_PATH2 & name
         If special Then destPath = TMP_PATH2 & name & "_" & Now.ToString("yyyyMMddHHmmssfff") & extension