У меня есть ящик списка с 5 столбцами с адресами электронной почты в столбце 2. У меня есть какой-код, который проходит через этот столбец и добавляет адреса электронной почты получателям в электронном письме. Он отлично работает, но теперь мне нужно добавлять только адреса электронной почты, которые содержат определенное значение в столбце 5 в списке 5.

Я искал поиск методов UP, но я не могу найти ничего, чтобы ящики списков.

Это код без каких-либо критериев поиска:

strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
    strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
Next N

Есть ли способ, которым я могу изменить код, чтобы добавить только значения из столбца 2, которые соответствуют определенным критериям в столбце 5?

0
K753 26 Сен 2019 в 23:34

1 ответ

Лучший ответ

Я не понимаю вопрос (может быть, я что-то упускаю).

Просто используйте тот же метод, чтобы прочитать значение столбца, так как у вас уже есть, с If.

strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
    If Me.lstContacts.Column(5, N) = "a certain value" Then
        strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
    End If
Next N
1
Andre 26 Сен 2019 в 21:05