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

Verwahrung, Mitarbeiter, Fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-15 10:11:20 +02:00
parent 68309d46e2
commit 25a802f2a6
6 changed files with 256 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -1175,7 +1175,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If filepath <> "" Then
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("RMC Import", 19)
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr (EASYTRIP)", "Im Anhang die zu prüfenden Kunden von WÖLFL EasyTrip: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
End If
End If
@@ -1269,7 +1269,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If filepath <> "" Then
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("RMC Import", 19)
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von WÖLFL für Importdatei: " & fi.Name & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
End If
End If