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

API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

Browse Source
This commit is contained in:
d.breimaier
2024-04-17 08:50:07 +02:00
parent b39332d6b2
commit eb00a42493
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAGAddIn/rbnVERAG.vb
View File

@@ -136,12 +136,14 @@ Public Class AVISO_Mail_Functions
Shared Sub addMailToAviso(mailItem As Outlook.MailItem, sender As Object)
Try
If mailItem IsNot Nothing Then
' Remove special characters from the file name and make sure it is not longer than 100 characters
' Remove special characters from the file name and make sure it is not longer than 100 characters
Dim strFileName As String = "E-Mail"
If mailItem.Subject IsNot Nothing AndAlso mailItem.Subject <> "" Then
strFileName = Left(Regex.Replace(mailItem.Subject, "[\/\\\:\?!€,&'\*\<\>\|""]", ""), 100).Replace("""", "").Replace(vbTab, " ") & ".msg"
strFileName = Left(Regex.Replace(mailItem.Subject, "[\/\\\:\?!€,&'\*\<\>\|""]", ""), 100).Replace("""", "").Replace(vbTab, "_")
strFileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(strFileName)
strFileName = strFileName.Replace("?", "")
strFileName = strFileName.Replace(".", "")
strFileName &= ".msg"
End If
'Dim strFileName As String = "Mail.msg"
Dim pdf_mail = ""