Копирование диапазона ячеек из закрытой книги в электронную почту Outlook, которая уже содержит тело с использованием VBA?

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

Dim sourceWorkbook As Workbook Dim outEmail As Object Dim outContent As Object Dim copiedRange As Range Set sourceWorkbook = Workbook.Open("file location") Set outEmail = GetObject(,"Outlook.Application") Set outContent = objOut.CreateItem(0) Set copiedRange = Sheet("sheet name").RangeToHtml("A1:D5") copiedRange.Select With Selection .Copy End With With outContent .Body = "blah blah blah" .HTMLBody = RangeToHtml.copiedRange End With 

 Dim sourceWorkbook As Workbook Dim outEmail As Object Dim outContent As Object Dim copiedRange As Range Set sourceWorkbook = Workbooks.Open("file location") Set outEmail = GetObject(,"Outlook.Application") Set outContent = outEmail.CreateItem(0) Set copiedRange = sourceWorkbook.Sheets("sheet name").Range("A1:D5") With outContent .Body = "blah blah blah" .HTMLBody = RangeToHtml(copiedRange) End With 
  • Getinspector при отправке приглашения на встречу Outlook через общую папку с VBA
  • Создание папок в общем почтовом ящике через Excel VBA
  • Excel Macro для создания электронных писем работает только при открытии IDE
  • Макрос для прикрепления SAVED-версии документа к электронному письму
  • Создание макроса в Outlook для извлечения данных из отчетов
  • Запрос Excel VBA Getexchangeuser.Getexchangeusermanager
  • Excel VBA Поиск Outlook GAL с использованием свойства псевдонима ExchangeUser
  • Код для пересылки электронных писем медленный
  • экспортировать данные из Outlook на конкретный лист в конкретном файле
  • Изменение формата даты на экспорт VBA из Outlook в Excel
  • Доступ к автоответчикам (ООО) в Outlook 2013 с использованием VBA
  • Давайте будем гением компьютера.