Fix Namespace

This commit is contained in:
Jonathan Jenne
2023-09-19 13:15:42 +02:00
parent e811cd9c2a
commit 1ca7a009d9
12 changed files with 26 additions and 34 deletions

View File

@@ -1,6 +1,6 @@
Imports System.Text.RegularExpressions
Imports WINDREAMLib
Imports DigitalData.EMLProfiler.ClassCurrent
Imports EmailProfiler.Common.ClassCurrent
Imports System.IO
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
@@ -159,7 +159,7 @@ Public Class clsWorkEmail
If oResult <> "" Then
'insert history und exit
InsertHistoryEntryWithStatus(pMailMessage, "REJECTED", oResult)
InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", oResult)
AddToEmailQueueMSSQL(CurrentMail.MessageId, oResult, "Email validation failed", _EmailAccountID)