Set objOutlook = CreateObject("Outlook.Application")

   Set objMail = objOutlook.CreateItem(0)

   objMail.Display   'To display message

   objMail.To = "user@domain.com"

   objMail.cc = ""

   objMail.Subject = "Subject"

   objMail.Body = "Text"

   ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")

   MsgBox ClipboardText

   'objMail.Attachments.Add("")   'Make sure attachment exists at given path. Then uncomment this line.

   'objMail.Send   'I intentionally commented this line

   Set objMail = Nothing

   Set objOutlook = Nothing