jose emanuel peruzzo
Member
Hola a todos, estoy usando este metodo para enviar correo electronicosn por una aplicacion B4A, pero ya no funciona mas
alguien sabe como reemplazar este codigo?
------------------------------------------------------------------------------------------------------------------------
La información sobre SMTP la podemos encontrar en la Guía oficial:
https://www.b4x.com/android/help/net.html#smtp
- Es necesario entrar en gmail y abrirse una cuenta gratuita.
- Gmail utiliza el puerto 465 para la comunicación por correo SMTP.
- Para que funcione es necesario la librería: Net library - Android FTP, SMTP and POP3
La librería la componen un par de archivos: Net.jar y Net.xml que se guardan en la carpeta:
C\Archivos de programa (x86)\Anywhere Software\Basic4Android\Libraries
Dim SMTP As SMTP
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SMTP.Initialize("smtp.gmail.com", 465, "micorreodegmail@gmail.com", "micontraseñadegmail", "SMTP")
SMTP.UseSSL = True 'Gmail requires SSL.
End If
SMTP.To.Add("aquienleenvioelcorreo@loquesea.com")
SMTP.Subject = "Aquí pondremos el asunto"
SMTP.Body = "Aquí pondremos el cuerpo del mensaje"
' Si queremos adjuntar un archivo
' SMTP.AddAttachment(File.DirRootExternal, "somefile")
SMTP.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
Log(Success)
If Success Then
ToastMessageShow("El mensaje se envío correctamente", True)
Else
ToastMessageShow("Error en el envío del mensaje", True)
Log(LastException.Message)
End If
End Sub
---------------------------------------------------------------------------------------------------------------------
alguien sabe como reemplazar este codigo?
------------------------------------------------------------------------------------------------------------------------
La información sobre SMTP la podemos encontrar en la Guía oficial:
https://www.b4x.com/android/help/net.html#smtp
- Es necesario entrar en gmail y abrirse una cuenta gratuita.
- Gmail utiliza el puerto 465 para la comunicación por correo SMTP.
- Para que funcione es necesario la librería: Net library - Android FTP, SMTP and POP3
La librería la componen un par de archivos: Net.jar y Net.xml que se guardan en la carpeta:
C\Archivos de programa (x86)\Anywhere Software\Basic4Android\Libraries
Dim SMTP As SMTP
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SMTP.Initialize("smtp.gmail.com", 465, "micorreodegmail@gmail.com", "micontraseñadegmail", "SMTP")
SMTP.UseSSL = True 'Gmail requires SSL.
End If
SMTP.To.Add("aquienleenvioelcorreo@loquesea.com")
SMTP.Subject = "Aquí pondremos el asunto"
SMTP.Body = "Aquí pondremos el cuerpo del mensaje"
' Si queremos adjuntar un archivo
' SMTP.AddAttachment(File.DirRootExternal, "somefile")
SMTP.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
Log(Success)
If Success Then
ToastMessageShow("El mensaje se envío correctamente", True)
Else
ToastMessageShow("Error en el envío del mensaje", True)
Log(LastException.Message)
End If
End Sub
---------------------------------------------------------------------------------------------------------------------