'Lee todo antes de tomar decisiones erroeas
'para utilizar este codigo debes hacer referencia
'Microsoft Outloock en el menu Proyecto de VB busca
'"Referencias", click, busca Microsoft Outloock 9.0
'marcalo y luego aceptar... ejecuta el codigo de ejemplo
Private Sub cmdEnviar_Click()
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = "
[email protected]"
.Subject = "Mensaje de error"
'aqui enviaras como cuerpo lo que hay en el text1
.Body = Text1.Text
End With
'myOLItem.Display muestra el formulario con los datos a mandar
'para esto debes deshabilitar la ultima linea myOLItem.send
'de lo contrario si dejas las 2 lineas el programa abrira
'el formulario de outloock y enviara los datos automaticamente y
'no se cerrara el formulario de ouloock hasta que tu lo hagas manualmente
'en el icono de cerrar.
myOLItem.Display
'Si deseas enviar el e-mail sin ver el formulario
'donde se escriben los datos solamente deshabilita
'myolitem.Display, escribe esto myolitem.Send
'los datos se enviaran automaticamente
'myOLItem.Send
'Si tienes internet mandate un mensaje a tu correo y veras como funciona
'Espero que te haya podido ayudar.
' Harold Valdiva :
[email protected]
End Sub