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

3
VERAGAddIn/rbnMailItem.Designer.vb generated
View File

@@ -41,7 +41,6 @@
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Tab1 = Me.Factory.CreateRibbonTab Me.Tab1 = Me.Factory.CreateRibbonTab
Me.Group1 = Me.Factory.CreateRibbonGroup Me.Group1 = Me.Factory.CreateRibbonGroup
Me.Button1 = Me.Factory.CreateRibbonButton Me.Button1 = Me.Factory.CreateRibbonButton
@@ -52,7 +51,7 @@
Me.btnGestellungsgarantien = Me.Factory.CreateRibbonButton Me.btnGestellungsgarantien = Me.Factory.CreateRibbonButton
Me.btnInfo = Me.Factory.CreateRibbonButton Me.btnInfo = Me.Factory.CreateRibbonButton
Me.btnUnsichtbar = Me.Factory.CreateRibbonButton Me.btnUnsichtbar = Me.Factory.CreateRibbonButton
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
Me.Tab1.SuspendLayout() Me.Tab1.SuspendLayout()
Me.Group1.SuspendLayout() Me.Group1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()

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) Shared Sub addMailToAviso(mailItem As Outlook.MailItem, sender As Object)
Try Try
If mailItem IsNot Nothing Then 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 ' Remove special characters from the file name and make sure it is not longer than 100 characters
Dim strFileName As String = "E-Mail" Dim strFileName As String = "E-Mail"
If mailItem.Subject IsNot Nothing AndAlso mailItem.Subject <> "" Then 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 = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(strFileName)
strFileName = strFileName.Replace("?", "")
strFileName = strFileName.Replace(".", "")
strFileName &= ".msg"
End If End If
'Dim strFileName As String = "Mail.msg" 'Dim strFileName As String = "Mail.msg"
Dim pdf_mail = "" Dim pdf_mail = ""