Сценарий VBA для автоматического выбора значения из раскрывающегося списка

Question

У меня есть книга Excel с двумя листами.

Лист 1 содержит шаблон электронной почты, а лист 2 содержит необработанные данные.

Лист 2 содержит заголовки, как указано ниже. Имя Сотрудник ERP Дата Электронная почта Дата начала Годовщина (Да / Нет) Завершенные годы

На листе 1 я создал раскрывающийся список, в котором список будет содержать имена сотрудников, у которых есть поле «Годовщина». (да)

Я написал сценарий VBA для отправки электронного письма человеку, выбранному в раскрывающемся списке.

Я хотел бы сделать его полностью автоматизированным, чтобы сценарий мог автоматически выбирать следующее значение и затем отправлять электронное письмо человеку, а также для всего списка. Пожалуйста, предложите, если есть возможность.

Скрипт отправки письма

Sub Send_Anniversary_Email()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Mailer")

Dim lr As Integer
lr = sh.Range("J" & Application.Rows.Count).End(xlUp).Row

sh.Range("E5:L" & lr).Select
With Selection.Parent.MailEnvelope.Item

    .to = sh.Range("B12").Value
    .cc = sh.Range("B13").Value
    .Subject = sh.Range("B14").Value
    .send

    ActiveWorkbook.Save
End With

MsgBox "Done"



End Sub

Answer 1

Я попытался создать такую ​​же кодировку, но как только я пытаюсь отправить электронное письмо другому человеку, я получаю сообщение «Mailenvelope of object_worksheet failed» из этого кода «With Selection.Parent.MailEnvelope.Item». Что мне здесь делать?