Fix Namespace
This commit is contained in:
@@ -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)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user