41 lines
1.5 KiB
VB.net
41 lines
1.5 KiB
VB.net
Imports Microsoft.Office.Tools.Ribbon
|
|
|
|
Public Class rbnMailItem
|
|
Dim LOGIN_OK As Boolean = False
|
|
Public Shared Event bla()
|
|
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()
|
|
End Sub
|
|
Private Function CreateRibbonDropDownItem() As RibbonDropDownItem
|
|
Return Me.Factory.CreateRibbonDropDownItem()
|
|
End Function
|
|
|
|
Private Function CreateRibbonMenu() As RibbonMenu
|
|
Return Me.Factory.CreateRibbonMenu()
|
|
End Function
|
|
|
|
Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
|
|
If LOGIN_OK Then
|
|
Try
|
|
Dim INSPECTOR As Outlook.Inspector = e.Control.Context
|
|
AVISO_Mail_Functions.NewAviso(INSPECTOR.CurrentItem)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
|
|
If LOGIN_OK Then
|
|
Try
|
|
Dim INSPECTOR As Outlook.Inspector = e.Control.Context
|
|
AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem)
|
|
'Me.Context
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
End Class
|