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的Article。

代码的一部分如下：

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）版本，您可以在表单上拥有RTF控件，并将格式化文本传递给HTML或使用您需要的格式对其进行硬编码。只需设置＆＃34; strBody＆＃34;到你想要的信息。

如果您想将上述代码与原始用途一起使用，则需要查看Attachments.Add（MS Article）。

如果您要通过Access中的电子邮件做很多事情，那么您可以遵循完整的599CD Email Seminar。

VBA代码，用于更改电子邮件中的字体和大小

1 个答案: