Отправить автоматические письма от Excel с конвертом

Я создал этот макрос для автоматической отправки писем через Outlook! Мой макрос работает, но есть проблема. Вместо того, чтобы отправлять содержимое почты только значение смещения, которое я прошу, он отправляет весь рабочий лист. Я предоставляю код ниже:

Dim ToArray As String Dim CCArray As String Dim Subject As String Dim Content As String Dim cell3 As Range For Each cell3 In ws1.Range("D2:D" & lastrow1) ToArray = cell3.Offset(0, 16).Value CCArray = cell3.Offset(0, 17).Value Subject = cell3.Offset(0, 18).Value Content = cell3.Offset(0, 19).Value ActiveWorkbook.EnvelopeVisible = True With ws1.MailEnvelope .Introduction = Content .Item.To = ToArray .Item.CC = CCArray .Item.Subject = Subject .Item.Send End With Application.DisplayAlerts = False Next cell3 

Я думаю, вы должны попытаться использовать это:

 Set Mail_Object = CreateObject("Outlook.Application") Set Mail_Single = Mail_Object.CreateItem(0) With Mail_Single .Subject = Subject .To = "[email protected]" .cc = "[email protected]" .BCC = "[email protected]" .SentOnBehalfOfName = "[email protected]" .HTMLBody = Content .send End With 

Надеюсь, это поможет…

  • Программно подавить сообщение электронной почты электронной почты Outlook с помощью Excel VBA
  • Office 2013 - VBA Email не отображает переменные To / CC / BCC
  • Попытка открыть шаблон электронной почты Outlook с помощью excel VBA
  • Excel создает электронную почту Outlook, но текст не выравнивается
  • Вставка таблицы Excel в электронном письме Outlook: он оглядывается назад
  • Не удалось получить Excel для создания электронной почты
  • Ошибка отправки электронной почты (gmail) через python с вложением excel xlsx
  • Отправка писем с помощью Outlook 2013 / Excel 2013
  • Outlook для Excel VBA для перезаписывания предыдущих данных
  • Как экспортировать элемент почты в файл Excel
  • Добавьте адрес электронной почты в сообщение электронной почты Outlook, если значение ячейки равно 1
  • Давайте будем гением компьютера.