diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index ff77a89..9e7a98e 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -5465,6 +5465,13 @@ Public Class frmSendungsdetailsNEU
 
                         Mail = CType(olSess.OpenSharedItem(PathTmpANH), Outlook.MailItem)
 
+                        Dim accounts = olSess.Accounts
+                        Dim account As Outlook.Account
+
+                        For Each account In accounts
+                            If account.UserName.ToString = "brexit" Then Mail.SendUsingAccount = account
+                        Next
+
                         Mail = Mail.ReplyAll
                         isReply = True
 
@@ -5548,12 +5555,12 @@ Public Class frmSendungsdetailsNEU
 
                     If isReply Then
 
-                        Dim HTML = DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & Mail.HTMLBody
+                        Dim HTML = DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & Mail.HTMLBody
                         Mail.HTMLBody = HTML
                         Mail.Display()
                     Else
 
-                        Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+                        Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
                         Mail.Display()
                     End If