如何通过VBA的.HTMLBody将单元格URL转为可正常签出的邮件超链接？

1. 修复HTMLBody的语法错误 #

你当前的.HTMLBody代码存在字符串拼接语法问题，VBA无法直接在字符串字面量里嵌入单元格引用，必须用&操作符将HTML标签与单元格值拼接。

修正后的核心代码片段：

.HTMLBody = "<a href='" & ActiveWorkbook.Worksheets("mysheet").Range("A1").Value & "'>点击打开审批表单</a>"

如果需要补充邮件正文内容，可扩展HTML结构：

Dim formUrl As String
formUrl = ActiveWorkbook.Worksheets("mysheet").Range("A1").Value

.HTMLBody = "您好，请处理以下审批请求：<br><br>" & _
            "<a href='" & formUrl & "'>点击打开审批表单（桌面版Excel）</a><br><br>" & _
            "注：表单需在桌面版Excel打开以运行宏"

2. 解决SharePoint文档只读/无法签出问题 #

直接使用SharePoint文档默认URL在桌面Excel打开会进入只读模式，可通过两种方式优化：

方式一：使用桌面Excel协议链接 #

将URL转换为ms-excel:ofe|u|协议格式，点击链接会直接唤起桌面版Excel，且支持正常签入/签出：

Dim formUrl As String
formUrl = ActiveWorkbook.Worksheets("mysheet").Range("A1").Value
formUrl = "ms-excel:ofe|u|" & formUrl

.HTMLBody = "<a href='" & formUrl & "'>点击打开审批表单（桌面版Excel）</a>"

方式二：添加自动签出参数 #

在原URL后追加&Checkout=1参数，强制打开文档时自动完成签出：

Dim formUrl As String
formUrl = ActiveWorkbook.Worksheets("mysheet").Range("A1").Value
' 根据原URL是否已有参数，决定追加方式
If InStr(formUrl, "?") > 0 Then
    formUrl = formUrl & "&Checkout=1"
Else
    formUrl = formUrl & "?Checkout=1"
End If

.HTMLBody = "<a href='" & formUrl & "'>点击打开并签出审批表单</a>"

完整修正后的VBA代码 #

Dim OutlookApp As Object
Dim OutlookMail As Object
Dim formUrl As String

' 创建Outlook实例
Set OutlookApp = CreateObject("Outlook.Application")
' 创建新邮件
Set OutlookMail = OutlookApp.CreateItem(0)

' 获取表单URL并转换为桌面可编辑格式
formUrl = ActiveWorkbook.Worksheets("mysheet").Range("A1").Value
formUrl = "ms-excel:ofe|u|" & formUrl

With OutlookMail
    .To = ActiveWorkbook.Worksheets("mysheet").Range("A2").Value
    .CC = ""
    .BCC = ""
    .Subject = ActiveWorkbook.Worksheets("mysheet").Range("A3").Value
    ' 构建HTML格式正文
    .HTMLBody = "请处理以下审批任务：<br><br>" & _
                "<a href='" & formUrl & "'>点击打开审批表单（桌面版Excel）</a><br><br>" & _
                "注意：表单需在桌面版Excel打开以运行宏，点击链接后将自动进入可编辑状态"
    .Display ' 替换为.Send可直接发送邮件，无需弹窗预览
End With

' 释放对象资源
Set OutlookMail = Nothing
Set OutlookApp = Nothing

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