MS Common: Version 3.0.2 - GDPicture Licensing

App/EmailProfiler.Common/clsWorkEmail.vb

@@ -888,7 +888,11 @@ Public Class clsWorkEmail
                                 'ToDo Konsistenz prüfen
                                 If oFileInfo.Extension.ToLower = ".pdf" Then
                                     Dim oPDFConsistent As Boolean = True
+                                    Dim oLicenseManager As New LicenseManager
+                                    oLicenseManager.RegisterKEY(GDPictureLicense)
+
                                     Dim oGdPicturePDF As New GdPicturePDF()
+                                    ' Lic
                                     Dim oStatus As GdPictureStatus = oGdPicturePDF.LoadFromFile(oAttachmentFilePath, True)
                                     If oStatus <> GdPictureStatus.OK Then
                                         oPDFConsistent = False