WhatsApp, Anhänge SR, etc.

2026-08-24 08:20:51 +02:00
parent 05a84e20d4
commit 6dc4001cac
4 changed files with 9 additions and 6 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
@@ -481,9 +481,7 @@ Public Class cSMS
            If Originator = "" Then Originator = absenderFirma
            If Originator.Length > 11 Then Originator = Originator.Substring(0, 11)

-            If Message.Contains(vbLf) Then
-                Message = Message.Replace(vbLf, ", ")
-            End If
+            Message = System.Text.RegularExpressions.Regex.Replace(Message, "\r\n|\r|\n", ", ")

            Dim json As New Chilkat.JsonObject