outlookでthunderbirdを抑え込む（access)

結局めんどくさいのでOutlook.Applicationを使用。
しかし、なぜかmicrosoftのデベロッパーページで紹介されていたコードではエラーが出て収まらなかったので、他のやり方を検索。
以下に落ち着いた。

Public Sub mail( _
    MessageTo As String, _
    Subject As String, _
    MessageBody As String)

Dim OlApp As Outlook.Application
Dim mItem As Outlook.MailItem

Set OlApp = New Outlook.Application
Set mItem = OlApp.CreateItem(olMailItem)
With mItem
.To = MessageTo
.Subject = Subject
.Body = MessageBody
.Display
End With
End Sub