Compare commits

...

3 Commits

Author SHA1 Message Date
Jonathan Jenne
db364d1fd6 merge 2023-06-05 16:36:54 +02:00
Jonathan Jenne
ba7f11491b Version 2.6.6.5 2023-06-05 16:36:22 +02:00
Jonathan Jenne
10d7680aa3 Fix windream basepath being swallowed when combining paths 2023-06-05 16:36:13 +02:00
2 changed files with 7 additions and 4 deletions

View File

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("File Flow")>
<Assembly: AssemblyCopyright("Copyright © 2023")>
<Assembly: AssemblyTrademark("2.6.6.2")>
<Assembly: AssemblyTrademark("2.6.6.5")>
<Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.6.6.3")>
<Assembly: AssemblyVersion("2.6.6.5")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

View File

@@ -571,7 +571,7 @@ Public Class frmIndex
CURR_WORKFILE_EXTENSION = extension
oRAWZielordner = WINDREAM.GetNormalizedPath(DT.Rows(0).Item("ZIEL_PFAD"), True)
oRAWZielordner = Path.Combine(WINDREAM_BASEPATH, oRAWZielordner)
oRAWZielordner = WINDREAM_BASEPATH & oRAWZielordner
'####
' Regulären Ausdruck zum Auslesen der Indexe definieren
@@ -931,7 +931,10 @@ Public Class frmIndex
If pIndexAttachment = False Then
LOGGER.Debug("Indexing Email File: [{0}]", CURRENT_NEWFILENAME)
Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
' 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 oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
Dim oMessageId As String = oMail.MessageID