Gessamtsicherheiten, Gesamtsicherheiten, essensbestellungen

Aviso/frmSendungsdetailsNEU.vb

@@ -5461,15 +5461,18 @@ Public Class frmSendungsdetailsNEU
 
                         Dim olSess = outl.Session
 
+                        Dim accounts = olSess.Accounts
+                        Dim account As Outlook.Account
+
                         Dim PathTmpANH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.CurrentRow.Cells("anh_docId").Value)
 
                         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
+                            If account.UserName.ToString = "brexit" Then
+                                Mail.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString
+
+                            End If
                         Next
 
                         Mail = Mail.ReplyAll