If you just want to create an e-mail, populate the To: field and message
body, and then send it, all you need to do is this:

Sub SendMessage()
   Dim objOL As Outlook.Application
   Dim objMessage As Outlook.MailItem

   Set objOL = New Outlook.Application
   Set objMessage = objOL.CreateItem(olMailItem)
   objMessage.To = "user@mail.com"
   objMessage.Subject = "My subject"
   objMessage.Body = "My body"
   objMessage.Send
   Set objMessage = Nothing
   Set objOL = Nothing
End Sub

Note that Outlook versions greater than 2000 or with the E-mail Security
Update will get prompted to send the message.  See
http://www.slipstick.com/outlook/esecup.htm#autosec for more info.