fix double windream objects

This commit is contained in:
Jonathan Jenne 2023-06-05 16:48:01 +02:00
parent db364d1fd6
commit 54813eb7a5

View File

@ -933,7 +933,11 @@ Public Class frmIndex
' This cannot use Path.Combine, otherwise the WINDREAM_BASEPATH will be swallowed... lol
'Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
Dim oMsgFilePath As String = WINDREAM_BASEPATH & CURRENT_NEWFILENAME
Dim oMsgFilePath As String = CURRENT_NEWFILENAME
If CURRENT_NEWFILENAME.StartsWith(WINDREAM_BASEPATH) = False Then
oMsgFilePath = WINDREAM_BASEPATH & oMsgFilePath
End If
Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)