AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:ec3b6371cc897e4461da4b629b00c08a8cfcc25d
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign
...
compare: AppStd:d887fe107c7064de34625c80ddf4712492a62ab5
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign

2 Commits
ec3b6371cc ... d887fe107c

Author SHA1 Message Date
Jonathan Jenne
d887fe107c Messaging: Version 1.2.9 2021-08-23 14:15:37 +02:00
Jonathan Jenne
3d39d7303b Messaging: fix Remove_AttachmentsfromEmail not creating eml files 2021-08-23 14:15:11 +02:00
2 changed files with 10 additions and 4 deletions
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)

4
Modules.Messaging/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.8.0")> <Assembly: AssemblyVersion("1.2.9.0")>
<Assembly: AssemblyFileVersion("1.2.8.0")> <Assembly: AssemblyFileVersion("1.2.9.0")>