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 javii_27@hotmail.com (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

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

Publicado por Miguel (346 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

Enviar mail (VB.NET)

Publicado por Miguel (346 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 javii_27@hotmail.com (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

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

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