From 31af690dc43c6de72be915cf4782fc637d2950aa Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 2 Jan 2023 15:49:06 +0100
Subject: [PATCH] =?UTF-8?q?GVMS-EMail=20Brexit=20=C3=84nderung=20f=C3=BCr?=
 =?UTF-8?q?=20Mathias?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/frmSendungsdetailsNEU.vb | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

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