Visual Basic.NET - Botón que al momento de darle click enviara un correo

 
Vista:

Botón que al momento de darle click enviara un correo

Publicado por Javier (14 intervenciones) el 28/11/2014 17:08:50
Buenos dias

Queria preguntar si alguien conocia para el programa visual basic 10, realizar un boton que al momento de darle click enviara un correo... A la cuenta de la persona que pusieron en un text box

Les agradeceria mucho su ayuda

Esperare aportaciones
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
sin imagen de perfil
Val: 863
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Botón que al momento de darle click enviara un correo

Publicado por Miguel (476 intervenciones) el 28/11/2014 21:57:22
Que tal, usa System.Net.Mail para eso...

Si quieres te puedo pasar la función para enviar mails, pero para enviar un correo te tienes "loguearte" con GMail, Hotmail o Yahoo...

Saludos
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
sin imagen de perfil
Val: 863
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Enviar mail (VB.NET)

Publicado por Miguel (476 intervenciones) el 28/11/2014 22:25:07
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub EnviarEmail(remitente As String, contraseña As String, destinatatio As String, asunto As String, cuerpo As String, Optional archivoAdjunto As String = Nothing )
     Try
            Me.Cursor= Cursors.WaitCursor
            Dim smtpServer As New SmtpClient()
            Dim mail As New MailMessage()
 
            smtpServer.Credentials = New Net.NetworkCredential(remitente, contraseña)
 
            If remitente.EndsWith("@gmail.com") = True Then
                smtpServer.Port = 587
                smtpServer.Host = "smtp.gmail.com"
            ElseIf remitente.EndsWith("@yahoo.es") = True Then
                smtpServer.Port = 465
                smtpServer.Host = "smtp.correo.yahoo.es"
            ElseIf remitente.EndsWith("@hotmail.com") = True Then
                smtpServer.Port = 465
                smtpServer.Host = "smtp.live.com"
            Else
                MessageBox.Show("Ingrese un remitente válido; debe ser desde una cuenta de Gmail (*@gmail.com), Hotmail (*@hotmail.com) o Yahoo (*@yahoo.es)", "Remitente Inválido",
 
MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
 
            smtpServer.EnableSsl = True
 
            mail = New MailMessage()
            mail.From = New MailAddress(remitente)
            mail.To.Add(destinatario)
            mail.Subject = asunto
            mail.Body = cuerpo
            mail.Priority = MailPriority.Normal
 
            If (archivoAdjunto= Nothing) = False  Then
                 Dim Adjunto As Attachment
                Adjunto = New Net.Mail.Attachment(archivoAdjunto)
                mail.Attachments.Add(Adjunto)
            End If
 
            smtpServer.Send(mail)
 
            Me.Cursor= Cursors. Default
            MsgBox("¡Correo satisfactoriamente enviado!", MsgBoxStyle.Information, "Correo")
        Catch ex As Exception
            Me.Cursor= Cursors.Default
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Error")
        End Try
 
End Sub


Solo adáptalo ...

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Enviar mail (VB.NET)

Publicado por Javier Luna (14 intervenciones) el 01/12/2014 18:12:39
Mcuhas gracias me srivo de gran ayuda

Tambien observe unos turoriales y al final lo logre...

Es muy parecida a la forma que me mandaste Miguel, muchas gracias
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 1.454
Plata
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Botón que al momento de darle click enviara un correo

Publicado por Wilfredo Patricio Castillo (660 intervenciones) el 28/11/2014 22:19:58
Simple, solo guiate de este ejemplo y usa este namespace
http://msdn.microsoft.com/es-es/library/system.net.mail.smtpclient(v=vs.110).aspx

Saludos cordiales
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