Question

我使用以下代码允许我通过电子邮件发送excel电子表格的一部分。每当我使用它时，它有时会有奇怪的格式，其中背景颜色为黑色，介绍文本为红色。我想在白色上将其修正为纯黑色或将其强制为纯文本。将BodyFormat设置为纯文本选项不起作用。看起来它从某个地方获取样式信息，但我不知道在哪里或如何更改它。任何帮助表示赞赏。

Sub EmailMessage()

ActiveSheet.Range("E3:F14").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Message for " + FormatDateTime(DateTime.Now, vbLongDate)
    .Item.To = "someemail@testemail.gov"
    .Item.Subject = "Message for " + FormatDateTime(DateTime.Now, vbShortDate)
    .Item.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
End With


End Sub

Answer 1

我遇到了同样的问题，我在所选区域手动将背景更改为白色并修复了它。

希望有所帮助

Answer 2

最终为我工作的是在向工作表发送电子邮件之前使用了以下行： Sheets("toSend").Cells.Interior.ColorIndex = xlColorIndexNone

edit：我回来了，原来这只是暂时修复的，现在它不再起作用了……在我的情况下，我将工作表复制到新工作表中然后发送出去。我将要复印的工作表的背景颜色更改为白色（通过右键单击工作表的左上角，然后将填充颜色更改为白色）。现在可以再次使用！

如何修复Excel VBA中的电子邮件中的背景和文本颜色？

2 个答案: