Excel VBA для Outlook: Ошибка Типа Несовпадение

Question

Я пытаюсь написать код VBA в Excel, который будет создавать сообщение Outlook, который содержит:

1. текста в теле
2. стол
3. сигнатуры внизу.

Ниже приведен код, который я написал. Он работал до тех пор, пока я не добавил объект Excel Table к телу сообщения. Появляется сообщение об ошибке:

Run-time error: error type 13, Type Mismatch".

Может кто-то помочь с моим кодом ниже?

Sub send() 
    Dim OApp As Object, OMail As Object, signature As String 
    Dim TOEMAIL As Range 
    Dim CCMEMAIL As Range 
    Dim SUBJECT As Range 
    Dim Workbook As Range 
    Dim Table As Range 


    Set TOEMAIL = Sheets("Macro").Range("D6") 
    Set CCEMAIL = Sheets("Macro").Range("D7") 
    Set SUBJECT = Sheets("Macro").Range("D8") 
    Set Workbook = Sheets("Macro").Range("D5") 
    Set Table = Sheets("Sheet1").Range("B7:B17") 

    Set OApp = CreateObject("Outlook.Application") 
    Set OMail = OApp.CreateItem(0) 
    With OMail 
    .Display 
    End With 

    signature = OMail.body 
    With OMail 
    .To = TOEMAIL 
    .CC = CCEMAIL 
    .SUBJECT = SUBJECT 
    .Attachments.Add (Workbook) 
    .body = "Hello, this is a test." & vbNewLine & Table & vbNewLine & signature & vbNewLine 
    End With 
    Set OMail = Nothing 
    Set OApp = Nothing 
End Sub 

Answer 1

MailItem.Body Недвижимость ожидает строку. Вы пытаетесь объединить несколько строк и объект Range. Вы несете ответственность за извлечение соответствующих данных из этой таблицы и представление ее в виде строки.

Возможно, вам лучше создать таблицу HTML и установить для нее свойство MailItem.HTMLBody.