Comunidad Gambas-es

Versión completa: Ayuda para enviar correo electrónico (e-mail) con Gmail y Gambas
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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.