temp. GDPicture Lizenz-Abfrage

ExtractAttachment-Logik

App/EmailProfiler.Common/clsWorker.vb

@@ -6,6 +6,7 @@ Imports DigitalData.Modules.Messaging.Mail
 Imports Limilabs.Mail
 Imports Limilabs.Mail.Headers
 Imports System.Reflection.Emit
+Imports GdPicture14
 
 Public Class clsWorker
     Private ReadOnly Logger As Logger
@@ -84,7 +85,7 @@ Public Class clsWorker
         Return Database.GetDatatable(oSQL)
     End Function
 
-    Public Sub Start_WorkingProfiles(Optional LocalEmail As Boolean = False)
+    Public Sub Start_WorkingProfiles(Optional LocalEmail As Boolean = False, Optional CallFromService As Boolean = False)
         Try
             DeleteTempFiles()
             IS_LOCAL_TEST = LocalEmail
@@ -107,6 +108,10 @@ Public Class clsWorker
             Dim PollingProfileTable = LoadPollingProfiles(ProfileId)
 
             Dim oSQLGDPicture = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
+            If CallFromService = True Then
+                oSQLGDPicture = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE EMAIL_PROFILER'"
+            End If
+
             GDPictureLicense = Database.GetScalarValue(oSQLGDPicture)
 
             If IsNothing(PollingProfileTable) Then