fix double windream objects
This commit is contained in:
parent
db364d1fd6
commit
54813eb7a5
@ -933,7 +933,11 @@ Public Class frmIndex
|
|||||||
|
|
||||||
' This cannot use Path.Combine, otherwise the WINDREAM_BASEPATH will be swallowed... lol
|
' 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 = 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)
|
Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user