Вставить Word.Document в тело электронной почты?

Я пытаюсь создать процедуру, которая передается тело электронной почты (с текстом и таблицами) в виде Word.Document, а затем отправляет его по электронной почте. Однако я не могу понять, как вставить Word.Document в тело письма.

Это то, что я сейчас пытаюсь сделать:

Sub CreateDraft(Destinatary As String, CC As String, Subject As String, Body As Word.Document) Dim OutApp As New Outlook.Application Dim OutMail As Outlook.MailItem Dim OutInspector As Outlook.Inspector Dim WordDoc As Word.Document Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .To = Destinatary .CC = CC .Subject = Subject .Display Set OutInspector = OutMail.GetInspector Set WordDoc = OutInspector.WordEditor ' How do I insert the Body object to the email? Call .Save Call .Close(False) End With End Sub Sub SendButton_Click() Dim WordApp As New Word.Application Dim WordDoc As Word.Document Set WordDoc = WordApp.Documents.Add WordApp.Visible = False ThisWorkbook.Sheets(1).Range("A1:E10").Copy WordApp.Selection.PasteExcelTable False, False, False Call CreateDraft("[email protected]", "", "Test", WordDoc) End Sub 

Объектная модель Word предоставляет методы « Копировать» и « Вставить» . Более подробную информацию см. В главе 17: Работа с элементами .

  • Каждая строка отправляет электронное письмо тому же получателю
  • выберите, на какую учетную запись отправить адрес электронной почты Outlook?
  • Экспорт электронной почты / органа электронной почты с темой «ПРЕДУПРЕЖДЕНИЕ: Ошибка доставки сообщений» из Outlook 2007
  • Код Excel VBA для чтения имени пользователя из ячейки, затем отправьте электронное письмо этому пользователю
  • Office 2013 - VBA Email не отображает переменные To / CC / BCC
  • Добавьте адрес электронной почты в сообщение электронной почты Outlook, если значение ячейки равно 1
  • VBA: Поиск электронной почты в почтовом ящике не по умолчанию?
  • VBA проверяет список писем, используя шаблон
  • Раскрывающийся список исчезает, когда рабочая книга отправляется по электронной почте.
  • Excel: ошибка во время выполнения '-2147319779 (8002801d)':
  • Извлечь данные из электронной почты Outlook в Excel
  • Interesting Posts

    Разница между ценой и количеством продаж в сводной таблице

    Почему мой код не фильтрует мою сводную таблицу?

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

    Excel DNA, как получить события для каждого незначительного изменения в таблице?

    UTF 8-байтовая длина строки в microsoft excel

    Range = Range.Value метод переноса видимых ячеек

    Как работать с ограничениями VBA OnTime?

    Импортирование более 65.535 строк в MS Access из Excel

    Условная формула саморегуляции (только выполнение, если значение ячейки == "")

    Десятичное число в шестнадцатеричном размере до двух байтов в Excel

    Сводная таблица: обнаружение при сведении сводного поля

    Скопируйте данные палитры с совпадающими идентификаторами, которые содержат более 100000 строк на каждом листе в Workbook

    Как суммировать различные / уникальные значения среди множества множественных дубликатов в excel?

    Использование VBA для запуска сценария WinSCP

    Случайная строка из набора доступных строк в Excel, но исключает конкретную ценность ячейки

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