在邮件正文中使用剪贴板的内容

Question

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

这是我失败的代码。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objWord
Dim wordPath
Dim currentDocument
Dim myRange
wordPath = "C:Usersuser.on.computerOneDrive_My Clients_Older ClientsASGTrip ReportsASG 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 = "[e-mail]"
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

我希望这是一个容易的解决办法，谢谢。

Answer 1

你可以这样做

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