EMLProfiler: replace message id with guid when longer than 100 chars

This commit is contained in:
Jonathan Jenne 2022-08-05 12:36:41 +02:00
parent 413ac4ba52
commit 81a2831ab4

View File

@ -14,6 +14,7 @@ Imports MailBox = Limilabs.Mail.Headers.MailBox
Public Class clsWorkEmail Public Class clsWorkEmail
Private Const FILENAME_MAX_LENGTH = 100 Private Const FILENAME_MAX_LENGTH = 100
Private Const MESSAGE_ID_MAX_LENGTH = 100
Private Shared Logger As Logger Private Shared Logger As Logger
Private MyLogger As LogConfig Private MyLogger As LogConfig
@ -73,6 +74,11 @@ Public Class clsWorkEmail
Else Else
If CURRENT_MAIL_MESSAGE_ID.Length = 0 Then If CURRENT_MAIL_MESSAGE_ID.Length = 0 Then
CURRENT_MAIL_MESSAGE_ID = System.Guid.NewGuid.ToString() CURRENT_MAIL_MESSAGE_ID = System.Guid.NewGuid.ToString()
ElseIf CURRENT_MAIL_MESSAGE_ID.Length > MESSAGE_ID_MAX_LENGTH Then
' MessageIds longer than 100 chars will be replaced with a guid to avoid errors
' because of file paths longer than 255 chars.
CURRENT_MAIL_MESSAGE_ID = System.Guid.NewGuid.ToString()
End If End If
End If End If
CURRENT_MAIL_MESSAGE_ID = CURRENT_MAIL_MESSAGE_ID.Replace(">", "").Replace("<", "") CURRENT_MAIL_MESSAGE_ID = CURRENT_MAIL_MESSAGE_ID.Replace(">", "").Replace("<", "")