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

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-09 16:23:32 +01:00
parent aae58351a7
commit ebafee916f
8 changed files with 459 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5468,12 +5468,12 @@ Public Class frmSendungsdetailsNEU
Mail = CType(olSess.OpenSharedItem(PathTmpANH), Outlook.MailItem)
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.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString
End If
Next
' End If
'Next
Mail = Mail.ReplyAll
isReply = True