Visual Basic - Enviar Correo

Necesito el código para enviar correos electronicos

Revisa en http://my.execpc.com/~dg/tutorial/howmapi/howmapi.htm que tienes un pequeño tutorial.

para el correo tienes que insertar en la pantalla los iconos MAPISession y MAPMessages

MAPISession Nombre del objeto MAPIS
MAPIMessages Nombre del objeto MAPIM

Private Sub EnviarCorreo()

MAPIS.LogonUI = False
MAPIS.DownLoadMail = False
MAPIS.LogonUI = True
MAPIS.NewSession = True
MAPIS.SignOn
MAPIM.MsgIndex = -1
MAPIM.SessionID = MAPIS.SessionID
MAPIM.Compose
MAPIM.RecipAddress = "[email protected]"
MAPIM.MsgSubject = "XXXXXXXXXXXXXX"
MAPIM.MsgNoteText = "XXXXXXXXXXXXXXXXXXXXXxxx
MAPIM.Send False
MAPIS.SignOff

End Sub

Cuentame si te resulto, estare agradecido