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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-09 16:29:20 +01:00
parent 31fc1c48ff ebafee916f
commit 45a8e53ec5
16 changed files with 3830 additions and 732 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5465,16 +5465,19 @@ 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.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString
For Each account In accounts
If account.UserName.ToString = "brexit" Then Mail.SendUsingAccount = account
Next
' End If
'Next
Mail = Mail.ReplyAll
isReply = True