Отправка списка ячеек в список электронной почты (Excel)

Я пытаюсь объединить несколько из кода Ron de Bruin excel в полезный макрос с довольно приличным успехом, за исключением того, что, по моему мнению, может быть простой проблемой, которую я не могу решить.

Код работает и всплывает по электронной почте, но две вещи ошибочны:

1 – Я хочу, чтобы выбранные ячейки (которые были скопированы) из гиперссылки рабочей книги, которая привязана к указанным лицам, отправляет «строку». Я пробовал Range (cell.Row, «B»), но это не работает, копирует все по электронной почте.

2 – Он не переходит к следующей ячейке (имени) в списке. У меня есть «следующая ячейка», но она перезаписывает первое электронное письмо. Не создает новый.

Любая помощь будет оценена! Благодаря!

Sub Email_Test() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim StrBody2 As String StrBody2 = "Text goes here" & "<br><br>" & _ "Thank you," & "<br>" & _ " My name" & "<br><br>" '********* 'Mail Part '********* Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) For Each cell In Columns("D").Cells.SpecialCells(xlCellTypeConstants) If cell.Value Like "?*@?*.?*" And _ LCase(Cells(cell.Row, "E").Value) = "yes" _ And LCase(Cells(cell.Row, "F").Value) <> "send" Then Set rng = Nothing On Error Resume Next Range("B2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False ActiveSheet.Range("$A$1:$L$50").AutoFilter Field:=3, Criteria1:= _ "=CAL EXPIRED", Operator:=xlOr, Criteria2:="=Quarantine" Set rng = rows("1:50") Sheets("MailInfo").Select On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With On Error Resume Next With OutMail .to = cell.Value .CC = "" .BCC = "" .Subject = "Reminder Email" .HTMLBody = "Dear " & cell.Offset(0, -1).Value & "," & "<br><br>" & _ "More text <BR>" & _ StrBody1 & RangetoHTML(rng) & StrBody2 .Display 'or use .Send End With Cells(cell.Row, "F").Value = "Send" End If Next cell On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail = Nothing Set OutApp = Nothing End Sub 

  • Не удалось отправить прикрепленное файл в ячейке Excel.
  • Не удалось вручную отправить электронную почту Lotus Notes в excel
  • Отправить письмо от IBM Notes с приложением
  • Нужна помощь в функции цикла в vba для отправки нескольких сообщений электронной почты
  • нужна помощь в исправлении моего кода для отправки автоматических писем через vba
  • Новая строка в электронной почте, создавая сообщение из значения ячейки с разрывами строк: VBA
  • Как переносить таблицы в сообщениях Outlook 2010 в Excel 2010
  • Получение вложений Outlook в VBA из отправленной почты
  • Экспортировать Datatable в Excel и отправлять его по электронной почте, не сохраняя сначала Excel
  • Excel Macro для извлечения строк, в зависимости от значения предыдущих дней и 30 элементов плюс полная категория?
  • Отправка электронной таблицы по электронной почте vba
  • Interesting Posts

    Автозаполнение использует половину ядра

    как рассчитать сверхурочную работу в Excel с помощью недельной оплаты?

    Почему Excel дает мне ошибку «Невозможно переместить объекты из листа»

    Загрузите большой файл Excel в C #

    Как манипулировать и распечатывать диаграмму в MS Excel с помощью AppleScript?

    Очистка всех скрытых ячеек в диапазоне

    VBA Internet Explorer Big Trouble с динамическим выпадающим списком

    Извлечение определенных слов из текста в Excel

    Как включить таймер от начала до конца суб? Каждый вызов представляет собой отдельный подраздел

    PHP-массив ключей доступа Excel Excel в applyFromArray

    как вставить jpeg-изображение в лист excel

    Преобразование Excel Forumla в MySQL Query

    Непоследовательное форматирование даты при импорте CSV через макрос

    Использование листа Excel в качестве надстройки Excel

    Есть ли недостаток в этом трюке, чтобы проверить, существует ли лист, вызывая Evaluate?

    Давайте будем гением компьютера.