如何在VBA生成的电子邮件中包含Access查询/表单中的行？

如何在VBA生成的电子邮件中包含Access查询/表单中的行

我目前将表单作为附件发送，但不是每个客户端都有Excel，所以我想这就是为什么我想将其包含在电子邮件正文中，我想是HTML

这是我的代码：

Option Compare Database

Private Sub btnMail_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim MailTo, Subj, Att, Att2, Att3 As String

MailTo = "myemail@gmail.com"
Subj = "Test mail"
Content = "Private content"
Att = "C:\Users\min stock.xls"
Att2 = "C:\Users\todo.txt"
Att3 = "C:\Users\Stockmanagementv3.accdb"



staff = "Kind regards" & vbCrLf & "My company"
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = MailTo
    .Subject = Subj & Now & " Mail "
    .Body = Content & staff

    .Attachments.Add Att
    .Attachments.Add Att2
    .Attachments.Add Att3

.send
End With

Set OutMail = Nothing
Set OutApp = Nothing
MsgBox ("Your mail has been sent succesfully!")
End Sub

---

正如我在评论中提到的，您可以将查询保存为html文件

dim FN as String 
fn = "C:\myQuery.html"

'SAve the query as html file
docmd.OutputTo acOutputQuery, "qry_name", acFormatHTML, fn

'add the file as attachment
.Attachments.Add fn

---

希望这有帮助。

有人能帮我吗？您可以将查询导出到html文件，然后将html文件附加到您的电子邮件中？或者你想阅读每一行并写在电子邮件中？我可以做第一行，但我想做后一行，因为这对我们公司的一些客户来说更容易。因此，如果可能的话，基本上可以将行写入电子邮件的正文部分。IMO，将查询导出为html，将文件附加为电子邮件发送比阅读和创建邮件合并类型的电子邮件容易得多。您可以通过vbaThanks进行导出、添加和发送，以便快速响应，我现在就尝试这样做。如果我碰巧有任何错误，可以联系你吗？