.NET でOutLookを操作する?(フォームのボタンを押すと送信を実行)

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim myOlApp As Object
Dim myItem As Object
Dim myRecipient As Object

Dim mm As String
Dim olMailItem As Object

myOlApp = CreateObject("Outlook.Application")
myItem = myOlApp.CreateItem(olMailItem)
mm = InputBox("アドレス？")

myRecipient = myItem.Recipients.Add(mm)

myItem.Send()

End Sub
End Class