Insert a Formatted Excel Table into an Email

A sample for how to paste a table from Excel and retaining its formattings.

Last modified: 2007/01/29 | Accessed: 107.531 | #41
◀ Previous sample Next sample ▶

	Category-Manager
	With Category-Manager you can group your Outlook categories, share them with other users, filter a folder by category, automatically categorize new emails, and more. You can use the Addin even for IMAP.

By using Word as e-mail editor you get access to Word's powerful object model even for e-mails. With that it's possible to insert a formatted Excel table into an Html e-mail.

This sample assumes that the e-mail and workbook are already opened and copies the range from B2 to C6 into the e-mail - inclusive all its formattings.

Via Tools/References, please add the Word and Excel libraries to your Outlook VBA project.

How to add macros to Outlook

Sub PasteFormattedTable()
  Dim Doc As Word.Document
  Dim wdRn As Word.Range
  Dim Xl As Excel.Application
  Dim Ws As Excel.Worksheet
  Dim xlRn As Excel.Range

  Set Doc = Application.ActiveInspector.WordEditor
  Set wdRn = Doc.Range

  Set Xl = GetObject(, "Excel.Application")
  Set Ws = Xl.Workbooks("Mappe1.xls").Worksheets(1)

  Set xlRn = Ws.Range("b2", "c6")
  xlRn.Copy

  wdRn.Paste
End Sub

	OLKeeper
	OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.

Send a message

◀ Previous sample ▲ Top Next sample ▶

All names, products and pictures are under the copyright of the respective producers.

Microsoft and the Office logo are trademarks or registered trademarks

of Microsoft Corporation in the United States and/or other countries.