PDA

Vollständige Version anzeigen : Menü in Outlook


helkv
15.01.2007, 10:55
Hi zusammen.
Ich hab mal wieder eine Frage.
Ich erstelle in Outlook ein Menü. In diesem Menü gibt es einen Button. Wenn man auf diesen Button klickt, soll Word geöffnet werden.

Imports wordapp = Microsoft.Office.Interop.Word
Dim WithEvents BtnTest As Office.CommandBarButton

Private Sub ThisApplication_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Dim MenuBar As Office.CommandBar = outapp.ActiveExplorer.CommandBars.ActiveMenuBar
If MenuBar.FindControl(Tag:="Menü") Is Nothing Then
Dim MenuNeu As Office.CommandBarPopup = MenuBar.Controls.Add(Office.MsoControlType.msoControlPopup, Before:=7)
With MenuNeu
.Caption = "Menü"
.Tag = "Menü"
.Visible = True
End With
BtnTest = MenuNeu.Controls.Add Office.MsoControlType.msoControlButton)
With BtnTest
.Caption = "Test"
.Tag = "Test"
End With
End If
End Sub

Private Sub BtnTest_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles BtnTest.Click
Dim word As wordapp.Application
Try
word = GetObject(, "Word.Application")
word.Activate()
Catch ex As Exception
word = CreateObject("Word.Application")
word.Visible = True
End Try
End Sub

Das Problem: Wenn man auf diesen Button klickt passiert nix.
Kann mir jemand einen Tipp geben wo der Fehler liegt?

helkv
15.01.2007, 12:04
mmh... Ich glaub es liegt daran, dass das Menü nicht richtig gelöscht wird. :( Habs ins ThisApplication_Shutdown geschrieben.

Private Sub ThisApplication_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
Dim MenuBar As Office.CommandBar
MenuBar = outapp.ActiveExplorer.CommandBars.ActiveMenuBar
MenuBar.FindControl(Tag:="Menü").Delete()
End Sub

Ist das falsch? :( Und wenn ja wo gehört der code denn sonst hin?

helkv
15.01.2007, 16:44
Habs jetzt. Hab mal wieder das Temporary:=True vergessen. :stupid: