使用 VBA 在电子邮件正文中插入文本答案

【问题标题】：Inserting text in Email body using VBA使用 VBA 在电子邮件正文中插入文本
【发布时间】：2013-10-18 10:46:34
【问题描述】：

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

但邮件不包含文本。

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

【问题讨论】：

不确定您是否可以这样做。也许1 将范围“A2:Q133”复制到新工作表2 在“A144”中插入自定义文本，然后使用“A2:Q144”作为范围？或参见 Ron De Bruin 的 THIS 方法

标签： excel vba outlook

【解决方案1】：

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

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

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

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

【讨论】：