Отправка письма из VBA

[wonderxand]

Доброго времени суток!
Как в vba, при нажатии на кнопку X на листе, сделать так, чтобы таблица перемещалась в ворд, а из ворда можно было отправить по почте, outlook к примеру, без нажатий на дополнительные кнопки в ворде.
Надеюсь понятно изъяснил)

Код:
Sub Кнопка1_Щелчок()
Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Add
objWrdApp.Visible = True
End If
Range("A1:G100").Copy
objWrdDoc.Range(0).Paste
objWrdDoc.Close True
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
End Sub

[Aleksandr H.]

https://msdn.microsoft.com/en-us/lib...ffice.11).aspx
http://www.thespreadsheetguru.com/bl...hrough-outlook