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

MS Administration

Browse Source
This commit is contained in:
Developer01 2025-05-08 09:20:29 +02:00
parent ae70046979
commit 3953e74f82
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Controls.DocumentViewer/DocumentViewer.vbproj
View File

@ -304,7 +304,9 @@
<Compile Include="DocumentViewer.Designer.vb"> <Compile Include="DocumentViewer.Designer.vb">
<DependentUpon>DocumentViewer.vb</DependentUpon> <DependentUpon>DocumentViewer.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="DocumentViewer.vb" /> <Compile Include="DocumentViewer.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="frmViewerSettings.Designer.vb"> <Compile Include="frmViewerSettings.Designer.vb">
<DependentUpon>frmViewerSettings.vb</DependentUpon> <DependentUpon>frmViewerSettings.vb</DependentUpon>
</Compile> </Compile>

9
Services.EmailService/EmailService.vb
View File

@ -426,6 +426,10 @@ Public Class EmailService
If IsNothing(_AttachmentByteData) = False Then If IsNothing(_AttachmentByteData) = False Then
Dim oTempFolder = _TempFiles.TempPath Dim oTempFolder = _TempFiles.TempPath
Dim oTempFilename = String.Concat(oTempFolder, "\", $"SigningReport_{ATT1_RELATED_ID}.pdf") 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) Dim oFileFromByteData = CreateTempFileFromByte(oTempFilename)
If Not IsNothing(oFileFromByteData) Then If Not IsNothing(oFileFromByteData) Then
_Logger.Info($"oFileFromByteData is [{oFileFromByteData}]!") _Logger.Info($"oFileFromByteData is [{oFileFromByteData}]!")
@ -561,6 +565,11 @@ Public Class EmailService
End Sub End Sub
Private Function CreateTempFileFromByte(ByVal sFileName As String) As String Private Function CreateTempFileFromByte(ByVal sFileName As String) As String
Try 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 If Not _AttachmentByteData Is Nothing Then
'Read image data into a file stream 'Read image data into a file stream
Using fs As New FileStream(sFileName, FileMode.OpenOrCreate, FileAccess.Write) Using fs As New FileStream(sFileName, FileMode.OpenOrCreate, FileAccess.Write)

2
Services.EmailService/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.7.3.0")> <Assembly: AssemblyVersion("1.7.4.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>