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.
Se que desde la 5.0 si se puede, pero desde la 4.0 no he encontrado nada.
Muchas gracias.
1 Respuesta
Respuesta de valedor
1
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
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
