'------------------------------------------------------------------------------
'
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
_
Partial Public NotInheritable Class ThisAddIn
Inherits Microsoft.Office.Tools.Outlook.OutlookAddInBase
Friend WithEvents CustomTaskPanes As Microsoft.Office.Tools.CustomTaskPaneCollection
_
Friend WithEvents Application As Microsoft.Office.Interop.Outlook.Application
'''
_
Public Sub New(ByVal factory As Global.Microsoft.Office.Tools.Outlook.Factory, ByVal serviceProvider As Global.System.IServiceProvider)
MyBase.New(factory, serviceProvider, "AddIn", "ThisAddIn")
Globals.Factory = factory
End Sub
'''
_
Protected Overrides Sub Initialize()
MyBase.Initialize
Me.Application = Me.GetHostItem(Of Microsoft.Office.Interop.Outlook.Application)(GetType(Microsoft.Office.Interop.Outlook.Application), "Application")
Globals.ThisAddIn = Me
Global.System.Windows.Forms.Application.EnableVisualStyles
Me.InitializeCachedData
Me.InitializeControls
Me.InitializeComponents
Me.InitializeData
End Sub
'''
_
Protected Overrides Sub FinishInitialization()
Me.OnStartup
End Sub
'''
_
Protected Overrides Sub InitializeDataBindings()
Me.BeginInitialization
Me.BindToData
Me.EndInitialization
End Sub
'''
_
Private Sub InitializeCachedData()
If (Me.DataHost Is Nothing) Then
Return
End If
If Me.DataHost.IsCacheInitialized Then
Me.DataHost.FillCachedData(Me)
End If
End Sub
'''
_
Private Sub InitializeData()
End Sub
'''
_
Private Sub BindToData()
End Sub
'''
_
Private Sub StartCaching(ByVal MemberName As String)
Me.DataHost.StartCaching(Me, MemberName)
End Sub
'''
_
Private Sub StopCaching(ByVal MemberName As String)
Me.DataHost.StopCaching(Me, MemberName)
End Sub
'''
_
Private Function IsCached(ByVal MemberName As String) As Boolean
Return Me.DataHost.IsCached(Me, MemberName)
End Function
'''
_
Private Sub BeginInitialization()
Me.BeginInit
Me.CustomTaskPanes.BeginInit
End Sub
'''
_
Private Sub EndInitialization()
Me.CustomTaskPanes.EndInit
Me.EndInit
End Sub
'''
_
Private Sub InitializeControls()
Me.CustomTaskPanes = Globals.Factory.CreateCustomTaskPaneCollection(Nothing, Nothing, "CustomTaskPanes", "CustomTaskPanes", Me)
End Sub
'''
_
Private Sub InitializeComponents()
End Sub
'''
_
Private Function NeedsFill(ByVal MemberName As String) As Boolean
Return Me.DataHost.NeedsFill(Me, MemberName)
End Function
'''
_
Protected Overrides Sub OnShutdown()
Me.CustomTaskPanes.Dispose
MyBase.OnShutdown
End Sub
End Class
'''
_
Partial Friend NotInheritable Class Globals
'''
Private Sub New()
MyBase.New
End Sub
Private Shared _ThisAddIn As ThisAddIn
Private Shared _factory As Global.Microsoft.Office.Tools.Outlook.Factory
Private Shared _ThisRibbonCollection As ThisRibbonCollection
Private Shared _ThisFormRegionCollection As ThisFormRegionCollection
Friend Shared Property ThisAddIn() As ThisAddIn
Get
Return _ThisAddIn
End Get
Set
If (_ThisAddIn Is Nothing) Then
_ThisAddIn = value
Else
Throw New System.NotSupportedException()
End If
End Set
End Property
Friend Shared Property Factory() As Global.Microsoft.Office.Tools.Outlook.Factory
Get
Return _factory
End Get
Set
If (_factory Is Nothing) Then
_factory = value
Else
Throw New System.NotSupportedException()
End If
End Set
End Property
Friend Shared ReadOnly Property Ribbons() As ThisRibbonCollection
Get
If (_ThisRibbonCollection Is Nothing) Then
_ThisRibbonCollection = New ThisRibbonCollection(_factory.GetRibbonFactory)
End If
Return _ThisRibbonCollection
End Get
End Property
Friend Shared ReadOnly Property FormRegions() As ThisFormRegionCollection
Get
If (_ThisFormRegionCollection Is Nothing) Then
_ThisFormRegionCollection = New ThisFormRegionCollection(Globals.ThisAddIn.GetFormRegions)
End If
Return _ThisFormRegionCollection
End Get
End Property
End Class
'''
_
Partial Friend NotInheritable Class ThisRibbonCollection
Inherits Microsoft.Office.Tools.Ribbon.RibbonCollectionBase
'''
Friend Sub New(ByVal factory As Global.Microsoft.Office.Tools.Ribbon.RibbonFactory)
MyBase.New(factory)
End Sub
Friend Overloads Default ReadOnly Property Item(ByVal inspector As Microsoft.Office.Interop.Outlook.Inspector) As ThisRibbonCollection
Get
Return Me.GetRibbonContextCollection(Of ThisRibbonCollection)(inspector)
End Get
End Property
Friend Overloads Default ReadOnly Property Item(ByVal explorer As Microsoft.Office.Interop.Outlook.Explorer) As ThisRibbonCollection
Get
Return Me.GetRibbonContextCollection(Of ThisRibbonCollection)(explorer)
End Get
End Property
End Class
'''
_
Partial Friend NotInheritable Class ThisFormRegionCollection
Inherits Microsoft.Office.Tools.Outlook.FormRegionCollectionBase
'''
Public Sub New(ByVal list As System.Collections.Generic.IList(Of Microsoft.Office.Tools.Outlook.IFormRegion))
MyBase.New(list)
End Sub
Friend Overloads Default ReadOnly Property Item(ByVal explorer As Microsoft.Office.Interop.Outlook.Explorer) As WindowFormRegionCollection
Get
Return CType(Globals.ThisAddIn.GetFormRegions(explorer, GetType(WindowFormRegionCollection)),WindowFormRegionCollection)
End Get
End Property
Friend Overloads Default ReadOnly Property Item(ByVal inspector As Microsoft.Office.Interop.Outlook.Inspector) As WindowFormRegionCollection
Get
Return CType(Globals.ThisAddIn.GetFormRegions(inspector, GetType(WindowFormRegionCollection)),WindowFormRegionCollection)
End Get
End Property
End Class
'''
_
Partial Friend NotInheritable Class WindowFormRegionCollection
Inherits Microsoft.Office.Tools.Outlook.FormRegionCollectionBase
'''
Public Sub New(ByVal list As System.Collections.Generic.IList(Of Microsoft.Office.Tools.Outlook.IFormRegion))
MyBase.New(list)
End Sub
End Class