使用自定义按钮向新电子邮件添加主题

Question

我为 Outlook 2010 编写了一个插件，可将文本插入新的电子邮件主题和电子邮件正文。工作代码如下所示。

后来我向内置的新电子邮件选项卡功能区添加了一个自定义组，并使用默认名称 Button1 添加了一个按钮。当我运行加载项时，按钮显示正常。

我想单击此按钮并更改主题和正文内容。我尝试添加一个私有子 Button1_Click，其代码将主题更改为“主题示例”，将正文更改为“正文示例”，但无法使其工作。您可以将 Button1_Click 子添加到功能区代码中吗？请参见下面的 Addin 代码和ribbon1 代码。

Public Class ThisAddIn

Private WithEvents inspectors As Outlook.Inspectors

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    inspectors = Me.Application.Inspectors
End Sub

Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

End Sub

Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
    Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
    If Not (mailItem Is Nothing) Then
        If mailItem.EntryID Is Nothing Then
            mailItem.Subject = "This text was added by using code"
            mailItem.Body = "This text was added by using code"
        End If
    End If
End Sub

End Class

没有私有子按钮的 Ribbon1 代码1.单击。请告诉我如何编写此代码。

Public Class Ribbon1

Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

End Sub

End Class

Answer 1

VSTO 提供了两种自定义功能区 UI 的主要方法：

• Walkthrough: Creating a Custom Tab by Using the Ribbon Designer
• Walkthrough: Creating a Custom Tab by Using Ribbon XML

本质上你需要为按钮添加onAction属性，然后在代码中添加相应的回调。

在 MSDN 中的以下系列文章中阅读有关 Fluent UI（又名 Ribbon UI）的更多信息：

• Customizing the 2007 Office Fluent Ribbon for Developers (Part 1 of 3)
• Customizing the 2007 Office Fluent Ribbon for Developers (Part 2 of 3)
• Customizing the 2007 Office Fluent Ribbon for Developers (Part 3 of 3)

要获取当前显示在检查器窗口中的 Outlook 项目，您可以使用 Application 类的 ActiveInspector 方法或使用您可以强制转换为 Inspector 类的 IRibbonControl.Context 属性。然后您可以使用CurrentItem 属性来获取 Outlook 项目。