Pasting Excel data into outlook message body

[jille]

Hi,

I'm creating an outlook message from Word to automatically send some data
created in Excel that I've put in the clipboard. All I want to do is have
Outlook paste the contents of the clipboard into the body of the message.
What is the code to
paste?

Here's the code so far but I can't figure out how to paste:

Dim appOutlook As Outlook.Application
Dim OutlookMessage As Outlook.MailItem

Set appOutlook = CreateObject("Outlook.application")
Set OutlookMessage = appOutlook.CreateItem(olMailItem)
With OutlookMessage
.Subject = vEffectiveDate
.Body = appOutlook.Paste
.To = "(e-mail address removed)"
.Display
.Send
End With

Thanks!