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