document.selection.SelectAll 
document.selection.Format eeFormatInsertNL 
Set objOutlook = CreateObject("Outlook.Application") 
Set objOutlookMsg = objOutlook.CreateItem(olMailItem) 
With objOutlookMsg 
    .Subject = "Email message from EmEditor" 
    .Body = document.selection.Text 
    .Display 
End With 
Set objOutlook = Nothing 
document.Undo