Correos desde Visual basic 4.0

Hola ¿tu sabriás dedcirme como enviar un correo desde una aplicación en V-Basic 4.0?
Se que desde la 5.0 si se puede, pero desde la 4.0 no he encontrado nada.
Muchas gracias.
1

1 Respuesta

200.775 pts.
Estuve haciendo algunas pruebas y esta me funciono, pero tienes que tener instalado el Microsoft Outlook y debe estar bien configurado, llama a este procedimiento desde un botón de comando, saludos...
Public Sub EnviarCorreo()
Dim myOlApp As Object
Dim myItem As Object 'Outlook.MailItem
Const olMailItem As Integer = 0
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject = "Prueba de mensaje"
myItem.Body = "Ejemplo de envio de correo"
myItem.To = "[email protected]"
myItem.Send
'Si quieres mostrar el mensaje
'myItem.Display
Set myItem = Nothing
Set myOlApp = Nothing
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas