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

addin

Browse Source
This commit is contained in:
d.breimaier
2024-02-21 08:04:33 +01:00
parent eb291ea140
commit 7874423adc
5 changed files with 60 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VERAGAddIn/rbnMailItem.vb
View File

@@ -37,7 +37,7 @@ Public Class rbnMailItem
Dim INSPECTOR As Outlook.Inspector = e.Control.Context
AVISO_Mail_Functions.NewAviso(INSPECTOR.CurrentItem)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End Sub
@@ -49,7 +49,7 @@ Public Class rbnMailItem
AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
'Me.Context
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End Sub
@@ -60,8 +60,8 @@ Public Class rbnMailItem
Dim INSPECTOR As Outlook.Inspector = e.Control.Context
MsgBox(INSPECTOR.CurrentItem.FormDescription.Comment)
Catch
MsgBox("Fehler beim Anzeigen der Mailinformationen.")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -85,7 +85,7 @@ Public Class rbnMailItem
AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
'Me.Context
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If