Excel VBA到Outlook：錯誤類型不匹配

Question

我正在嘗試在Excel中編寫VBA代碼，該代碼將創建包含以下內容的Outlook消息：

1. 正文中的文字
2. 一張桌子
3. 底部的簽名。

下面是我編寫的代碼。 在我將Excel Table對象添加到郵件正文之前，它一直有效。 它提出了一條錯誤消息，指出：

運行時錯誤：錯誤類型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

Answer 1

MailItem.Body屬性需要一個字符串。 您正在嘗試連接一些字符串和一個Range對象。 您有責任從該表中提取相關數據並將其表示為字符串。

創建HTML表並設置MailItem.HTMLBody屬性可能會更好。