M
mcgrew.michael
When tring to open a custom form that adds a button to the standard
toolbar i get the following error:
Object required: 'objInspector' Line No:6
Below is the code:
Function Item_Open()
Dim objInspector
Dim objCommandbar
Dim objButton
Set objInspector = Item.Application.ActiveInspector
Set objCommandbar = objInspector.CommandBars.Item("Standard")
Set objButton = objCommandbar.Controls.Add
With objButton
.ToolTipText = "Send Secure"
.FaceID = 42
.Tag = "Send Secure"
.Caption = "Send Secure"
.OnAction = "SendSecure"
End With
End Function
Sub SendSecure()
Item.Subject = "#secure"
Item.Send
End Sub
Anyone have any idea why?
toolbar i get the following error:
Object required: 'objInspector' Line No:6
Below is the code:
Function Item_Open()
Dim objInspector
Dim objCommandbar
Dim objButton
Set objInspector = Item.Application.ActiveInspector
Set objCommandbar = objInspector.CommandBars.Item("Standard")
Set objButton = objCommandbar.Controls.Add
With objButton
.ToolTipText = "Send Secure"
.FaceID = 42
.Tag = "Send Secure"
.Caption = "Send Secure"
.OnAction = "SendSecure"
End With
End Function
Sub SendSecure()
Item.Subject = "#secure"
Item.Send
End Sub
Anyone have any idea why?