Vraag & Antwoord

Programmeren

visual basic: programmeren van een outlook Add-in

Beste mensen, ik ben bezig met het maken van een outlook add-in om mijn onregelmatige diensten makkelijker in mijn Outlook agenda te kunnen zetten (voor synchronisatie naar PDA) Ik heb het voor elkaar gekregen om een extra menu aan te maken in Outlook, ik krijg het alleen niet voor elkaar om een userform te openen wanneer er op een menu optie wordt geklikt. Ik gebruik office 2007 en Visual Studio 2008. Ik hoop dat iemand mij ermee kan helpen, dit is de code die ik nu gebruik: [code:1:16bd43b577]Public Class ThisAddIn Private cbMenuBar As Office.CommandBar Private cbMenu As Office.CommandBarPopup Private cbMenuItem1 As Office.CommandBarButton Private cbMenuItem2 As Office.CommandBarButton Private cbMenuItem3 As Office.CommandBarButton Private sTag As String = "Agenda Bewerken" Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup RemoveMenubar() AddMenuBar() End Sub Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown End Sub Private Sub AddMenuBar() Try cbMenuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar cbMenu = cbMenuBar.Controls.Add( _ Office.MsoControlType.msoControlPopup, _ Temporary:=False) If cbMenu IsNot Nothing Then cbMenu.Caption = "Agenda Bewerken" cbMenu.Tag = sTag cbMenuItem1 = cbMenu.Controls.Add( _ Office.MsoControlType.msoControlButton, _ Before:=1, Temporary:=True) With cbMenuItem1 .Style = Office.MsoButtonStyle.msoButtonIconAndCaption .Caption = "Diensten toevoegen" .FaceId = 65 .Tag = "c123" End With cbMenuItem2 = cbMenu.Controls.Add(Office.MsoControlType.msoControlButton, Before:=2, Temporary:=True) With cbMenuItem2 .Style = Office.MsoButtonStyle.msoButtonIconAndCaption .Caption = "Diensten wijzigen" .FaceId = 65 .Tag = "c124" End With cbMenuItem3 = cbMenu.Controls.Add(Office.MsoControlType.msoControlButton, Before:=3, Temporary:=True) With cbMenuItem3 .Style = Office.MsoButtonStyle.msoButtonIconAndCaption .Caption = "Diensten verwijderen" .FaceId = 65 .Tag = "c125" End With AddHandler cbMenuItem1.Click, AddressOf MenuItem1_Click AddHandler cbMenuItem2.Click, AddressOf MenuItem2_Click AddHandler cbMenuItem3.Click, AddressOf MenuItem3_Click cbMenu.Visible = True End If Catch Ex As Exception System.Windows.Forms.MessageBox.Show(Ex.Message) End Try End Sub Private Sub RemoveMenubar() Try ' If the menu already exists, remove it. Dim foundMenu As Office.CommandBarPopup = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar.FindControl(Office.MsoControlType.msoControlPopup, System.Type.Missing, sTag, True, True) If foundMenu IsNot Nothing Then foundMenu.Delete(True) End If Catch Ex As Exception System.Windows.Forms.MessageBox.Show(Ex.Message) End Try End Sub Public Sub MenuItem1_Click(ByVal buttonControl As Office.CommandBarButton, ByRef Cancel As Boolean) MsgBox("U heeft op de eerste optie geklikt!") End Sub Public Sub MenuItem2_Click(ByVal buttonControl As Office.CommandBarButton, ByRef Cancel As Boolean) MsgBox("U heeft op de tweede optie geklikt!") End Sub Public Sub MenuItem3_Click(ByVal buttonControl As Office.CommandBarButton, ByRef Cancel As Boolean) MsgBox("U heeft op de derde optie geklikt!") End Sub End Class[/code:1:16bd43b577]