Insert Excel formatted range into Outlook message

Question

I am using Office 2007, and I would like to use VBA to insert a range of formatted Excel cells into an Outlook message, and then send the message. In the following code (which I took from different sources), it starts without errors, and then sends an empty message ... the insert does not work.

Can someone see the problem and better yet, help with the solution?

Thanks, -Steph

Sub SendMessage(SubjectText As String, Importance As OlImportance)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim iAddr As Integer, Col As Integer, SendLink As Boolean
'Dim Doc As Word.Document, wdRn As Word.Range
Dim Doc As Object, wdRn As Object

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

Set Doc = objOutlookMsg.GetInspector.WordEditor
'Set Doc = objOutlookMsg.ActiveInspector.WordEditor
Set wdRn = Doc.Range
wdRn.Paste

Set objOutlookRecip = objOutlookMsg.Recipients.Add("[e-mail]")
objOutlookRecip.Type = 1
objOutlookMsg.Subject = SubjectText
objOutlookMsg.Importance = Importance

With objOutlookMsg
    For Each objOutlookRecip In .Recipients
        objOutlookRecip.Resolve
        ' Set the Subject, Body, and Importance of the message.
        '.Subject = "Coverage Requests"
        'objDrafts.GetFromClipboard
    Next
    .Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

Answer 1

I think you need to call . Save to your mail item (objOutlookMsg) after you have made all the changes.

Answer 2

Put .Display before.Send,

, , , , , ...

, , , ...

Answer 3

excel , " " .

, , MailEnvelope VBA

.. , http://www.rondebruin.nl/mail/folder3/mail4.htm