Imports Limilabs.Mail
Imports DigitalData.Modules.Language

Public Class MailContainer
    Private ReadOnly Uid As String
    Private ReadOnly FilteredMessageId

    Public ReadOnly Property Mail As IMail

    Public ReadOnly Property Subject As String
        Get
            Return Mail.Subject
        End Get
    End Property

    Public ReadOnly Property MessageId As String
        Get
            Return Mail.MessageID
        End Get
    End Property

    Public ReadOnly Property MessageIdPathSafe As String
        Get
            Return FilteredMessageId
        End Get
    End Property

    Public Property BodyComplete As String
    Public Property BodySubstring1 As String
    Public Property BodySubstring2 As String



    Public Sub New(pMail As IMail, pUid As String)
        Mail = pMail
        Uid = pUid
        FilteredMessageId = ProcessMessageId(pMail.MessageID)
    End Sub

    Private Function ProcessMessageId(pOriginalMessageId As String) As String
        If pOriginalMessageId Is Nothing Then
            Return Guid.NewGuid.ToString
        End If

        If TypeOf pOriginalMessageId Is String AndAlso pOriginalMessageId.Length = 0 Then
            Return Guid.NewGuid.ToString
        End If

        Return Utils.RemoveInvalidCharacters(pOriginalMessageId)
    End Function

End Class