Post all the text from a word document into oulook?

[jscranton]

I am trying to create a quick macro that will send the contents of a word document in an outlook message (not as an attachment).

The issue is that I am trying to paste the word document in as an image since it contains check boxes and other content controls that won't paste as text (or Rich text).

    Dim EmailItem As Object
    Dim wdApp As Word.Application
    Dim myDoc As Word.Document
    Dim recepient As String
    Dim ccRecepients As String
    Dim subject As String

    myDoc.Select
    Selection.WholeStory
    Selection.Copy
    
    
    
    With EmailItem
        .subject = subject
        .To = recepient 
        .cc = ccRecepients
        .Importance = olImportanceNormal
        .BodyFormat = olFormatRichText
        [B].Body = Selection.PasteSpecial[/B] 'This is where I am stuck
        .Display
    End With

 

[strive4peace]

Outlook doesn't have PasteSpecial ... what about attaching the doc ?

   With EmailItem
       .Attachments.Add "YOUR FILE PATH AND NAME"
   end with