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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-12-05 11:03:20 +01:00
parent c495bd03b4
commit fedbd98286
14 changed files with 480 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -682,7 +682,7 @@ Public Class frmFaktEmail
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
If Firma_ID = 24 OrElse Firma_ID = 19 Then
If Firma_ID = 24 OrElse Firma_ID = 19 OrElse Firma_ID = 1 OrElse Firma_ID = 7 Then
Try
Dim oAccount As Outlook.Account
Dim accountToSent = ""
@@ -690,8 +690,10 @@ Public Class frmFaktEmail
Select Case Firma_ID
Case 24
accountToSent = SDL.cFakturierung.getDefaultMail("AMBAR",, True)
Case Else
Case 19
accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
Case Else
accountToSent = "rechnungsversand@verag.ag"
End Select