none
Hola! - Envio de Mail - Vb.Net RRS feed

  • Pregunta

  • Tengo este código que encontré en una página pero no funciona sin que active el acceso de aplicaciones no seguro de Gmail.

    Imports System.Net.Mail
    'Imports System.Web.mail en teoría son los dos iguales (en teoria)
    Public Class Form1
    
        Dim message As New MailMessage
    
        Dim smtp As New SmtpClient
    
        Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    
    
            Try
                message.From = New MailAddress("zzz@gmail.com")
    
                message.To.Add("zzz@gmail.com")
    
                message.Body = "Se ha completado el asistente con éxito. "
    
                message.Subject = "Bienvenido"
    
                message.Priority = MailPriority.Normal
    
                smtp.EnableSsl = True
    
                smtp.Port = "587"
    
                smtp.Host = "smtp.gmail.com"
    
                smtp.UseDefaultCredentials = False
    
                smtp.Credentials = New Net.NetworkCredential("zzz@gmail.com", "contraseña")
    
                smtp.Send(message)
    
                MsgBox("listo!")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
    
        End Sub
    End Class

    Lo que hace el usuario es proporcionar el usuario y la contraseña, y mi programa (cuando sucede un evento) envía un mail con su cuenta a la misma, con un mensaje que este hecho en el código.

    Ésto activado da lugar a que la cuenta del usuario sea mas vulnerable, cosa que no creo que sea necesario que tenga que soportar el usuario, asi que, hay alguna otra forma de hacer lo mismo, sin activar esa opción?


    Saludos. Atentamente Pablo Fac. [VB.Net - Visual Studio 2015]


    sábado, 28 de mayo de 2016 22:10

Respuestas

Todas las respuestas