MS Limilabs etc

App/DigitalData.EMLProfiler/ClassCurrent.vb

@@ -1,6 +1,8 @@
-Imports Independentsoft.Email.Mime
-Imports WINDREAMLib
-
+Imports WINDREAMLib
+Imports Limilabs.Mail
+Imports Limilabs.Mail.MIME
+Imports Limilabs.Mail.Headers
+Imports MailBox = Limilabs.Mail.Headers.MailBox
 Public Class ClassCurrent
     Public Shared WM_CON_STRING As String
     Public Shared WM_DRIVE As String
@@ -31,13 +33,14 @@ Public Class ClassCurrent
 
     Public Shared CURRENT_WORKMAIL_LIST As New ArrayList()
 
-    Public Shared CURRENT_MAIL_MESSAGE As Message
+    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_PROCESS_NAME As String
 
     Public Shared CURRENT_POLL_TYPE As String