edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GVMS-EMail Brexit Änderung für Mathias

Browse Source
This commit is contained in:
d.breimaier
2023-01-02 15:49:06 +01:00
parent aba44a5f95
commit 31af690dc4
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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