Imports Limilabs.Client.IMAP
Imports WINDREAMLib

Public Class ClassCurrent
    Public Shared Property WM_DRIVE As String

    Public Shared Property CURRENT_EMAIL_GUID As Integer
    Public Shared Property CURRENT_PROFILE_GUID As Integer

    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 Property CURRENToWMSession As Object
    Public Shared Property CURRENToWMSession_Created As Date = Now
    Public Shared Property CURRENToWMConnect As Object
    Public Shared Property CURRENT_ATTMT_COUNT As Integer
    Public Shared Property SUBJECT_PRAFIX As String = "EmailProfiler"
    Public Shared Property CURRENT_DRIVE_CHECK As String = ""
    Public Shared Property CURRENT_DRIVE_ISFULL As Boolean = False

    Public Shared Property CURRENT_WORKMAIL_UID_LIST As New List(Of Long)

    Public Shared Property CURRENT_ImapObject As Imap
    Public Shared Property CURRENT_MAIL_UID As Long

    Public Shared Property DeleteMail As Boolean = False
    Public Shared Property CURRENT_POLL_TYPE As String

    Public Shared Property POLL_STEP_GUID As Integer
    Public Shared Property POLL_KEYWORDS As String
    Public Shared Property 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 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 MESSAGE_ERROR As Boolean = False
    Public Shared Property IS_LOCAL_TEST As Boolean = False

    Public Shared Property TEMP_FILES As List(Of String) = New List(Of String)

    Public Shared Property TEMP_WORK_FILES As List(Of String) = New List(Of String)
    Public Shared Property GDPictureLicense As String = ""

    Public Shared Property EmailAttachments As List(Of EmailAttachment) = New List(Of EmailAttachment)
End Class
