diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 80f272b..c167687 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -4052,13 +4052,17 @@ Public Class frmSendungsdetailsNEU
                 End Select
 
                 If language = "DE" Then
-                    Mail.Subject = "T1 Bestätigung: | "
+                    Mail.Subject = "T1 Bestätigung | "
                 Else
-                    Mail.Subject = "T1 Confirmation: | "
+                    Mail.Subject = "T1 Confirmation | "
 
                 End If
 
-                Mail.Subject &= AVISO.LKW_Nr & " | " & txtEmpfaenger.Text
+                Mail.Subject &= AVISO.LKW_Nr
+
+                If txtEmpfaenger.Text <> "" Then Mail.Subject &= " | " & txtEmpfaenger.Text
+
+                If txtColli.Text <> "" AndAlso txtGewicht.Text <> "" Then Mail.Subject &= " | " & txtColli.Text & " Pk. " & txtGewicht.Text & " kg"
 
 
                 Dim firstTextHTMLDE = ""
@@ -4090,12 +4094,17 @@ Public Class frmSendungsdetailsNEU
 
                     Dim usrcntlGestellungsgarantieNew As New SDL.usrcntlGestellungsgarantie()
 
-                    usrcntlGestellungsgarantieNew.cboSprache.changeItem(language.ToString)
+                    usrcntlGestellungsgarantieNew.cboSprache.Items.Clear()
+                    usrcntlGestellungsgarantieNew.cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
+                    usrcntlGestellungsgarantieNew.cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN"))
+
+                    usrcntlGestellungsgarantieNew.cboSprache._value = language
 
                     usrcntlGestellungsgarantieNew.txtFirma.Text = usrcntl_NCTS.txtT1Verzollungsadresse.Text
                     usrcntlGestellungsgarantieNew.txtAdresse1.Text = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text
                     usrcntlGestellungsgarantieNew.txtAdresse2.Text = usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & " " & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text
                     usrcntlGestellungsgarantieNew.txtBestimmungszollamt.Text = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text
+                    usrcntlGestellungsgarantieNew.txtEORI.Text = usrcntl_NCTS.txtT1VerzollungsadresseEORI.Text
 
                     Dim PDF_PFad = SDL.FormularManagerNEU.genPDF(usrcntlGestellungsgarantieNew).Item(0).ToString