[VB Outlook] Button Niet Visual Maken

[Ryatzu]

Hallo,

Ik heb een outlook macro ontworpen die een email aanmaakt, nu wil ik dat de verzend knop niet visual word in de standard bar.

Dit komt omdat ik een eigen verzend knop heb ontworpen met meerdere functies, ik wil dus niet dat mijn gebruikers de verkeerde verzend knop gebruikt.

Ik heb al van alles geprobeerd bijvoorbeeld:

Visual Basic:

Dim Inspector As Outlook.Inspector
Dim oBar As Office.CommandBar
Set oBar = Inspector.CommandBars("Standard")
Dim oSendButton As Office.CommandBarButton

Set oSendButton = oBar.FindControl(Type:=msoControlButton, Id:=oBar.Controls("Send").Id)

of

Visual Basic:

Set oSendButton = oBar.FindControl(Type:=msoControlButton, Id:=5469)

of

Visual Basic:

Set oSendButton = oBar.Controls.Item("&Send")

Visual Basic:

If Not oSendButton Is Nothing Then
oSendButton.Visible = True
End If

Ik krijg geen foutmeldingen maar het werkt niet.
Ik werk met outlook 2003, en ik moet het werkend krijgen voor de engels en nederlandse versie.

Weet iemand een oplossing? Dank U.

[ Voor 4% gewijzigd door RobIII op 27-11-2007 17:09 . Reden: code tags toegevoegd ]

[Ryatzu]

opgelost met de volgende code:

Dim objInsp As Outlook.Inspector
Dim oSendButton As Office.CommandBarButton
Set objInsp = NewMail.GetInspector
Set oSendButton = objInsp.CommandBars.FindControl(Type:=msoControlButton, ID:=2617)
If Not oSendButton Is Nothing Then
oSendButton.Visible = False
End If

Volgend probleem is dat als de email is verzonden of is gesloten dan de verzend knop terug moet komen dus weer visual.

[ Voor 16% gewijzigd door Ryatzu op 29-11-2007 09:36 ]

[Ryatzu]

Het eerste probleem is opgelost.
Als een email word verzonden dan word de standaard verzend knop weer aangeroepen.

Laatste probleem is dus echt als de email word gesloten dan moet de standaard verzend knop ook weer terug komen.

Weet iemand hoe dit moet?