3

我正在使用以下 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"

但邮件不包含文本。

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

4

1 回答 1

1

与MailEnvelope您一起发送整个工作表作为电子邮件的正文。

简介允许您在邮件项目之前添加一些文本，但除了在 Excel 工作表中附加一些内容之外，您没有其他方法可以在末尾添加一些内容。

即使您修改Body或HTMLBody，这对电子邮件也没有影响。

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

于 2013-10-18T11:38:22.503 回答