更新SendEmail命令后访问2010

时间:2013-06-06 06:30:01

标签: ms-access

如果更新了表格(列)并且产品存储空间达到了较低水平,我目前有一个数据库可以发送电子邮件。我把所有工作都搞好了。但是,在发送电子邮件操作中,我有一些问题。

有没有办法按惯例生成回复?

例如,管理员电子邮件位于另一个表格中,产品名称可以附加到电子邮件回复中吗?

我曾尝试使用构建器中的表达式(有帮助),但我没有成功。

非常感谢任何帮助!

1 个答案:

答案 0 :(得分:0)

用于创建和发送电子邮件消息的VBA代码可以执行任何数量的操作来自定义它。例如,要根据某些条件检索其他收件人的姓名和电子邮件地址,您可以使用以下代码:

Select Case productType
    Case "bacon"
        adminName = "Gord"
        adminEmail = DLookup("email", "tblAdminInfo", "adminName=""" & adminName & """")
    Case Else
        adminName = "(generic admin)"
        adminEmail = "admin@example.com"
End Select

同样,您可以通过执行以下操作来自定义电子邮件正文:

emailBody = ""
emailBody = emailBody & "Hey " & adminName & "," & vbCrLf
emailBody = emailBody & vbCrLf
emailBody = emailBody & "OMG, we're running low on " & productType & "!" & vbCrLf
emailBody = emailBody & vbCrLf
emailBody = emailBody & "Product details for " & productType & ":" & vbCrLf
emailBody = emailBody & DLookup("description", "tblProductDetails", "productType=""" * productType & """") & vbCrLf

尝试使用这些技术,如果遇到任何困难,请针对您的具体问题创建一个新问题。