fix zugferd service

Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -97,9 +97,27 @@ Public Class ImportZUGFeRDFiles
     Private Function MoveAndRenameEmailToRejected(Args As WorkerArgs, MessageId As String) As EmailData
         Dim oEmailData = GetEmailDataForMessageId(MessageId)
         Dim oSource = GetOriginalEmailPath(Args.OriginalEmailDirectory, MessageId)
-        Dim oDestination = GetEmailPathWithSubjectAsName(Args.RejectedEmailDirectory, oEmailData.Subject)
+        Dim oDestination As String
+
+        ' If oEmailData is Nothing, TBEDM_EMAIL_PROFILER_HISTORY for MessageId was not found. 
+        ' This only should happen when testing and db-tables are deleted frequently
+        If oEmailData Is Nothing Then
+            oDestination = GetEmailPathWithSubjectAsName(Args.RejectedEmailDirectory, MessageId)
+        Else
+            oDestination = GetEmailPathWithSubjectAsName(Args.RejectedEmailDirectory, oEmailData.Subject)
+        End If
+
+        _logger.Debug("Destination for eml file is {0}", oDestination)
+
         Dim oFinalFileName = _filesystem.GetVersionedFilename(oDestination)
 
+        _logger.Debug("Versioned filename for eml file is {0}", oFinalFileName)
+
+        If oEmailData Is Nothing Then
+            _logger.Warn("Could not get Email Data from database. File {0} will not be moved!", oSource)
+            Return Nothing
+        End If
+
         Try
             _logger.Info("Moving email from {0} to {1}", oSource, oFinalFileName)
             IO.File.Move(oSource, oFinalFileName)
@@ -114,6 +132,11 @@ Public Class ImportZUGFeRDFiles
     End Function
 
     Private Sub AddToEmailQueue(MessageId As String, BodyText As String, EmailData As EmailData)
+        If EmailData Is Nothing Then
+            _logger.Warn("EmailData is empty. Email will not be sent!")
+            Exit Sub
+        End If
+
         Try
             Dim oJobId = RandomValue(1, 10000)
             Dim oReference = MessageId