Vb.net 在电子邮件正文中使用剪贴板的内容

在VB.Net中，我试图复制Word文档的全部内容，然后将剪贴板粘贴到电子邮件正文中。填充剪贴板很容易，但我不知道如何在电子邮件正文的内容中使用它

这是我失败的代码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim objWord
    Dim wordPath
    Dim currentDocument
    Dim myRange

    wordPath = "C:\Users\user.on.computer\OneDrive\_My Clients\_Older Clients\ASG\Trip Reports\ASG TOOLS 20170320 BAM3.docx"
    objWord = CreateObject("Word.Application")
    objWord.Documents.Open(wordPath, False, True)
    currentDocument = objWord.Documents(1)

    myRange = currentDocument.Range
    myRange.WholeStory
    myRange.Copy

    Dim objOutl, objMailItem, strEmailAddr
    objOutl = CreateObject("Outlook.Application")
    objMailItem = objOutl.CreateItem(0)


    Dim iData As IDataObject = Clipboard.GetDataObject()

    strEmailAddr = "me@somewhere.com"
    objMailItem.Recipients.Add(strEmailAddr)

    objMailItem.HTMLBody = iData.GetData("String")

    objMailItem.Subject = "Testing Process"
    objMailItem.Attachments.Add(wordPath)
    objMailItem.Save
    objMailItem = Nothing
    objOutl = Nothing
    objWord = Nothing
End Sub

---

我希望这是一个简单的解决办法，谢谢。

以下是您可以做到的方法

With objMailItem.GetInspector
    .WordEditor.Content.Paste
    .Close 0
End With

---

你犯了什么错误？就是这样，非常感谢