dyn Mailvorlagen

SDL/frmdynMailvorlage.vb

@@ -1,15 +1,20 @@
-Imports Microsoft.Office.Interop
+Imports System.Windows.Controls
+Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmdynMailvorlage
 
     Dim txtkonserve As New cTextkonserve
     Dim editall As Boolean = False
+    Dim h2t As New Chilkat.HtmlToText
+
+
 
 
     Sub New(permission As Boolean)
         InitializeComponent()
         editall = permission
+        VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
     End Sub
 
     Private Sub Mailvorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -190,7 +195,7 @@ Public Class frmdynMailvorlage
             txtBetreff.Text = txtkonserve.txt_betreff
             cbxAktiv.Checked = txtkonserve.txt_dynMailvorlage
             cboSprache._value = txtkonserve.txt_sprache
-            rtb_Emailtext.Text = txtkonserve.txt_text
+            rtb_Emailtext.Text = h2t.ToText(txtkonserve.txt_text)
             cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig)
             cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA)
 
@@ -214,7 +219,7 @@ Public Class frmdynMailvorlage
             txtKS.txt_betreff = txtBetreff.Text
             txtKS.txt_dynMailvorlage = cbxAktiv.Checked
             txtKS.txt_sprache = cboSprache._value
-            txtKS.txt_text = rtb_Emailtext.Text
+            txtKS.txt_text = insertlinebreaks(rtb_Emailtext.Text)
             txtKS.txt_FIRMA = cbxFirmaChange._value
             txtKS.txt_firmaSig = cboFirmensignatur._value
 
@@ -306,7 +311,7 @@ Public Class frmdynMailvorlage
             If rtb_Emailtext.Text <> "" AndAlso cboSprache._value <> "" Then
 
                 Dim TextHTML = ""
-                TextHTML &= rtb_Emailtext.Text
+                TextHTML &= insertlinebreaks(rtb_Emailtext.Text)
                 TextHTML &= "<br>"
                 TextHTML &= "<br>"
                 TextHTML &= "Mit freundlichen Grüßen<br>"
@@ -330,7 +335,12 @@ Public Class frmdynMailvorlage
 
     End Sub
 
-    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+    Private Function insertlinebreaks(text As String) As String
+
+        Return text.ToString.Replace(vbLf, vbLf & "<br>")
+
+    End Function
+
+
 
-    End Sub
 End Class