Попробуйте другой формат данных, который может сохранять таблицы: "rich-text (*.rtf)", "HTML (*.html)"
Выгрузите данные в html файл, а его можно отправить через Outlook, т.к. эта программа позволяет отcылать письма в html формате. Вот пример
1. Пример. Sub CreateHTMLMail() Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Set olApp = Outlook.Application Set objMail = olApp.CreateItem(olMailItem) With objMail ' Установить формат HTML .BodyFormat = olFormatHTML .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>" .Display End With End Sub
2. Пример http://www.leadersoft.ru/Rus/help/code/Default.aspx?go=product&ProductID=11860
1. Пример.Sub CreateHTMLMail() Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Set olApp = Outlook.Application Set objMail = olApp.CreateItem(olMailItem) With objMail ' Установить формат HTML .BodyFormat = olFormatHTML .HTMLBody = "