Spanish Problema con SMTP

[Angel López Barquero]

Hola amigos.
Me ocurre que utilizo un código para enviar correo que me funciona a la perfección en algunos móviles pero en otros no. Me estoy rompiendo la cabeza pensando que puede ser y no lo consigo. Por favor si alguien me puede ayudar lo agradecería.

Sub SendEmail (mail As String)
Dim SMTP1 As SMTP
Dim server As String : server= "smtp.gmail.com"
Dim port As Int : port= 465
Dim emailname As String : emailname="xxxxxx@gmail.com"
Dim password As String : password="xxxxxx"
Dim protocol As String : protocol="SMTP"
Dim destEmailAdress As String : destEmailAdress="xxxxxxxxxxxxx@gmail.com"
'Crear
SMTP1.Initialize(server, port, emailname, password, protocol)
SMTP1.UseSSL = True
' Enviar
SMTP1.To.Add (mail)
SMTP1.Subject = "El titulo del email"
SMTP1.Body = "El texto del cuerpo"
'''SMTP1.AddAttachment(File.DirInternal, "archivo.pdf")
SMTP1.Send
Msgbox ("Enviado","")
End Sub

 

[Dadaista]

Hola

Chequea El sub

SMTP1_MessageSent(Success As Boolean)

algo asi...

Sub SMTP1_MessageSent(Success As Boolean)
    If Success Then
        ToastMessageShow("Mensaje Enviado", True)
    Else
        ToastMessageShow("Error Enviando Mensaje", True)
        MsgboxAsync(LastException.Message,"")
    End If
End Sub

En

LastException.Message

Te dirá que tipo de error es

 

[Angel López Barquero]

Este es el error que me da:
android.system.ErrnoException:connect failed: ENETUNREACH (Network is unreachable)

Gracias por prestarme atención.

 

[Angel López Barquero]

Solucionado.
He cambiado a otra cuenta de mail privada sin SSL y funciona.
Muchas gracias.