Messaging/Email2: Dont use GetCleanFilename on path, madness ensues

This commit is contained in:
Jonathan Jenne 2021-08-20 14:27:53 +02:00
parent 250d289d08
commit b55b219d0c

View File

@ -291,7 +291,7 @@ Public Class Email2
Public Function Remove_AttachmentsFromEmail(pFileName As String, Optional pSuffix As String = "") As String Public Function Remove_AttachmentsFromEmail(pFileName As String, Optional pSuffix As String = "") As String
Try Try
Dim oTempPath As String = Path.Combine(Path.GetTempPath(), Add_FilenameSuffix(pFileName, pSuffix)) Dim oTempPath As String = Path.Combine(Path.GetTempPath(), Add_FilenameSuffix(pFileName, pSuffix))
Dim oCleanedPath As String = FileEx.GetCleanFilename(oTempPath) Dim oCleanedPath As String = FileEx.GetCleanPath(oTempPath)
Dim oVersionedPath As String = FileEx.GetVersionedFilename(oCleanedPath) Dim oVersionedPath As String = FileEx.GetVersionedFilename(oCleanedPath)
Dim oEmlPath As String = MaybeConvert_MsgToEml(pFileName) Dim oEmlPath As String = MaybeConvert_MsgToEml(pFileName)
Dim oMail = MailBuilder.CreateFromEmlFile(oEmlPath) Dim oMail = MailBuilder.CreateFromEmlFile(oEmlPath)