Question

我需要HTML代码的帮助。基本上我在VBA中编写代码以从excel发送电子邮件。对于发送的每封电子邮件，我需要编写一个消息体，我使用了HTML代码。问题是我需要在此HTML代码中插入今天的日期。所以基本上它应该是“报告生成于2017年8月28日。

这是我需要帮助的地方。

我使用了替换功能，但也没有用。

所以这是我的代码示例：

Dim strbody As String
Dim Rstrbody As String

strbody = "<html><body><font size = ""3"", face = ""Calibri"">Hi All<br>The report is generated for dd mmm yyyy</font></body></html>"

Rstrbody = Replace(strbody, "dd mmm yyyy", Format(Date, "dd mmm yyyy"))

需要帮助。让我知道如果这可以在HTML中完成，我不知道Javascript，因此无法使用。

提前致谢

Answer 1

由于您编写的代码是VBA，因此最好继续在VBA中执行，例如

Dim strBody As String
Dim strDate As String

strDate = Format(Date, "dd mmm yyyy")

strBody = "<html><body><font size = ""3"", face = ""Calibri"">Hi All<br>The report is generated for " & strDate & "</font></body></html>"

HTML无法执行代码以在使用时生成日期。

您的解决方案也应该说明，请务必在发送的邮件中使用Rstrbody作为变量。

Answer 2

Dim strbody As String

strbody = "<html><body><font size = ""3"", face = ""Calibri"">Hi All<br>The report is generated for " & Format(Date.Today, "dd MMM yyyy") & "</font></body></html>"

显示HTML文本中的当前日期

2 个答案: