Hola Daniel Morales,
¡Bienvenido(a) a Microsoft Q&A!
Por favor ten en cuenta que nosotros no soportamos código, sin embargo, esto puede deberse a cambios en las políticas de seguridad de los proveedores de correo, como Gmail, que han dejado de permitir el acceso a aplicaciones menos seguras.
Aquí hay algunos pasos y cambios que podrías considerar para actualizar tu código:
- Usar OAuth 2.0
- Muchos proveedores de correo, como Gmail, ahora requieren OAuth 2.0 para la autenticación. Esto implica registrar tu aplicación y obtener un token de acceso en lugar de usar solo el nombre de usuario y la contraseña.
- Actualizar el Código de Envío de Correos
- Asegúrate de que tu código esté configurado para usar SSL/TLS. Aquí tienes un ejemplo básico de cómo debería verse tu código:
Imports System.Net
Imports System.Net.Mail
Module Correo
Sub EnviarCorreo()
Dim correo As New MailMessage()
correo.From = New MailAddress("tu_email@gmail.com")
correo.To.Add("destinatario@example.com")
correo.Subject = "Asunto"
correo.Body = "Cuerpo del mensaje"
correo.IsBodyHtml = True
Dim cliente As New SmtpClient("smtp.gmail.com", 587)
cliente.Credentials = New NetworkCredential("tu_email@gmail.com", "tu_contraseña")
cliente.EnableSsl = True
Try
cliente.Send(correo)
MsgBox("Correo enviado correctamente.")
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try
End Sub
End Module
- Configuraciones del Servidor SMTP
- Verifica que estás utilizando el servidor SMTP correcto y el puerto adecuado. Para Gmail, generalmente es
smtp.gmail.com
con el puerto587
para TLS.
- Permitir Aplicaciones Menos Seguras
- Si aún no has migrado a OAuth, puedes intentar habilitar el acceso a aplicaciones menos seguras en la configuración de tu cuenta de Google, aunque esto no es recomendable por razones de seguridad.
- Revisar Errores Comunes
- Te recomiendo verificar que no haya errores tipográficos en las credenciales y que la cuenta de correo no tenga restricciones adicionales.
Espero que información brindada fuera útil. Si necesitas más asistencia, estoy a tu disposición.
Atentamente,
Gao
Si esta respuesta resolvió tu consulta, por favor haz clic en 'Aceptar respuesta'. Esto nos ayuda a mejorar continuamente la calidad y relevancia de nuestras soluciones.