excel - 使用 VBA 在电子邮件正文中插入文本

Question

我正在使用以下 VBA 宏从 Excel 邮寄一系列单元格

ActiveSheet.Range("A2:Q133").Select
ActiveWorkbook.EnvelopeVisible = True

   With ActiveSheet.MailEnvelope
    .Introduction = "demo"
      .Item.To = "abc@abc.com"
      .Item.Subject = "Testing mail"
      .Item.Send
   End With 

我想修改代码以在最后插入一些文本。我尝试使用

.Item.HTMLBody = "Random text"

但邮件不包含文本。

如果我做错了什么，请告诉我，以及正确的方法是什么。提前致谢!

Answer 1

使用MailEnvelope，您可以将整个工作表作为电子邮件正文发送。

简介允许您在 mail item 之前添加一些文本，但是除了将某些内容附加到 Excel 工作表之外，您没有其他方法可以在末尾添加某些内容。

即使您修改 Body 或 HTMLBody，这也不会对电子邮件产生影响。

也许您可以尝试添加与草稿相同的消息，然后将其作为不同的对象重新打开以对其进行修改，但这似乎过于复杂。只需在 Excel 电子表格末尾添加一些临时文本并在 .Item.Send

之后将其删除就容易多了