einmal mit profis

Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -168,7 +168,7 @@ Public Class ImportZUGFeRDFiles
                     For Each oFile In oFileGroupFiles
                         Dim oResult As ProcessFileResult = ProcessFile(oMessageId, oEmailDataBase, oZUGFeRDCount, oFile, oConnections, oArgs)
 
-                        If oResult.ZugferdFileFound = False Then
+                        If oResult.ZugferdFileFound = True Then
                             _logger.Debug("Zugferd File found")
                             oMD5CheckSum = oResult.MD5Checksum
                             oZUGFeRDCount = oResult.ZugferdFileCount
@@ -478,6 +478,7 @@ Public Class ImportZUGFeRDFiles
 
         ' Since extraction went well, increase the amount of ZUGFeRD files
         pZugferdFiles += 1
+        _logger.Info("Zugferd file found. Increasing counter.")
 
         ' Extract all attachments with the extensions specified in `AllowedExtensions`.
         ' If you need to extract and use embedded xml files, you need to filter out the zugferd-invoice.xml yourself.

Messaging/Mail/MailSender.vb

@@ -9,7 +9,11 @@ Namespace Mail
 
         Public ReadOnly Property Connected2Server As Boolean
             Get
-                Return MailSession.Session.Connected
+                If MailSession IsNot Nothing AndAlso MailSession.Session IsNot Nothing Then
+                    Return MailSession.Session.Connected
+                Else
+                    Return False
+                End If
             End Get
         End Property