Microsoft Exchange - Correo a través de VB

Tengo un programa en VB y quiero mandar correo a través de él por medio de MAPI; ¿Qué tengo que configurar para poder enviar correctamente dicho correo?

Debes utilizar dos objetos:
-mapimessages
-mapisession

ahi va un ejempo

If MsgSesion.NewSession Then ---verifica que este activa una session de correo---
MsgRec.SessionID = MsgSesion.SessionID
MsgRec.Compose --indica que comenzaras a construir un correo--
MsgRec.MsgSubject = Lbl_rclnumero.Caption
MsgRec.MsgNoteText = "Reclamo de:" & " " & txt_cli.Text & " " & Txt_DescActiv.Text
MsgRec.RecipDisplayName = vl_mail---a quien envias el correo--
MsgRec.Send False ---no abre la sesion de correo para enviar es decir no abre la pantalla de mensaje..----
--idem a lo anterior pero si no encuentra una sesion de correo abierta la abre----
Else
With MsgSesion
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
End With
MsgRec.SessionID = MsgSesion.SessionID
MsgRec.Compose
MsgRec.MsgSubject = Lbl_rclnumero.Caption
MsgRec.MsgNoteText = "Reclamo de:" & " " & txt_cli.Text & " " & vbCr & Txt_DescActiv.Text
MsgRec.RecipDisplayName = vl_mail
MsgRec.Send False
End If
End If

asdasdasdasdasdasd