VBA代码可通过Access更改电子邮件中的字体和大小

Question

我有一个运行查询的访问表单。 表单上有一个命令按钮，我要发送电子邮件，并在excel电子表格中附加查询结果。 使用下面的代码，我可以附加结果并发送确定的电子邮件。 我希望能够设置电子邮件正文的格式，以便使其更加引人注目。 我不太确定该怎么做，仍然附加我的查询。 我还创建了一个我将使用的电子邮件模板，但无法弄清楚如何使用该模板并附加查询结果。 我愿意接受任何建议。 任何帮助将不胜感激。

 DoCmd.SendObject acQuery, "BoxOrder", "ExcelWorkbook(*.xlsx)", "me@home.com", _
     "John@hishome.com", "", "BOX ORDER", _
     "ALL BOXES STITCHED" & vbCrLf & "Questions: Please Call Me" & _
     vbCrLf & "555-555-5555 x 66654", True, True

Answer 1

您可以阅读MS的文章 。

一部分代码如下：

Set ola1 = New Outlook.Application

Set mai1 = ola1.CreateItem(olMailItem)
mai1.To = strTo
mai1.Subject = strSubj
If bolHTML = True Then
    mai1.HTMLBody = strBody
Else
    mai1.Body = strBody
End If
mai1.Display 

如果使用HTML（设置bolHTML = True）版本，则可以在Form上具有RTF控件，然后将格式化的文本传递过来，或使用所需的格式对HTML进行硬编码。 只需将“ strBody”设置为所需的消息即可。

然后，如果您想将以上代码用于原始目的，则需要查看Attachments.Add（ MS文章 ）。

如果您要在Access中使用Email做很多事情，可以阅读完整的599CD电子邮件研讨会 。