如何在邮件HTML正文中引用Excel的Range("F2").Value？

嘿，这个问题很常见——你现在的代码是把Range("F2").Value当作纯文本写进HTML字符串里了，VBA根本不会去解析这个单元格引用！咱们只需要把这个单元格的值从字符串里抽出来，用VBA的字符串拼接语法和HTML内容连在一起就行。

修改后的代码 #

Dim signature As String
signature = opemail.HTMLBody ' 保存原有签名

With opemail
    .To = "s"
    .Subject = ActiveCell.Value & " - Daily report - " & Date - 1
    ' 关键修改：把Range("F2").Value作为变量和HTML字符串拼接
    .HTMLBody = "<p style=""font:11pt Calibri;""> " & Range("F2").Value & " <br> more text </p>" & signature
End With

关键说明 #

• 你之前的写法是把**Range("F2").Value**硬编码在HTML字符串里，VBA只会原样输出这段文本。现在用&把单元格的值和前后的HTML片段拼接，运行时就会自动替换成F2单元格的实际内容（比如"good morning"或者"good afternoon"）。
• 注意HTML里的双引号要用两个双引号""转义，这是VBA里字符串中包含双引号的标准写法，避免语法错误。

额外补充（如果F2还没设置自动切换逻辑） #

如果你的F2单元格还没有实现12点前显示"good morning"、12点后显示"good afternoon"的功能，可以在引用前先给F2赋值：

' 在引用Range("F2")前添加这段代码
If Time < TimeValue("12:00:00") Then
    Range("F2").Value = "good morning"
Else
    Range("F2").Value = "good afternoon"
End If

这样整个流程就完整啦，邮件里会根据时间动态显示对应的问候语~

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