当我单击MS Access中的发送电子邮件按钮时,以下运行:
EmailDatabaseObject
To: =DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Assigned To],0))
CC: =IIf(DLookUp("[E-mail Address]","Contacts","[ID]=" &
Nz([Opened By],0))=DLookUp("[E-mail Address]","Contacts","[ID]=" &
Nz([Assigned To],0)),"",DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0)))
以及主题,信息等的其他项目。
我想在CC字段中添加另一个电子邮件地址。
由于宏中的CC
字段当前包含iif
语句,因此所需的修改取决于您是希望将电子邮件发送到所有案例的附加电子邮件地址,还是仅针对验证iif
测试表达式的情况。
目前,您的iif
声明正在执行以下测试:
=IIf
(
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))=
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Assigned To],0)),
"",
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))
)
也就是说:
如果Opened By
ID的联系电子邮件地址等于Assigned To
ID的联系电子邮件地址,则CC
字段为空(因为To
字段已包含Assigned To
电子邮件地址);否则使用Opened By
电子邮件地址。
最简单的修改当然是简单地将附加电子邮件地址连接到iif
语句的开头或结尾,例如:
=IIf
(
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))=
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Assigned To],0)),
"",
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))
)
& ";[email protected]"
="[email protected];" &
IIf
(
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))=
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Assigned To],0)),
"",
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))
)
但是,对于Opened By
电子邮件地址等于Assigned To
电子邮件地址的情况,这将产生前导/尾随分号。
因此,为了确保您没有留下前导/尾随分号,您可能希望使用:
=IIf
(
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0))=
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Assigned To],0)),
"[email protected]",
DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0)) & ";[email protected]"
)
CC应该是
CC: =IIf(DLookup("[E-mail Address]", "Contacts", "[ID]=" & Nz([Opened By], 0)) = DLookup("[E-mail Address]", "Contacts", "[ID]=" & Nz([Assigned To], 0)), "", DLookup("[E-mail Address]", "Contacts", "[ID]=" & Nz([Opened By], 0)) & ";" & "[email protected]")
只需将现有的IIF(.....)与所需的电子邮件地址连接起来即可。伪代码:
a = IIF(......)
b = "[email protected]"
c = a + ";" + b
.
.
.
CC = c