アクセスからアウトルックでメールを送りたい

質問

アクセスからアウトルックでメールを送るために調べたのですが
新しいメッセージを作ってメールを送信するところまではできたのですが
送信ボタンを押下しても、どうやらアウトルックが開いてないと送信できないことがわかりました。

アウトルックは常に立ち上げていません。
なので下記のコードに、アウトルックを立ち上げるコードを入れたのですが
わからないので教えていただけますか？

Sub メール送信()
Dim OlApp As Outlook.Application
Dim mItem As Outlook.MailItem

Set OlApp = New Outlook.Application
Set mItem = OlApp.CreateItem(olMailItem)
With mItem
.To = "○○@docomo.ne.jp"
.Body = "test"
.display
End With
End Sub

アウトルックのバージョンは２００７です。ご教授よろしくお願いします。

回答No.1

nicotinism · ベストアンサー

こちら（Office2010）で試した限りでは提示されたので問題無さそうですけどね。
OutLookを立ち上げていない状態でコードをコピペッタンして試しました。
Subjectが抜けているので、その確認メッセージが出たくらいです。

お礼

バージョンによるのですか。２０１０を入れてみます。ありがとうございました。大変参考になりました。