Fix references to Firebird tables

Jobs/ZUGFeRD/EmailFunctions.vb

@@ -141,7 +141,7 @@ Public Class EmailFunctions
     End Sub
 
     Public Function GetEmailDataForMessageId(MessageId As String) As EmailData
-        Dim oSQL = $"SELECT EMAIL_FROM, EMAIL_SUBJECT, EMAIL_ATTMT1 FROM TBEMLP_HISTORY WHERE EMAIL_MSGID = '{MessageId}'"
+        Dim oSQL = $"SELECT EMAIL_FROM, EMAIL_SUBJECT FROM TBEMLP_HISTORY WHERE EMAIL_MSGID = '{MessageId}'"
         Try
             Dim oDatatable = _mssql.GetDatatable(oSQL)
             Dim oRow As DataRow
@@ -159,15 +159,11 @@ Public Class EmailFunctions
             Dim oFromDefault = String.Format("No Sender found for ({0})", MessageId)
             Dim oFrom = oRow.ItemEx("EMAIL_FROM", oFromDefault)
 
-            Dim oAttachmentDefault = String.Format("No Attachment found for ({0})", MessageId)
-            Dim oAttachment = oRow.ItemEx("EMAIL_ATTMT1", oAttachmentDefault)
-
             Dim oSubjectDefault = String.Format("No Subject found for ({0})", MessageId)
             Dim oSubject = oRow.ItemEx("EMAIL_SUBJECT", oSubjectDefault)
 
             Return New EmailData() With {
                 .From = oFrom,
-                .Attachment = oAttachment,
                 .Subject = oSubject
             }
         Catch ex As Exception