edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Iwas

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-25 14:55:18 +02:00
parent 058e35861d
commit 98798c427c
4 changed files with 80 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAGAddIn/rbnVERAG.vb
View File

@@ -541,8 +541,10 @@ Public Class AVISO_Mail_Functions
Try
If AvisoId > 0 Then
' The full path will place the email in the user's temporary folder
If bezeichnung = "" Then bezeichnung = Left(Regex.Replace(mailItem.Subject, "[\/\\\:\?\*\<\>\|""]", ""), 100).Replace("""", "").Replace(vbTab, " ") & ".msg"
If bezeichnung <> "" Then
bezeichnung = Left(Regex.Replace(mailItem.Subject, "[\/\\\:\?\*\<\>\|""]", ""), 100).Replace("""", "").Replace(vbTab, " ") & ".msg"
bezeichnung = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(bezeichnung)
End If
Dim strTmpPath As String = System.IO.Path.GetTempPath() & bezeichnung & If(bezeichnung.EndsWith(".msg"), "", ".msg")
' Save the email to the user's temp folder and convert it to a .MSG
'Dim cnt = 0