Paste cells from Excel into message body



How do I paste cells from Excel into a custom message form? I do not
want to send an attachment.

I have everthing else worked out.

I would like to copy certain cells in Excel then paste into the body
after vSect1 and send the e-mail.

I have copied this from the macro recorder in Outlook but do not know
what to do with it if anything.

Selection.PasteExcelTable False, False, False

Here is the code I do have:

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myOutBox = myNameSpace.GetDefaultFolder(olFolderOutbox)

With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(strName)
objOutlookRecip.Type = olTo
.Subject = "Test Sub"
.Body = vSect1 & vbCrLf & vSect2
.Move myOutBox
End With

Michael Bauer

Am 28 Mar 2006 11:49:56 -0800 schrieb goshute:

With the Outlook Object Model you can´t set the focus on the body window and
you can´t determine the cursor position.

The Redemption gives you all these possibilities. You can get it from

Another workaround could be to write all the e-mail in Word. Save the
document then as HTML file, read the file content and write it into the
e-mails HTMLBody property.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question