窗体区域自定义操作
问题描述:
我使用commandbutton将一个窗体区域导入到我的项目中。窗体区域自定义操作
我创建了一个customaction我formdesigner.vb这样
Private Shared Sub InitializeManifest(ByVal manifest As Microsoft.Office.Tools.Outlook.FormRegionManifest, ByVal factory As Microsoft.Office.Tools.Outlook.Factory)
Dim FormRegionCustomActionImpl1 As Microsoft.Office.Tools.Outlook.FormRegionCustomAction = factory.CreateFormRegionCustomAction
FormRegionCustomActionImpl1.Body = Microsoft.Office.Tools.Outlook.FormRegionCustomActionBody.Prefix
FormRegionCustomActionImpl1.Method = Microsoft.Office.Tools.Outlook.FormRegionCustomActionMethod.Send
FormRegionCustomActionImpl1.Name = "Complete"
FormRegionCustomActionImpl1.ShowOnRibbon = False
FormRegionCustomActionImpl1.SubjectPrefix = "Completed: "
FormRegionCustomActionImpl1.Title = "Complete"
manifest.CustomActions.Add(FormRegionCustomActionImpl1)
manifest.FormRegionName = "CallCenterRd"
manifest.FormRegionType = Microsoft.Office.Tools.Outlook.FormRegionType.Replacement
manifest.ShowInspectorCompose = False
manifest.Title = "Test"
End Sub
我怎么能“跑”这个动作,当我点击我的表格区域命令按钮?
答
您的自定义操作可以通过名字来执行,从MailItem.Actions收集获取它,并呼吁Action.Execute:
嗨again.Almost了... ...现在,当我使用点击事件私人小组commandButton1_Click()处理commandButton1.Click 昏暗myItem作为对象 myItem = Me.OutlookItem.Application.CreateItem(Outlook.OlItemType.olMailItem) myItem.actions( “完成”)。执行() 完子我正在接收System.NullReferenceException是无用的由用户代码引导 HResult = -2147467261 消息=对象变量或未设置块变量。 – john341
您的代码在Me.OutlookItem上失败。我不是一个有效的对象,也不是OutlookItem。试试myItem = Application.CreateItem –