GD Picture 14.3.18

This commit is contained in:
Developer01
2025-12-08 10:09:18 +01:00
parent 12e9538968
commit 904c4a7f2e
7 changed files with 219 additions and 66 deletions

View File

@@ -546,7 +546,6 @@ Public Class clsWorkEmail
Dim TEMP_PROCESS_PROFILE_DT As DataTable = DT_POLL_PROCESS
Dim PM_ROW As DataRow() = TEMP_PROCESS_PROFILE_DT.Select(oExpression)
For Each row As DataRow In PM_ROW
Try
WM_REFERENCE_INDEX = row("WM_REFERENCE_INDEX")
Catch ex As Exception
@@ -563,8 +562,6 @@ Public Class clsWorkEmail
If Copy2HDD(pCurrentMail, row("COPY_2_HDD"), row("PATH_ORIGINAL"), row("PATH_EMAIL_ERRORS"), False) = True Then
ExtractBody(pCurrentMail)
End If
Next
If CURRENT_MAIL_SUBJECT.Contains("[PROCESSMANAGER][EA]") Then