MS Mail Handling und Manual Run

2024-03-20 10:48:16 +01:00
parent 36e2d97b20
commit 48f9673472
3 changed files with 600 additions and 580 deletions
--- a/app/ResultHandler_Konfig/frmMain.vb
+++ b/app/ResultHandler_Konfig/frmMain.vb
@@ -733,7 +733,7 @@ Public Class frmMain
                        For Each DR As DataRow In DT.Rows
                            clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
                            'Und nun das Profil durchlaufen
-                            Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID)
+                            Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID, True)
                            If initresult = True Then
                                _profil.Profil_Durchlauf(True)
                            ElseIf initresult = False Then