53 lines
1.3 KiB
VB.net
53 lines
1.3 KiB
VB.net
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
|