From 3953e74f82518d6e7655a4ac61ec274f1cfe15a9 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Thu, 8 May 2025 09:20:29 +0200
Subject: [PATCH] MS Administration

---
 Controls.DocumentViewer/DocumentViewer.vbproj    | 4 +++-
 Services.EmailService/EmailService.vb            | 9 +++++++++
 Services.EmailService/My Project/AssemblyInfo.vb | 2 +-
 3 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/Controls.DocumentViewer/DocumentViewer.vbproj b/Controls.DocumentViewer/DocumentViewer.vbproj
index 9536ce43..872042f6 100644
--- a/Controls.DocumentViewer/DocumentViewer.vbproj
+++ b/Controls.DocumentViewer/DocumentViewer.vbproj
@@ -304,7 +304,9 @@
     <Compile Include="DocumentViewer.Designer.vb">
       <DependentUpon>DocumentViewer.vb</DependentUpon>
     </Compile>
-    <Compile Include="DocumentViewer.vb" />
+    <Compile Include="DocumentViewer.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="frmViewerSettings.Designer.vb">
       <DependentUpon>frmViewerSettings.vb</DependentUpon>
     </Compile>
diff --git a/Services.EmailService/EmailService.vb b/Services.EmailService/EmailService.vb
index 07df6e39..6db69603 100644
--- a/Services.EmailService/EmailService.vb
+++ b/Services.EmailService/EmailService.vb
@@ -426,6 +426,10 @@ Public Class EmailService
                             If IsNothing(_AttachmentByteData) = False Then
                                 Dim oTempFolder = _TempFiles.TempPath
                                 Dim oTempFilename = String.Concat(oTempFolder, "\", $"SigningReport_{ATT1_RELATED_ID}.pdf")
+                                If Not Directory.Exists(oTempFolder) Then
+                                    Directory.CreateDirectory(oTempFolder)
+                                    _Logger.Info($"created directory [{oTempFolder}]!")
+                                End If
                                 Dim oFileFromByteData = CreateTempFileFromByte(oTempFilename)
                                 If Not IsNothing(oFileFromByteData) Then
                                     _Logger.Info($"oFileFromByteData is  [{oFileFromByteData}]!")
@@ -561,6 +565,11 @@ Public Class EmailService
     End Sub
     Private Function CreateTempFileFromByte(ByVal sFileName As String) As String
         Try
+            Dim oTempFolder = _TempFiles.TempPath
+            If Not Directory.Exists(oTempFolder) Then
+                Directory.CreateDirectory(oTempFolder)
+                _Logger.Info($"created directory [{oTempFolder}]!")
+            End If
             If Not _AttachmentByteData Is Nothing Then
                 'Read image data into a file stream 
                 Using fs As New FileStream(sFileName, FileMode.OpenOrCreate, FileAccess.Write)
diff --git a/Services.EmailService/My Project/AssemblyInfo.vb b/Services.EmailService/My Project/AssemblyInfo.vb
index 09977d54..5b8aab1b 100644
--- a/Services.EmailService/My Project/AssemblyInfo.vb	
+++ b/Services.EmailService/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.7.3.0")>
+<Assembly: AssemblyVersion("1.7.4.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>