Clipboard to Email

EMAILING **************************************************************************

Dim clipboard As MSForms.DataObject

Dim strContents As String

Set clipboard = New MSForms.DataObject

clipboard.GetFromClipboard

strContents = clipboard.GetText

'This will create the email

Dim objDoc As Object, wdRn As Object

Dim objItem As Object

Set myApp = CreateObject("Outlook.Application")

Set myEmail = myApp.CreateItem(olMailItem)

myEmail.To = "name@company.com"

myEmail.Subject = "TITLE"

myEmail.Display

Set objItem = myEmail ' Application.ActiveInspector.currentItem

Set objDoc = objItem.GetInspector.WordEditor

Set wdRn = objDoc.Range

wdRn.Paste

Set objItem = Nothing

Set myOutlookApp = Nothing