ワードのマクロで「メール送付」を組みたいです

ワード上でコマンドボタンをつくり、そこに
「このファイルを添付してメールを送る」という意味をこめて以下のような記述をしました。

Private Sub CommandButton2_Click()
Dim strAddress As String
strAddress = "●●@●●●.com"
ActiveWorkbook.SendMail Recipients:=strAddress
End Sub

しかし、「オブジェクトが必要です」というエラーが出てしまいます。
エクセルではこれで問題なかったのですが、どうしたら正しい記述になりますでしょうか。
ご教示よろしくお願いします。

No.2 回答者： yyr446 回答日時： 2008/12/09 16:46

エラーの克服方法はWORDのVBAヘルプで関連項目を

調べる事です。教えて!Gooより詳細があります。

Private Sub CommandButton2_Click()
Dim strAddress As String
Options.SendMailAttach = True
strAddress = "●●@●●●.com"
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Status Document"
.AddRecipient Recipient:=strAddress
End With
ActiveDocument.SendMail
End Sub

No.1 回答者： hana-hana3 回答日時： 2008/12/09 13:49

＞ActiveWorkbook.SendMail Recipients:=strAddress

Workbookはエクセルのブックですから、wordなら、
ActiveDocument.SendMail Recipients:=strAddress
ではないでしょうか？

この回答への補足

早速のご回答ありがとうございます。
試してみたところ
「コンパイルエラー：引数の数が一致していません。または不正なプロパティを指定しています」
と出てしまいます。
申し訳ありませんが、このエラーの克服方法を教えてください。
よろしくお願いします。

補足日時：2008/12/09 14:15