如何通过C# VSTO为Outlook邮件发件人下拉列表添加自定义条目

Outlook对象模型没有直接提供修改内置「发件人」下拉列表的API，想要添加自定义条目，需要通过替换/扩展内置控件的方式实现，以下是两种可行方案：

方法1：通过RibbonXML自定义替换内置发件人控件（推荐，适配现代Outlook版本） #

利用Outlook Ribbon的自定义能力，替换默认的发件人按钮并重新定义下拉菜单：

1. 在VSTO项目中添加「Ribbon（XML）」项
2. 编写RibbonXML代码，替换内置发件人控件并加入自定义条目：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <tabs>
      <tab idMso="TabNewMailMessage">
        <group idMso="GroupMailSend">
          <button id="CustomFromButton" label="发件人" size="normal" 
                  imageMso="FromButton" onAction="CustomFromButton_Click"
                  getVisible="GetVisible">
            <menu id="CustomFromMenu" itemSize="normal">
              <!-- 保留默认账户列表 -->
              <dynamicMenu id="DefaultAccountsMenu" getContent="GetDefaultAccountsMenuContent" />
              <!-- 添加自定义分隔线与条目 -->
              <menuSeparator id="CustomSeparator" />
              <button id="CustomSender1" label="自定义发件人1" onAction="CustomSender_Click" />
              <button id="CustomSender2" label="自定义发件人2" onAction="CustomSender_Click" />
            </menu>
          </button>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

3. 在Ribbon的代码实现类中编写对应逻辑：

// 获取当前激活的邮件窗口
private MailItem GetActiveMailItem()
{
    return Globals.ThisAddIn.Application.ActiveInspector()?.CurrentItem as MailItem;
}

// 控制自定义按钮仅在邮件编辑窗口显示
public bool GetVisible(Office.IRibbonControl control)
{
    return GetActiveMailItem() != null;
}

// 动态生成默认账户下拉项
public string GetDefaultAccountsMenuContent(Office.IRibbonControl control)
{
    var menuXml = new StringBuilder("<menu xmlns='http://schemas.microsoft.com/office/2009/07/customui'>");
    
    foreach (Account account in Globals.ThisAddIn.Application.Session.Accounts)
    {
        menuXml.Append($"<button label='{account.DisplayName}' onAction='DefaultAccount_Click' tag='{account.SmtpAddress}' />");
    }
    
    menuXml.Append("</menu>");
    return menuXml.ToString();
}

// 默认账户选择事件
public void DefaultAccount_Click(Office.IRibbonControl control)
{
    var mailItem = GetActiveMailItem();
    if (mailItem == null) return;
    
    mailItem.SendUsingAccount = Globals.ThisAddIn.Application.Session.Accounts.Cast<Account>()
        .FirstOrDefault(a => a.SmtpAddress == control.Tag);
}

// 自定义发件人选择事件
public void CustomSender_Click(Office.IRibbonControl control)
{
    var mailItem = GetActiveMailItem();
    if (mailItem == null) return;
    
    // 根据选中条目设置发件人（需确保当前账户有对应发送权限）
    switch (control.Id)
    {
        case "CustomSender1":
            mailItem.SentOnBehalfOfName = "custom1@yourdomain.com";
            break;
        case "CustomSender2":
            mailItem.SentOnBehalfOfName = "custom2@yourdomain.com";
            break;
    }
}

// 按钮点击触发菜单展开
public void CustomFromButton_Click(Office.IRibbonControl control) { }

方法2：通过CommandBar修改内置下拉（兼容旧版Outlook） #

针对Outlook 2010及更早版本，可使用旧版CommandBar API修改内置下拉列表：

// 在Inspector激活时添加自定义条目
private void ThisAddIn_InspectorActivate(Microsoft.Office.Interop.Outlook.Inspector Inspector)
{
    if (Inspector.CurrentItem is not MailItem mailItem) return;
    
    CommandBar standardBar = Inspector.CommandBars["Standard"];
    CommandBarButton fromButton = standardBar.FindControl(Office.MsoControlType.msoControlButton, 1006) as CommandBarButton;
    
    if (fromButton == null || !fromButton.HasDropdown) return;
    
    // 添加分隔线
    fromButton.DropDown.Controls.Add().BeginGroup = true;
    
    // 添加自定义条目1
    CommandBarButton customItem1 = fromButton.DropDown.Controls.Add() as CommandBarButton;
    customItem1.Caption = "自定义发件人1";
    customItem1.Tag = "custom1";
    customItem1.Click += CustomItem_Click;
    
    // 添加自定义条目2
    CommandBarButton customItem2 = fromButton.DropDown.Controls.Add() as CommandBarButton;
    customItem2.Caption = "自定义发件人2";
    customItem2.Tag = "custom2";
    customItem2.Click += CustomItem_Click;
}

// 自定义条目点击事件
private void CustomItem_Click(CommandBarButton Ctrl, ref bool CancelDefault)
{
    var inspector = Globals.ThisAddIn.Application.ActiveInspector();
    if (inspector.CurrentItem is not MailItem mailItem) return;
    
    switch (Ctrl.Tag)
    {
        case "custom1":
            mailItem.SentOnBehalfOfName = "custom1@yourdomain.com";
            break;
        case "custom2":
            mailItem.SentOnBehalfOfName = "custom2@yourdomain.com";
            break;
    }
}

关键注意事项 #

• 使用SentOnBehalfOfName时，当前登录账户需拥有对应邮箱的发送权限（Exchange环境需管理员配置）
• RibbonXML是Outlook官方推荐的现代扩展方式，CommandBar属于旧版API，未来可能被弃用
• 需确保仅在邮件编辑窗口（新邮件/回复/转发）激活时执行控件修改逻辑

内容的提问来源于stack exchange，提问作者Gadzhik