Ссылка на адрес электронной почты с другого листа

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

Sub Macro1() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") On Error GoTo cleanup For Each cell In Columns("M").Cells.SpecialCells(xlCellTypeConstants) If cell.Value Like "?*@xyz.com" And _ LCase(Cells(cell.Row, "N").Value) = "open" Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = cell.Value .Subject = "Open Issue" .Body = "Dear " & Cells(cell.Row, "J").Value _ & vbNewLine & _ "Issue raised: " & Cells(cell.Row, "C").Value _ & vbNewLine & _ "Regards" .Send End With On Error GoTo 0 Set OutMail = Nothing End If Next cell cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub 

Это работает, если я вручную ввожу адрес электронной почты в столбец M вручную, но я пытаюсь его использовать, чтобы, когда имя выбрано из раскрывающегося списка в J оно сопоставляет письмо с именем и отправляет его, когда «открыто» выбранных из столбца N

Я создал таблицу с именами и сообщениями электронной почты в другом листе, который M использует VLookup для ссылки с использованием =VLOOKUP(J3,Team!B5:E8,4,FALSE) . Я попытался добавить HYPERLINK перед VLOOKUP но он по-прежнему не создает ссылку.

Я также попытался создать адрес электронной почты из имен, используя split и concatenate, но безрезультатно.

Ваша проблема в том, что вы используете SpecialCells(xlCellTypeConstants) . После того, как вы сделали столбец M формулой, ваш код теперь будет игнорировать все ячейки, которые имеют формулы в столбце M.

Вы можете настроить xlCellTypeConstants на xlCellTypeFormulas или просто полностью избавиться от SpecialCells , чтобы включить оба.

  • Не удалось отправить прикрепленное файл в ячейке Excel.
  • VBA Email Loop с вложением и другим получателем в CC не выполняется
  • Ошибка VBA '1004' в ActiveWorkbook.Save
  • VBA Excel: как я могу отправить изображение, сохраненное в Excel на моем жестком диске, в электронном письме?
  • VBA отправляет электронное письмо от excel (в зависимости от состояния)
  • Экспортировать Datatable в Excel и отправлять его по электронной почте, не сохраняя сначала Excel
  • Разделение строки адресов электронной почты на разные столбцы с использованием следующей доступной строки
  • Excel Macro отправляет электронную почту с информацией из активной строки
  • Как переносить таблицы в сообщениях Outlook 2010 в Excel 2010
  • Не удалось вручную отправить электронную почту Lotus Notes в excel
  • Msgstr "Ошибка времени выполнения" 13 ": Тип Несоответствие.", Когда нет адреса электронной почты
  • Давайте будем гением компьютера.