如何在邮件正文HTML表格的超链接点击时运行VBA代码

方案一：自定义协议关联Outlook VBA（适用于已发送的邮件） #

直接在HTML邮件的链接中调用VBA受客户端安全限制，可通过自定义协议实现：

1. 编写核心VBA宏（Outlook的ThisOutlookSession模块）：

   Sub RunFromLink(macroName As String)
       Select Case macroName
           Case "ProcessRow1"
               MsgBox "执行第一行操作逻辑"
               ' 替换为你的业务代码
           Case "ProcessRow2"
               MsgBox "执行第二行操作逻辑"
           ' 可扩展更多操作
       End Select
   End Sub
   
   Sub RunMacro()
       Dim args As Variant
       args = Split(Command(), " ")
       If UBound(args) >= 2 Then
           Dim macroArgs As String
           macroArgs = Replace(args(2), "myvba://runmacro?name=", "")
           RunFromLink macroArgs
       End If
   End Sub
   

2. 注册自定义协议：
   新建后缀为.reg的文件，粘贴以下内容（根据你的Outlook安装路径调整），双击导入注册表：

   Windows Registry Editor Version 5.00
   [HKEY_CLASSES_ROOT\myvba]
   @="URL:MyVBA Protocol"
   "URL Protocol"=""
   [HKEY_CLASSES_ROOT\myvba\shell]
   @="open"
   [HKEY_CLASSES_ROOT\myvba\shell\open\command]
   @="\"C:\\Program Files\\Microsoft Office\\root\\Office16\\OUTLOOK.EXE\" /c \"RunMacro\" /m \"ThisOutlookSession.RunFromLink\" \"%1\""
   

3. 修改HTML表格链接：
   将表格内的超链接替换为自定义协议格式：

   <a href="myvba://runmacro?name=ProcessRow1">操作按钮</a>
   

方案二：Excel WebBrowser控件绑定事件（适用于本地预览触发） #

如果是在Excel中生成并预览HTML表格，可通过WebBrowser控件监听点击：

1. 添加WebBrowser控件：
   打开Excel开发工具，插入「Microsoft Web Browser」控件。
2. 加载HTML表格：

   Sub LoadHTMLTable()
       Dim htmlContent As String
       htmlContent = "<table border='1'><tr><td><a href=""#row1"">操作1</a></td></tr><tr><td><a href=""#row2"">操作2</a></td></tr></table>"
       WebBrowser1.Navigate "about:blank"
       WebBrowser1.Document.Write htmlContent
   End Sub
   

3. 监听链接点击事件：
   在工作表代码模块添加：

   Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
       If Left(URL, 1) = "#" Then
           Cancel = True ' 阻止默认跳转
           Select Case Mid(URL, 2)
               Case "row1"
                   MsgBox "触发第一行VBA逻辑"
               Case "row2"
                   MsgBox "触发第二行VBA逻辑"
           End Select
       End If
   End Sub
   

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