000
01.11.2008, 18:17 Uhr
mimi1983
|
Hallo,
habe versucht ein VBA Makro nach VB zu migrieren um ein Plugin zu erstellen für Outlook.
Wenn ich auf Button klicke um einen Termin zu erstellen passiert aber gar nix, als Makro unter VBA funktioniert es, kann mir einer weiterhelfen ??
| Visual Basic: |
Public Class ThisAddIn
Private oMenu As Office.CommandBar
Private oBtn As Office.CommandBarButton
Public eingabewert As String
Public ausgabewert As String
Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Menu_erstellen()
End Sub
Sub Menu_erstellen()
Dim Button As Office.CommandBarButton
Dim oExplorer As Outlook.Explorer
oExplorer = Application.ActiveExplorer
Button = CreateCommandBarButton(oExplorer.CommandBars)
End Sub
'**************************************************************************************************************************
' FUNKTION FUR BUTTON
Public Function CreateCommandBarButton(ByVal oBars As Office.CommandBars) As Office.CommandBarButton
On Error Resume Next
'Dim oMenu As Office.CommandBar
'Dim oBtn As Office.CommandBarButton
' Variablenamen fuer Buttons
Dim BAR_NAME As String
Dim CMD_NAME As String
BAR_NAME = "Kommt"
CMD_NAME = "Kommt"
oMenu = oBars(BAR_NAME)
oMenu = oBars.Add(BAR_NAME, msoBarTop, , True)
oBtn = oMenu.Controls.Add(msoControlButton, , CMD_NAME, , False)
oBtn.Caption = CMD_NAME
oBtn.OnAction = "Termin_erstellen()"
' Namen nicht anzeigen, erst, wenn im Ansicht geklickt wird
oMenu.Visible = False
CreateCommandBarButton = oBtn
' Hier wird Termin erstellt
Public Sub Termin_erstellen()
Dim Termin As AppointmentItem
Termin = Application.CreateItem(OlItemType.olAppointmentItem)
With Termin
.Subject = eingabewert
.Location = " "
.Start = Now()
.ReminderMinutesBeforeStart = 0
.Save()
End With
|
|
