View Single Post
  #1  
Old April 23rd 09, 02:59 PM posted to microsoft.public.outlook.program_vba
Christopher Slowik
external usenet poster
 
Posts: 5
Default Custom Form and firing Revise Contents button

Hi,

We have a custom form that creates a post in a public folder. In Outlook
2007, when a user opens a posting in this folder, they cannot edit the body
of the post until they click the "Revise Contents" button. I'd like to
execute this button on the Item_Open event so they do not have to click this
manually. I have the code below, but nothing seems to happen:

Dim objInsp
Dim colCB
Dim objCBB
On Error Resume Next
Set objInsp = Item.GetInspector
Set colCB = objInsp.CommandBars
Set objCBB = colCB.FindControl(, 3273)
If Not objCBB Is Nothing Then
'MsgBox objCBB.Caption
objCBB.Execute
End If
Set objCBB = Nothing
Set colCB = Nothing
Set objInsp = Nothing

Thanks for any help

-Chris

Ads