Синтаксис для добавления второго адреса электронной почты в поле cc

Question

Когда я нажимаю кнопку отправки электронной почты в 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.

Answer 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@email.com")

Answer 2

Поскольку поле 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 равен контактному адресу электронной почты для идентификатора Assigned To, то поле 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@email.com"

="email@email.com;" &
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@email.com",
    DLookUp("[E-mail Address]","Contacts","[ID]=" & Nz([Opened By],0)) & ";email@email.com"
)

Answer 3

Просто объедините существующий IIF (.....) с нужным адресом электронной почты. Псевдокод:

a = IIF(......)
b = "email@email.com"
c = a + ";" + b
.
.
.
CC = c