エクセルからアウトルックへ移行について

エクセルでコマンドボタンを使いアウトルックに移行するPRGがあります。
最近、PCをXPからVistaに乗り換えたところmycontent.sendのところで
デバックエラー(実行時エラー"287")が出て動きません。
（XPでは動作します）
（エクセル2002で作成した物をエクセル2007で動かそうとしています）
どういった解決策があるでしょうか？
皆様、よろしくお願い致します。

Sub Eメール送信()
'Outlook上にデータ書込み
msg = "MSG="
msg = msg & Cells(2, 2)
Range("B2") = msg
Set myoutlook = CreateObject("Outlook.Application")
Set myNameSpace = myoutlook.GetNamespace("MAPI")
Set mycontent = myoutlook.Createitem(0)
mycontent.To = Range("B1").Value '宛先アドレス
mycontent.Body = Range("B2").Value '本文
mycontent.Send 'メール送信
Set mycontent = Nothing
Set myNameSpace = Nothing
Set myoutlook = Nothing
Range("B2").Select
ans = MsgBox("MSGは正しくOutlookへ移行しました。「to Outlook」をクリックして送受信の操作を行って下さい。", 0 + 64, "注意")
Selection.ClearContents
End Sub

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2008/03/27 21:33

http://www2.moug.net/bbs/exvba/20080327000007.htm
同じ人なのかもしれないけれど、同じ事で悩んでいる別な人かもしれないので参考までに。

この回答への補足

temtecomai2様　回答ありがとうございます。
URLを参考にして、sendmailにしてみましたが
「オブジェクトはこのプロパティ、またはメソッドをサポートしていません」と表示されてしまいます。

補足日時：2008/03/28 10:42