Sample code here was furnished by Ann S. (form Newton VB Programmer) way back 1999 and as follows:

Simple send routine 

Private sub command_click()

  Mapisession1.downloadmail = False

  mapisession1.signon

  mapimessages1.sessionid = mapisession1.sessionid

  mapimessages1.msgindex = -1

  mapimessages1.compose

  mapimessages1.send = true

  mapisession1.signoff

End Sub

Simple Get Mail routine 

Private Sub Recur_click()

  mapisession1.downmail = true

  mapisession1.signon

  mapimessages1.sessionid = mapisession1.id

  mapimessages1.fetch

  mapimessages1.msgindex = 0

  text1 = mapimessages1.msgnoteText

  mapisession1.signoff

End Sub