Textkonserve, Mahnlauf und Mailvorlage.

SDL/frmdynMailvorlage.vb

@@ -210,10 +210,10 @@ Public Class frmdynMailvorlagen
             rtb_txthtml.Text = txtkonserve.txt_text
             cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig)
             cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA)
-
             cbSendungsvermerk.Checked = txtkonserve.txt_sendungsvermerk
             cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId)
             txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText
+            txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail
 
 
         Catch ex As Exception
@@ -240,7 +240,7 @@ Public Class frmdynMailvorlagen
             txtKS.txt_firmaSig = cboFirmensignatur._value
             txtKS.txt_letzteAenderung = DateTime.Now
             txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-
+            txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text
             txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked
 
             If cbSendungsvermerk.Checked AndAlso cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub
@@ -346,6 +346,7 @@ Public Class frmdynMailvorlagen
             Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
             Mail = outl.CreateItem(0)
 
+            If txtfixeEmail.Text <> "" Then Mail.To = txtfixeEmail.Text
 
             If rtb_Emailtext.Text <> "" AndAlso cboSprache._value <> "" Then