MS2909

Global_Indexer/ClassFilehandle.vb

@@ -39,7 +39,10 @@ Public Class ClassFilehandle
             If Not msg.InternetMessageId Is Nothing Then
                 CURRENT_MESSAGEID = msg.InternetMessageId
             Else
-                MsgBox("Es konnte keine Message-ID ausgelesen werden." & vbNewLine & "Dies kann zu Fehlern in der Indexierung führen!", MsgBoxStyle.Exclamation, "Achtung:")
+                If LogErrorsOnly = False Then ClassLogger.Add(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!", False)
+                Dim sGUID As String
+                sGUID = System.Guid.NewGuid.ToString()
+                CURRENT_MESSAGEID = sGUID
             End If
 
             'Nur die MSGDatei ablegen
@@ -103,23 +106,22 @@ Public Class ClassFilehandle
         ' Prüft, ob die angegeben Datei aktuell durch eine
         ' andere Anwendung in Benutzung ist
         Dim ff As Integer = FreeFile()
-
         If System.IO.File.Exists(fullFilePath) Then
             Try
                 ' Versuchen, die Datei mit *exklusiven* Lese- und
                 ' Schreibrechten zu öffnen
-                FileOpen(ff, fullFilePath, OpenMode.Binary, _
-                                           OpenAccess.ReadWrite, _
-                                           OpenShare.LockReadWrite)
-            Catch
+                FileOpen(ff, fullFilePath, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+            Catch ex As Exception
                 ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
                 ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
                 ' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
+                If LogErrorsOnly = False Then ClassLogger.Add(">> FileInUse Message: " & ex.Message, False)
                 IsFileInUse = True
             Finally
                 ' Die eventuell geöffnete Datei schließen
                 FileClose(ff)
             End Try
+            Return False
         End If
 
     End Function