如何在VSTO Outlook邮件项点击链接时显示确认消息？是否可行？

嘿，这个需求完全可以实现！我来给你一步步拆解怎么搞定——不管是在Explorer（邮件列表）窗口的预览窗格，还是Inspector（单独打开的邮件）窗口里的链接，都能在跳转前弹出确认消息。

核心思路 #

Outlook本身没有直接暴露“链接点击”的事件，但邮件内容其实是通过WebBrowser控件渲染的。所以我们的核心操作是：

1. 捕获Explorer和Inspector窗口的邮件加载事件
2. 找到对应窗口里的WebBrowser控件实例
3. 订阅WebBrowser的Navigating事件，在事件中弹出确认框并决定是否取消导航

具体实现步骤 #

1. 准备API声明和引用 #

首先，我们需要用Windows API来查找Outlook窗口内的WebBrowser控件，还要引用SHDocVw组件（在COM引用里搜索“Microsoft Internet Controls”添加）。

在你的ThisAddIn.cs里添加以下API声明：

using System;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using Outlook = Microsoft.Office.Interop.Outlook;
using SHDocVw;

namespace OutlookLinkConfirmation
{
    public partial class ThisAddIn
    {
        [DllImport("user32.dll", SetLastError = true)]
        private static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);

        [DllImport("oleacc.dll")]
        private static extern int ObjectFromLresult(IntPtr lResult, ref Guid riid, IntPtr wParam, out object ppvObject);

        [DllImport("user32.dll")]
        private static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, IntPtr wParam, IntPtr lParam);

        private const uint WM_GETOBJECT = 0x003D;
        private Guid IID_IWebBrowserApp = new Guid("0002DF05-0000-0000-C000-000000000046");

        // 用于存储当前订阅的WebBrowser实例，避免重复订阅
        private WebBrowser _currentPreviewBrowser;
        private WebBrowser _currentInspectorBrowser;

2. 注册Outlook窗口事件 #

在ThisAddIn_Startup方法里，注册Explorer的选择变更事件和Inspector的激活事件：

private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
            this.Application.ExplorerSelectionChange += Application_ExplorerSelectionChange;
            this.Application.InspectorActivate += Application_InspectorActivate;
        }

3. 处理Explorer窗口的预览窗格 #

当用户在邮件列表里切换选中的邮件时，我们需要找到预览窗格的WebBrowser并订阅事件：

private void Application_ExplorerSelectionChange()
        {
            // 先注销之前的事件订阅
            if (_currentPreviewBrowser != null)
            {
                _currentPreviewBrowser.Navigating -= PreviewPane_Navigating;
                _currentPreviewBrowser = null;
            }

            var explorer = this.Application.ActiveExplorer();
            if (explorer?.Selection.Count != 1) return;

            var mailItem = explorer.Selection[1] as Outlook.MailItem;
            if (mailItem == null) return;

            // 查找预览窗格的WebBrowser句柄
            var previewPaneHwnd = FindWindowEx(explorer.HWND, IntPtr.Zero, "_WwG", null);
            if (previewPaneHwnd == IntPtr.Zero) return;

            var webBrowserHwnd = FindWindowEx(previewPaneHwnd, IntPtr.Zero, "Internet Explorer_Server", null);
            if (webBrowserHwnd == IntPtr.Zero) return;

            // 获取WebBrowser实例
            var webBrowser = GetWebBrowserFromHwnd(webBrowserHwnd) as WebBrowser;
            if (webBrowser != null)
            {
                _currentPreviewBrowser = webBrowser;
                _currentPreviewBrowser.Navigating += PreviewPane_Navigating;
            }
        }

4. 处理Inspector窗口（打开的邮件） #

当用户打开单独的邮件窗口时，找到邮件正文的WebBrowser并订阅事件：

private void Application_InspectorActivate(Outlook.Inspector Inspector)
        {
            // 先注销之前的事件订阅
            if (_currentInspectorBrowser != null)
            {
                _currentInspectorBrowser.Navigating -= Inspector_Navigating;
                _currentInspectorBrowser = null;
            }

            var mailItem = Inspector.CurrentItem as Outlook.MailItem;
            if (mailItem == null) return;

            // 查找Inspector窗口里的WebBrowser句柄
            var webBrowserHwnd = FindWindowEx(Inspector.HWND, IntPtr.Zero, "Internet Explorer_Server", null);
            if (webBrowserHwnd == IntPtr.Zero) return;

            // 获取WebBrowser实例
            var webBrowser = GetWebBrowserFromHwnd(webBrowserHwnd) as WebBrowser;
            if (webBrowser != null)
            {
                _currentInspectorBrowser = webBrowser;
                _currentInspectorBrowser.Navigating += Inspector_Navigating;
            }
        }

5. 实现WebBrowser实例获取和导航确认逻辑 #

添加获取WebBrowser实例的方法，以及导航确认的事件处理：

private object GetWebBrowserFromHwnd(IntPtr hwnd)
        {
            IntPtr lResult = SendMessage(hwnd, WM_GETOBJECT, IntPtr.Zero, IntPtr.Zero);
            if (lResult == IntPtr.Zero) return null;

            object webBrowser;
            int hr = ObjectFromLresult(lResult, ref IID_IWebBrowserApp, IntPtr.Zero, out webBrowser);
            if (hr < 0) return null;

            return webBrowser;
        }

        private void PreviewPane_Navigating(string URL, int Flags, string TargetFrameName, ref object PostData, string Headers, ref bool Cancel)
        {
            ShowNavigationConfirmation(URL, ref Cancel);
        }

        private void Inspector_Navigating(string URL, int Flags, string TargetFrameName, ref object PostData, string Headers, ref bool Cancel)
        {
            ShowNavigationConfirmation(URL, ref Cancel);
        }

        private void ShowNavigationConfirmation(string url, ref bool cancel)
        {
            var result = MessageBox.Show($"你确定要打开链接：\n{url}?", "链接访问确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
            cancel = result == DialogResult.No;
        }

6. 清理事件订阅（避免内存泄漏） #

在ThisAddIn_Shutdown里注销所有事件：

private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
        {
            if (_currentPreviewBrowser != null)
            {
                _currentPreviewBrowser.Navigating -= PreviewPane_Navigating;
            }
            if (_currentInspectorBrowser != null)
            {
                _currentInspectorBrowser.Navigating -= Inspector_Navigating;
            }
        }
    }
}

注意事项 #

• 必须添加SHDocVwCOM引用：在项目的“添加引用”→“COM”标签下找到“Microsoft Internet Controls”并勾选。
• 事件注销很重要：每次切换邮件或关闭Inspector窗口时，一定要注销之前的事件订阅，不然会出现重复弹窗和内存泄漏问题。
• 兼容性：这个方案在Outlook 2016及以上版本测试有效，旧版本可能需要调整窗口类名（比如_WwG是预览窗格的类名，不同版本可能有变化）。

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