Отправить таблицу по почте

[agregator]

Здравствуйте уважаемые программисты. Хочу отправить таблицу по эл. почте. При нажатии на кнопку ОТПРАВКА во вложении выполняется

Private Sub CommandButton1_Click()
ActiveDocument.Tables(1).Range.Copy
ActiveDocument.FollowHyperlink Address:="mailto:oplata@vdk.ru?subject=Показания%20водосчетчиков", NewWindow:=False, AddHistory:=True
'    Windows("Показания водосчетчиков - Сообщение").Activate
'    Selection.PasteAndFormat (wdPasteDefault)   
End Sub

Появляется окошко "Показания водосчетчиков - Сообщение" Microsoft Office WordMail и в буфере обмена скопирована таблица. Напишите пожалуйста как вставить таблицу в сообщение и отправить по почте. (Word 2003, Windows 7)

[agregator]

Как то коряво получилось вставить таблицу в сообщение

 Private Sub CommandButton1_Click()
ActiveDocument.Tables(1).Range.Copy
ActiveDocument.FollowHyperlink Address:="mailto:oplata@vdk.ru?subject=Показания%20водосчетчиков", NewWindow:=False, AddHistory:=True
    ActiveWindow.EnvelopeVisible = Not ActiveWindow.EnvelopeVisible
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

Напишите пожалуйста код, чтобы отправить сообщение

[agregator]

Напишите пожалуйста как активировать окно "Показания водосчетчиков - Сообщение".

[agregator]

После этого

Private Sub CommandButton1_Click()
ActiveDocument.Tables(1).Range.Copy
ActiveDocument.FollowHyperlink Address:="mailto:oplata@vdk.ru?subject=Показания%20водосчетчиков", NewWindow:=False, AddHistory:=True
    ActiveWindow.EnvelopeVisible = Not ActiveWindow.EnvelopeVisible
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

Получается вот это сообщение. Подскажите пожалуйста код, чтобы его отправить.