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 @@
DocumentViewer.vb
-
+
+ UserControl
+
frmViewerSettings.vb
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:
'
-
+