MS Administration

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>

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)

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")>