Visual Basic - Enviar mail desde VB

Life is soft - evento anual de software empresarial
 
Vista:

Enviar mail desde VB

Publicado por [Rodry] (1 intervención) el 28/01/2002 17:19:15
Necesito mandar un texto desde visual basic, sin usar el Outlook ni nada, sin que el usuario intervenga. Es para mandar los errores que de la aplicación y poder tener todo controlado.

Gracias a todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar mail desde VB

Publicado por eduardo (92 intervenciones) el 28/01/2002 22:44:11
aqui tienes un codigo que funciona

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, Optional ByVal nShowCmd As Long) As Long

Private Sub Picture1_Click()
ShellExecute hwnd, "open", "mailto:[email protected]", vbNullString, vbNullString ', SW_SHOW
End Sub

solo pon un picturebos y al hacer click envia un mail
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar mail desde VB

Publicado por Harold Valdivia (104 intervenciones) el 30/01/2002 02:45:35
'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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar