Add-in outlook 2007 bouwen in vb

[Verwijderd]

Beste mensen, ik ben momenteel bezig met het bouwen van een outlook Add-in middels visual studio 2008. Ik heb reeds een menu gebouwd in visual basic, alleen nu moet door middel van een keuze in het menu een userform worden weergegeven. Normaal doe je dit in visual basic door middel van [naam formulier].show
maar dit lukt me niet bij het bouwen van de add-on.

Ik hoop dat iemand mij hiermee kan helpen, dit is de code die ik tot nu toe heb:

code:

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

Ik hoop dat iemand mij hiermee kan helpen.
Want ik kan het ook niet echt vinden op google.

Groetjes Kevin

[PV85]

Volgens mij moet je die menu-items met WithEvents declareren. Dit komt omdat runtime eventhandlers aan ze toewijst (kan geloof ik ook niet anders met addins).

[Verwijderd]

alles zoals hierboven staat werkt, alleen moeten er nu in plaats van de msgbox() gegevens nu een userform geopend worden. Dat is echt het probleem. Ik had eigenlijk de code erbij gepost om aan jullie te laten zien dat ik zelf dus wel echt bezig ben geweest met dit en het dus niet alleen door jullie wil laten doen

groetjes

[HawVer]

Kun je wat precieser uitleggen wat je bedoelt met een user form? Want een user form kan een form zijn die je in Visual Studio hebt gemaakt en een overerving van een standaard form in Outlook met custom velden.

Een eigen form weergeven is gewoon mogelijk vanuit een Outlook addin:

Form1 form = new Form1();
form.Show();

Hoe je een override van een standaard form vanuit een addin kan weergeven weet ik zo niet.

Verder wil ik je ook even wijzen op deze (erg goede) site voor alle Outlook gerelateerde problemen.
http://www.outlookcode.com/

.Edit:
Een custom form weergeven kan met de IMapiFormMgr. Voor meer info zie:
http://www.developersdex....sage.asp?p=1966&r=6261527

[ Voor 13% gewijzigd door HawVer op 30-06-2008 09:36 ]