Excel VBA发送Outlook邮件时单元格格式与超链接处理问题咨询

txt2一共存在3个核心错误：

• 语法拼接错误：你把Range(B5)放在了双引号内部，VBA会将其识别为普通文本而非变量调用，不会读取单元格内容；同时Range的参数B5未加双引号，VBA会将其判定为未定义的变量而非单元格地址，正确写法是Range("B5").Value。
• 变量名不匹配：后续拼接邮件正文时你使用的变量是htmltxt2，但你实际定义的变量是txt2，运行时会出现变量未定义或内容为空的问题。
• 样式缺失：如果你需要单元格内容显示为加粗效果，span的样式中需要新增font-weight:bold属性，目前的样式配置不会实现加粗效果。

修正后的txt2写法参考：

txt2 = "<span style=""font-family:Arial; font-size:15pt; font-weight:bold;"">" & Range("B5").Value & "</span><br><br>"

同时原代码中Link变量也存在span标签未闭合的问题，修正后的Link写法：

Link = "<span style=""font-family:Arial; font-size:12pt;""><a href=""https://app.smartsheet.com/b/form/3976fc184fc84380a68d0da69b8ddc6d"" >Link Formulário</a></span>"

拼接HTMLBody时注意用正确的变量名：

Email.htmlbody = txt1 & txt2 & Link & Email.htmlbody

Excel单元格的超链接存储在Hyperlinks集合中，直接读取Range.Value只能拿到超链接的显示文本，要提取超链接地址可以按照以下逻辑实现：

1. 先判断目标单元格是否存在超链接：通过Range("目标单元格").Hyperlinks.Count > 0判定
2. 存在超链接时，通过Range("目标单元格").Hyperlinks(1).Address提取链接地址，通过Range("目标单元格").Hyperlinks(1).TextToDisplay提取超链接显示文本
3. 将提取到的内容拼接为HTML的a标签，即可插入到邮件正文中

参考代码示例：

' 替换为你实际的工作表名和单元格地址
Dim targetCell As Range, linkText As String, linkUrl As String, linkHtml As String
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("B6")

If targetCell.Hyperlinks.Count > 0 Then
    linkText = targetCell.Hyperlinks(1).TextToDisplay
    linkUrl = targetCell.Hyperlinks(1).Address
    ' 可自定义超链接和文本样式
    linkHtml = "<span style=""font-family:Arial; font-size:12pt;""><a href=""" & linkUrl & """ style=""color:#0066cc;"">" & linkText & "</a></span><br>"
Else
    ' 无超链接时直接输出单元格文本
    linkHtml = "<span style=""font-family:Arial; font-size:12pt;"">" & targetCell.Value & "</span><br>"
End If

' 拼接进邮件正文即可
Email.htmlbody = txt1 & txt2 & linkHtml & Link & Email.htmlbody

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