Microsoft Access 2007 VBA send mail via outlook 寄信

Reference:
http://msdn.microsoft.com/en-us/library/office/aa167323(v=office.11).aspx

Private Sub mail_out_Click()
    Set ola1 = CreateObject("Outlook.Application")
    Set mai1 = ola1.CreateItem(olMailItem)
    mai1.To = "user1@example.com"
    mai1.Subject = "example"
    mai1.HTMLBody = "<h1>mail body</h1>"
    'mai1.display
    mai1.send
End Sub