shorten subject to 100 chars when writing mail to disk, clean up, wip mail container

App/DigitalData.EMLProfiler/ClassCurrent.vb

@@ -6,72 +6,68 @@ Imports MailBox = Limilabs.Mail.Headers.MailBox
 Imports Limilabs.Client.IMAP
 
 Public Class ClassCurrent
-    Public Shared WM_CON_STRING As String
-    Public Shared WM_DRIVE As String
-    Public Shared TIMER_INTERVALL As Integer = 5
+    Public Shared Property WM_CON_STRING As String
+    Public Shared Property WM_DRIVE As String
+    Public Shared Property TIMER_INTERVALL As Integer = 5
 
-    Public Shared LOG_INITIALIZED As Boolean = False
-    Public Shared CURRENT_FILEIN_WD As String
-    Public Shared CURRENT_IMPORT_ID As Integer
+    Public Shared Property CURRENT_EMAIL_GUID As Integer
+    Public Shared Property CURRENT_PROFILE_GUID As Integer
+    Public Shared Property DTCONFIG As DataTable
+    Public Shared Property DT_ECM_BASE_CONFIG As DataTable
+    Public Shared Property PATH_TEMP As String
+    Public Shared Property PATH_ERROR As String
 
-    Public Shared CURRENT_EMAIL_GUID As Integer
-    Public Shared CURRENT_PROFILE_GUID As Integer
-    Public Shared DTCONFIG As DataTable
-    Public Shared DT_ECM_BASE_CONFIG As DataTable
-    Public Shared PATH_TEMP As String
-    Public Shared PATH_ERROR As String
+    Public Shared Property MAIL_BODY_FONT As String = ""
+    Public Shared Property MAIL_FROM As String = ""
+    Public Shared Property MAIL_SERVER As String = ""
+    Public Shared Property MAIL_USER As String = ""
+    Public Shared Property MAIL_USER_PW As String = ""
+    Public Shared Property MAIL_PORT As Integer = 995
+    Public Shared Property MAIL_INBOX_NAME As String = "Inbox"
+    Public Shared Property MAIL_ARCHIVE_FOLDER As String = ""
+    Public Shared Property MAIL_AUTHTYPE As String
+    Public Shared Property DT_POLL_PROCESS As DataTable
+    Public Shared Property DT_STEPS As DataTable
+    Public Shared Property DT_INDEXING_STEPS As DataTable
 
-    Public Shared MAIL_BODY_FONT As String = ""
-    Public Shared MAIL_FROM As String = ""
-    Public Shared MAIL_SERVER As String = ""
-    Public Shared MAIL_USER As String = ""
-    Public Shared MAIL_USER_PW As String = ""
-    Public Shared MAIL_PORT As Integer = 995
-    Public Shared MAIL_INBOX_NAME As String = "Inbox"
-    Public Shared MAIL_ARCHIVE_FOLDER As String = ""
-    Public Shared MAIL_AUTHTYPE As String
-    Public Shared DT_POLL_PROCESS As DataTable
-    Public Shared DT_STEPS As DataTable
-    Public Shared DT_INDEXING_STEPS As DataTable
+    ' Public Shared Property oCURRENT_WORKMAIL_LIST As New ArrayList()
+    Public Shared Property CURRENT_WORKMAIL_UID_LIST As New List(Of Long)
 
-    ' Public Shared oCURRENT_WORKMAIL_LIST As New ArrayList()
-    Public Shared CURRENT_WORKMAIL_UID_LIST As New List(Of Long)
+    Public Shared Property CURRENT_MAIL_MESSAGE As IMail
+    Public Shared Property CURRENT_TEMP_MAIL_PATH As String
+    Public Shared Property CURRENT_MAIL_BODY_ALL As String
+    Public Shared Property CURRENT_MAIL_BODY_ANSWER1 As String = ""
+    Public Shared Property CURRENT_MAIL_BODY_Substr2 As String = ""
+    Public Shared Property CURRENT_MAIL_SUBJECT As String = ""
+    Public Shared Property CURRENT_MAIL_FROM As String = ""
+    Public Shared Property CURRENT_MAIL_MESSAGE_ID As String = ""
+    Public Shared Property CURRENT_MAIL_UID As Long
+    Public Shared Property CURRENT_MAIL_PROCESS_NAME As String
+    Public Shared Property CURRENT_ImapObject As Imap
 
-    Public Shared CURRENT_MAIL_MESSAGE As IMail
-    Public Shared CURRENT_TEMP_MAIL_PATH As String
-    Public Shared CURRENT_MAIL_BODY_ALL As String
-    Public Shared CURRENT_MAIL_BODY_ANSWER1 As String = ""
-    Public Shared CURRENT_MAIL_BODY_Substr2 As String = ""
-    Public Shared CURRENT_MAIL_SUBJECT As String = ""
-    Public Shared CURRENT_MAIL_FROM As String = ""
-    Public Shared CURRENT_MAIL_MESSAGE_ID As String = ""
-    Public Shared CURRENT_MAIL_UID As Long
-    Public Shared CURRENT_MAIL_PROCESS_NAME As String
-    Public Shared CURRENT_ImapObject As Imap
+    Public Shared Property DeleteMail As Boolean = False
+    Public Shared Property CURRENT_POLL_TYPE As String
 
-    Public Shared DeleteMail As Boolean = False
-    Public Shared CURRENT_POLL_TYPE As String
+    Public Shared Property POLL_STEP_GUID As Integer
+    Public Shared Property POLL_STEP_PROCESS_ID As Integer
+    Public Shared Property POLL_KEYWORDS As String
+    Public Shared Property KEYWORDS_SPLIT As String()
 
-    Public Shared POLL_STEP_GUID As Integer
-    Public Shared POLL_STEP_PROCESS_ID As Integer
-    Public Shared POLL_KEYWORDS As String
-    Public Shared KEYWORDS_SPLIT As String()
+    Public Shared Property WM_REFERENCE_INDEX As String
+    Public Shared Property WM_VECTOR_LOG As String
+    Public Shared Property WM_OBJEKTTYPE As String
+    Public Shared Property WM_IDX_BODY_TEXT As String
+    Public Shared Property WM_IDX_BODY_SUBSTR_LENGTH As String
 
-    Public Shared WM_REFERENCE_INDEX As String
-    Public Shared WM_VECTOR_LOG As String
-    Public Shared WM_OBJEKTTYPE As String
-    Public Shared WM_IDX_BODY_TEXT As String
-    Public Shared WM_IDX_BODY_SUBSTR_LENGTH As String
+    Public Shared Property CURRENT_WM_DOC As WMObject
+    Public Shared Property CURRENT_DOC_ID As Integer
+    Public Shared Property CURRENT_DOC_PATH As String
+    Public Shared Property MessageError As Boolean = False
 
-    Public Shared CURRENT_WM_DOC As WMObject
-    Public Shared CURRENT_DOC_ID As Integer
-    Public Shared CURRENT_DOC_PATH As String
-    Public Shared MessageError As Boolean = False
+    Public Shared Property TEMP_FILES As List(Of String) = New List(Of String)
+    Public Shared Property TEMP_HTML_RESULTS As List(Of String) = New List(Of String)
 
-    Public Shared TEMP_FILES As List(Of String) = New List(Of String)
-    Public Shared TEMP_HTML_RESULTS As List(Of String) = New List(Of String)
-
-    Public Shared CURRENT_DEBUG_LOCAL_EMAIL As String
+    Public Shared Property CURRENT_DEBUG_LOCAL_EMAIL As String
 
 
 End Class