Monitoring

VERAGAddIn/rbnMailItem.vb

@@ -1,12 +1,27 @@
-Imports Microsoft.Office.Tools.Ribbon
+Option Explicit On
+
+
+Imports Microsoft.Office.Tools.Ribbon
+Imports Microsoft.Office.Interop
+Imports System.Windows.Forms
 
 Public Class rbnMailItem
     Dim LOGIN_OK As Boolean = False
+    Dim LoadInspector As Outlook.Inspector
     Public Shared Event bla()
+    Public Shared WithEvents ThisMail As Outlook.MailItem
+    Dim currentexplorer As Outlook.Explorer
+
     Private Sub rbnMailItem_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
+        currentexplorer = ThisAddIn.SharedExplorer
+
+        Dim selObject As Object = currentexplorer.Selection(1)
+        ThisMail = (TryCast(selObject, Outlook.MailItem))
     End Sub
+
+
     Private Function CreateRibbonDropDownItem() As RibbonDropDownItem
         Return Me.Factory.CreateRibbonDropDownItem()
     End Function
@@ -37,4 +52,28 @@ Public Class rbnMailItem
             End Try
         End If
     End Sub
+
+    Private Sub btnInfo_Click(sender As Object, e As RibbonControlEventArgs) Handles btnInfo.Click
+        ' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        Try
+            Dim INSPECTOR As Outlook.Inspector = e.Control.Context
+
+            MsgBox(INSPECTOR.CurrentItem.FormDescription.Comment)
+        Catch
+            MsgBox("Fehler beim Anzeigen der Mailinformationen.")
+        End Try
+    End Sub
+
+    Private Sub btnUnsichtbar_Click(sender As Object, e As RibbonControlEventArgs) Handles btnUnsichtbar.Click
+        LoadInspector = e.Control.Context
+        ThisMail = LoadInspector.CurrentItem
+    End Sub
+
+    Public Shared Sub MailChanged(sender As System.Object) Handles ThisMail.PropertyChange
+        If ThisAddIn.SelectedMail.ConversationIndex = ThisMail.ConversationIndex Then
+            Exit Sub
+        Else
+            ThisAddIn.MailChanged(sender, ThisMail)
+        End If
+    End Sub
 End Class