Visual Basic - Permitir al usuario enviar un e-mail

Saludos. Quisiese saber cómo, en VB 6, puedo permitir al usuario enviar un e-mail. Es decir, que si existe algún método, módulo o cualquier "cosa" que me permita enviar un e-mail. Gracias.

Muy buenas, te adjunto una dirección de internet que espero te sirva.

http://www.macroheavy.com/vb/leccion37/leccion37.htm

Saludos Pola

Muchas gracias, pero aún no puedo probar lo que me has enviado. Mañana te contestaré. Adiós.

Primero tenés que crear un control MAPI Session y un control MAPI Messages.

Con el control MAPI Session iniciás una sesión de mensajería (MAPI) especificando un nombre de usuario y una contraseña registrados. El control es el encargado de conectarse con el servidor de correo del sistema.

Una vez que se inicia la sesión deben enlazarse las propiedades SessionID de los dos controles y entonces el control MAPI Messages está listo para ser usado.

Para mandar un correo hay que establecer las propiedades RecipDisplayName (nombre del destinatario), RecipAddress (dirección de correo en cuestión), MsgSubject (opcional, asunto del mensaje) y MsgNoteText (texto del mensaje). También se puede adjuntar un archivo en la propiedad AttachmentPathName.

Ej:

Private Sub cmdEnviarCorreo_Click()
With MAPISession1
.UserName = "MiNombreDeUsuario"
.Password = "MiContaseña"
.SignOn

With MAPIMessages1
.SessionID = MAPISession1.SessionID

.RecipDisplayName = "Stump Kops"
.RecipAddress = "[email protected]"

.MsgSubject = "Estoy probando el correo"
.MsgNoteText = "TextoDelMensaje"

.AttachmentPathName = "C:\MiDocumento.doc"

'Manda el correro sin interacción del usuario
'
.Send False
End With

.SignOf
End With
End Sub

Espero que te halla ayudado. Suerte.