hola, busque en el mismo foro esta pregunta y claro habia codigo disponible.
trate de correr este script pero cuando se ejecuta el "MAPIMessages1.Send False" me da un error 32019 diciendo "la sesion no es valida".
Sabes ustedes a que se debe, desde ya mil gracias.
Private Sub EnviarEmail()
MAPISession1.SignOn
MAPIMessages1.SessionID = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Correo 'lo puedes hacer con un textbox, listbox, etc ;
MAPIMessages1.MsgSubject = Asunto
MAPIMessages1.MsgNoteText = Mensaje
MAPIMessages1.MsgReceiptRequested = True
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub