Messaging: Version 1.2.9

Modules.Messaging/Email2.vb

@@ -290,12 +290,18 @@ Public Class Email2
     ''' <returns>The path of the new EML without attachments.</returns>
     Public Function Remove_AttachmentsFromEmail(pFileName As String, Optional pSuffix As String = "") As String
         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 oVersionedPath As String = FileEx.GetVersionedFilename(oCleanedPath)
-            Dim oEmlPath As String = MaybeConvert_MsgToEml(pFileName)
+
+            ' Load eml file
             Dim oMail = MailBuilder.CreateFromEmlFile(oEmlPath)
 
+            ' Remove attachments and save
             oMail.RemoveAttachments()
             oMail.Save(oVersionedPath)
 

Modules.Messaging/My Project/AssemblyInfo.vb

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