Prueba poniendo este codigo:
Private Sub Enviar_Click()
EnviarEmail
End Sub
Private Sub EnviarEmail()
MAPISession1.SignOn
MAPIMessages1.SessionID = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Correo
MAPIMessages1.MsgSubject = Asunto
MAPIMessages1.MsgNoteText = Mensaje
MAPIMessages1.MsgReceiptRequested = True
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub
Tienes que utilizar el control MAPIMessages...Pruebalo y me dices que tal...