div. Änderungen

This commit is contained in:
2026-05-11 16:43:04 +02:00
parent b8bf791514
commit 9c49307892

View File

@@ -1275,8 +1275,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If filepath <> "" Then If filepath <> "" Then
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(filepath) anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("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) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von RMC für Importdatei: " & fi.Name & vbNewLine & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & vbNewLine & "*Automatic generated e-mail*",,,,,, anhenge)
End If End If
End If End If