Jobs: add check for file age

Jobs/ZUGFeRD/EmailFunctions.vb

@@ -141,17 +141,6 @@ Namespace ZUGFeRD
             End If
         End Function
 
-        Public Function GetEmailPathWithSubjectAsName(RejectedEmailDirectory As String, UncleanedSubject As String) As String
-            Dim oCleanSubject = String.Join("", UncleanedSubject.Split(Path.GetInvalidPathChars()))
-            Dim oAttachmentDirectory = RejectedEmailDirectory
-            Dim oAttachmentFile = oCleanSubject & ".eml"
-            _logger.Debug("Email Filename is [{0}]", oAttachmentFile)
-
-            Dim oAttachmentPath = Path.Combine(oAttachmentDirectory, oAttachmentFile)
-
-            Return oAttachmentPath
-        End Function
-
         Private Function RandomValue(lowerBound As Integer, upperBound As Integer) As Integer
             Dim oRandomValue = CInt(Math.Floor((upperBound - lowerBound + 1) * Rnd())) + lowerBound
             Return oRandomValue