将第二个电子邮件地址添加到cc字段的语法

问题描述 投票:0回答:3

当我单击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字段中添加另一个电子邮件地址。

vba email ms-access access-vba
3个回答
3
投票

由于宏中的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]"
)

1
投票

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]")


0
投票

只需将现有的IIF(.....)与所需的电子邮件地址连接起来即可。伪代码:

a = IIF(......)
b = "[email protected]"
c = a + ";" + b
.
.
.
CC = c
© www.soinside.com 2019 - 2024. All rights reserved.