oMail - 将更改的合并字段从数据库表单添加到 vba 代码答案

【问题标题】：oMail - adding changing merge fields to vba code from database formoMail - 将更改的合并字段从数据库表单添加到 vba 代码
【发布时间】：2014-03-10 11:55:53
【问题描述】：

我是一个基本用户，我设置了一个命令按钮，点击发送电子邮件。到目前为止，我已经设法让它工作到可以向特定电子邮件地址发送电子邮件的地步，但在我的数据库中，我有一个存储字段“servicecontact”，并且希望能够将电子邮件发送到指定的地址在这个领域里。我还想在电子邮件正文中插入合并字段以指定电子邮件与谁有关

这是我目前使用的代码

Private Sub Receipt_confirmation_email_Click()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Dim rs As DAO.Recordset
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from [Checks]", dbOpenDynaset)

oMail.Body = "RE <INSERT FIELD NAME HERE>"
oMail.Body = oMail.Body & " "
oMail.Subject = "Confirmation email"
oMail.To = {{{{THIS IS THE SECTION I AM STRUGGLING TO FORMAT}}}}
oMail.SentOnBehalfOfName = "specific@emailaddress.org"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing

End Sub

如果您能给予我任何帮助，我们将不胜感激。

谢谢

【问题讨论】：

您应该能够使用记录集，或者至少可以使用创建电子邮件的表单上的名称。如果您需要更多详细信息，请提供您希望使用的表格或您希望使用的表格中的数据。
您好，非常感谢您的回复。我已包含记录集，如何格式化我的 oMail.To = 字段以获取名为 Servicecontact 的字段名称？
我看不到 MS Access 记录集。
我现在已经更新了我的原始代码，它只是 oMail.To 字段，我不明白我需要使用哪种格式从名为“checks”的表单中获取该字段和一个名为“servicecontact”的字段名称

标签： vba forms ms-access field sendmail

【解决方案1】：

你可以在代码中引用一个表单，例如：

oMail.To = Forms!checks!servicecontact

您可能需要检查servicecontact 是否为空。

如果代码以checks 的形式运行，那么你可以直接使用

 Me.servicecontact

【讨论】：