Spanish Problema con SMTP

Angel López Barquero

New Member
Licensed User
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="[email protected]"
Dim password As String : password="xxxxxx"
Dim protocol As String : protocol="SMTP"
Dim destEmailAdress As String : destEmailAdress="[email protected]"
'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

Active Member
Licensed User
Longtime User
Hola

Chequea El sub
B4X:
SMTP1_MessageSent(Success As Boolean)

algo asi...

B4X:
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
B4X:
LastException.Message
Te dirá que tipo de error es :)
 
Top