Hola

Intento enviar un correo desde Gambas a través de Gmail pero aunque me dice que funciona justo en Send() me dice algo como que no tengo permisos y es lo que me manda Gmail a mi correo, que una aplicación de tercero ha sido bloqueada por intentar usar el usuario y contraseña para enviar a través de Gmail.

Alguien me dice como puedo corregirlo?

Gracias.

Este es mi código: Uso gb.Net.Smtp

Código:

Dim SmtpClient1 As New SmtpClient
   SmtpClient1.Host = "smtp.googlemail.com"
   SmtpClient1.User = "user"
   SmtpClient1.Password = "password"
  
   SmtpClient1.Encrypt = Net.SSL
   SmtpClient1.Port = 465
  
   SmtpClient1.From = "user@gmail.com"
   SmtpClient1.to.Add("user@gmail.com")
  
   SmtpClient1.Subject = "Pruebas"
   SmtpClient1.Add("Hola mundo")
  
   SmtpClient1.Send()

Es una opción de tu cuenta de Gmail. Algo así como "Abrir conexiones inseguras", no recuerdo. Lo cambias y te funciona.