VBA发送邮件时如何将ThisWorkbook.Path转为可点击超链接？

这问题我之前也碰到过——Outlook默认不会把纯文本形式的本地路径自动识别为可点击链接，得手动用HTML格式来构建才行，下面给你一步步解决的方案：

核心思路 #

要让路径变成可点击链接，你需要做两件事：

• 把邮件正文设置为HTML格式（只有HTML支持自定义超链接）
• 用HTML的<a>标签包裹本地路径，同时把路径转换成Outlook能识别的file:///协议格式（注意是三个斜杠）

修改后的完整代码示例 #

Private Sub CommandButton1_Click()
    Dim outlookOBJ As Object
    Dim mItem As Object
    Dim targetFolderPath As String
    Dim clickableLink As String
    
    ' 替换成你实际的文件夹路径
    targetFolderPath = "C:\Your\Target\Folder\Path"
    
    ' 把Windows路径转成HTML可识别的file:///格式（替换反斜杠为正斜杠）
    clickableLink = "<a href='file:///" & Replace(targetFolderPath, "\", "/") & "'>" & targetFolderPath & "</a>"
    
    Set outlookOBJ = CreateObject("Outlook.Application")
    Set mItem = outlookOBJ.CreateItem(olMailItem)
    
    With mItem
        .To = "Mail.Adress@test.com"
        .Subject = "你的邮件主题内容"
        ' 关键：将邮件设置为HTML格式
        .BodyFormat = olFormatHTML
        ' 用HTMLBody插入带链接的正文，可自行添加其他内容
        .HTMLBody = "请查看指定文件夹：<br><br>" & clickableLink & "<br><br>其他补充内容..."
        .Display ' 测试时用Display预览，确认没问题后换成.Send直接发送
    End With
    
    ' 释放对象避免内存占用
    Set mItem = Nothing
    Set outlookOBJ = Nothing
End Sub

关键细节说明 #

1. 路径格式转换：Windows的反斜杠\在HTML链接里要换成正斜杠/，同时加上file:///前缀，Outlook才能正确解析成本地文件夹链接。
2. 用HTMLBody替代Body：因为要插入HTML代码，所以不能用原来的.Body属性，必须改用.HTMLBody。如果需要保留原有的纯文本内容，可以把换行符替换成HTML的<br>标签。
3. 安全提示说明：收件人打开邮件时可能会看到“此邮件包含本地文件链接”的安全提示，这是Outlook的默认防护机制，需要收件人手动允许打开链接。

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