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

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

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

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 回答日時： 2013/02/22 00:07

こちら（Office2010）で試した限りでは提示されたので問題無さそうですけどね。

OutLookを立ち上げていない状態でコードをコピペッタンして試しました。
Subjectが抜けているので、その確認メッセージが出たくらいです。

この回答へのお礼

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

お礼日時：2013/02/22 21:57