Here is a quick and dirty demo.
VB Code:
  1. Option Explicit

  2. 'Add a reference to MS Outlook xx.0 Object Library

  3. Private moApp As Outlook.Application

  4.  
  5. Private Sub Command1_Click()

  6.     Dim oEmail As Outlook.MailItem

  7.     Dim strBody As String

  8.     

  9.     Set oEmail = moApp.CreateItem(olMailItem)

  10.     strBody = "<HTML><HEADER><TITLE>RobDog888 HTML Email DEMO</TITLE></HEAD>"

  11.     strBody = strBody & "<BODY bgcolor='green'>Testing</BODY></HTML>"

  12.     With oEmail

  13.         .BodyFormat = olFormatHTML

  14.         .HTMLBody = strBody

  15.         .Subject = "RobDog888 HTML DEMO"

  16.         .Save 'Saves it to the Drafts folder

  17.         .Display

  18.     End With

  19. End Sub

  20.  
  21. Private Sub Form_Load()

  22.     Set moApp = New Outlook.Application

  23. End Sub

  24.  
  25. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  26.     moApp.Quit

  27.     Set moApp = Nothing

  28. End Sub