MS2501

Global_Indexer/ClassFilehandle.vb

@@ -25,7 +25,7 @@ Public Class ClassFilehandle
                     Dim result As MsgBoxResult
                     result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                     If result = MsgBoxResult.Yes Then
-                        If handletype.StartsWith("@FW") Then
+                        If handletype.StartsWith("|FW") Then
                             Return Email_Decay(filename, True)
                         Else
                             Return Email_Decay(filename)
@@ -41,11 +41,11 @@ Public Class ClassFilehandle
     End Function
     Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
         Try
-            Dim msgonly As String = "@MSGONLY@"
-            Dim ATT_EXTR As String = "@ATTMNTEXTRACTED@"
+            Dim msgonly As String = "|MSGONLY|"
+            Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
             If FW = True Then
-                msgonly = "@FW_MSGONLY@"
-                ATT_EXTR = "@FW_ATTMNTEXTRACTED@"
+                msgonly = "|FW_MSGONLY|"
+                ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
             End If
             Dim erfolgreich As Boolean = False
             Dim msg As New Msg.Message(msgname)