AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Messaging: fix Remove_AttachmentsfromEmail not creating eml files

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-23 14:15:11 +02:00
parent ec3b6371cc
commit 3d39d7303b
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Modules.Messaging/Email2.vb
View File

@ -290,12 +290,18 @@ Public Class Email2
''' <returns>The path of the new EML without attachments.</returns> ''' <returns>The path of the new EML without attachments.</returns>
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, ".eml")) ' Convert possible msg file to eml
Dim oEmlPath As String = MaybeConvert_MsgToEml(pFileName)
' Clean and version new path
Dim oTempPath As String = Path.Combine(Path.GetTempPath(), Add_FilenameSuffix(oEmlPath, pSuffix, ".eml"))
Dim oCleanedPath As String = FileEx.GetCleanPath(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)
' Load eml file
Dim oMail = MailBuilder.CreateFromEmlFile(oEmlPath) Dim oMail = MailBuilder.CreateFromEmlFile(oEmlPath)
' Remove attachments and save
oMail.RemoveAttachments() oMail.RemoveAttachments()
oMail.Save(oVersionedPath) oMail.Save(oVersionedPath)