Excel VBA到Outlook：错误类型不匹配

我正在尝试在Excel中编写VBA代码，该代码将创建Outlook邮件，其中包含：

正文中的文本

桌子

底部的签名 下面是我写的一段代码。它一直在工作，直到我将Excel

表

对象添加到消息体。它会出现一条错误消息，上面写着：

运行时错误：错误类型13，类型不匹配”

有人能帮我写下面的代码吗

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

---

MailItem.Body

属性需要一个字符串。您正在尝试连接几个字符串和一个范围对象。您的责任是从该表中提取相关数据并将其表示为字符串

---

您最好创建一个HTML表，然后改为设置

MailItem.HTMLBody

属性。

MailItem.Body

属性需要一个字符串。您正在尝试连接几个字符串和一个范围对象。从该表中提取相关数据并将其表示为字符串是您的责任

---

您最好创建一个HTML表，并设置

MailItem.HTMLBody

属性。

我建议查看此网站：我建议查看此网站：谢谢大家。鉴于我仍在学习VBA，是否有人有兴趣向我展示如何以小额费用完成此操作？…比如10美元。让我知道。请将您的电子邮件地址发送给我，我将向您发送我已设置的文件。谢谢！谢谢大家。鉴于我仍在学习VBA，是否有人有兴趣向我展示如何以小额费用完成此操作？…比如10美元。让我知道。请将您的电子邮件地址发送给我，我将向您发送我已设置的文件。谢谢！