Spanish Envio de Email

desof

desof

Well-Known Member
Licensed User
Longtime User
Hola he estado mirando algunos ejemplos para enviar email como este :

B4X: 
Sub EnviaMail(texto As String )
Dim m As Email
Dim p As PhoneIntents

    m.To.Add(mail.Text)   'email address
    m.Subject="contacto@XXXXX.com.ar"
    m.Body="Gracias por su donación haga clic en el siguiente enlace >>" & texto & " << " & DateTime.Date(DateTime.Now) 
    'm.Attachments.Add(File.Combine(File.DirInternal,  "info.zip"))
    StartActivity(m.GetIntent)

End Sub

tampoco asi!!!

B4X: 
Sub EnviaMail(texto As String )
Dim oSMTP As SMTP
oSMTP.Initialize("smtp.gmail.com", 465, "miguel*****@gmail.com", "******", "SMTP")
oSMTP.UseSSL = True 
oSMTP.To.Add(mail.Text)
oSMTP.Subject = "Donación"
oSMTP.Body = texto
oSMTP.Send
End Sub

PERO NO ME FUNCIONA! NUNCA ME LLEGA EL EMAIL!!!

QUE ESTOY HACIENDO MAL?
 
Last edited:
vampirbcn

vampirbcn

Active Member
Licensed User
Longtime User
Hola desoft, he enviado cientos de emails con este código:

B4X: 
   Dim SMTP1 As SMTP
   Dim server As String      : server= "smtp.gmail.com"
   Dim port As Int           : port= 465
   Dim emailname As String   : emailname="lacuenta@gmail.com"
   Dim password As String    : password="elpassword"
   Dim protocol As String    : protocol="SMTP"
   Dim destEmailAdress As String : destEmailAdress="destin@gmail.com"
   'Crear
   SMTP1.Initialize(server, port, emailname, password, protocol)
   SMTP1.UseSSL = True
   ' Enviar
   SMTP1.To.Add (destEmailAdress)
   SMTP1.Subject = "El titulo del email"
   SMTP1.Body = "El texto del cuerpo"
   SMTP1.AddAttachment(File.DirInternal, "archivo.pdf")
   SMTP1.Send

Y la verdad no veo donde puede estar la diferencia!!!!
 
desof

desof

Well-Known Member
Licensed User
Longtime User
vampirbcn said:
Hola desoft, he enviado cientos de emails con este código:

B4X: 
   Dim SMTP1 As SMTP
   Dim server As String      : server= "smtp.gmail.com"
   Dim port As Int           : port= 465
   Dim emailname As String   : emailname="lacuenta@gmail.com"
   Dim password As String    : password="elpassword"
   Dim protocol As String    : protocol="SMTP"
   Dim destEmailAdress As String : destEmailAdress="destin@gmail.com"
   'Crear
   SMTP1.Initialize(server, port, emailname, password, protocol)
   SMTP1.UseSSL = True
   ' Enviar
   SMTP1.To.Add (destEmailAdress)
   SMTP1.Subject = "El titulo del email"
   SMTP1.Body = "El texto del cuerpo"
   SMTP1.AddAttachment(File.DirInternal, "archivo.pdf")
   SMTP1.Send

Y la verdad no veo donde puede estar la diferencia!!!!
Click to expand...


NO TENGO IDEA MAÑANA PRUEBO ESTE Y POSTEO QUE PASO NO VEO LA DIFENCIA TAMPOCO.
AHORA SE ME OCURRE PROVAR CON OTRA CUENTA DE GMAIL POR QUE CON LA QUE PROVE TIENE ASIGNADA SEGURIDAD EN DOS PASOS Y TAL VEZ ESO HACE ALGUN BLOQUEO O ALGO ASI..
 
B

benji

Active Member
Licensed User
Longtime User
desof said:
NO TENGO IDEA MAÑANA PRUEBO ESTE Y POSTEO QUE PASO NO VEO LA DIFENCIA TAMPOCO.
AHORA SE ME OCURRE PROVAR CON OTRA CUENTA DE GMAIL POR QUE CON LA QUE PROVE TIENE ASIGNADA SEGURIDAD EN DOS PASOS Y TAL VEZ ESO HACE ALGUN BLOQUEO O ALGO ASI..
Click to expand...

Pensando en esto, en un dispositivo que no plan de datos, y solo se conecte con WIFI, como verificas que este conectado a la wifi para poder enviar correos? o quedaran en "bandeja de salida" a la espera de conectarse?

Saludos.
 
desof

desof

Well-Known Member
Licensed User
Longtime User
no la verdad no hago ninguna verificacion! pero en mi equipo que lo estoy probando tengo acceso total o sea un plan que ilimitado que no necesita wifi para el envio de correos y no me funciona!
 
B

benji

Active Member
Licensed User
Longtime User
desof said:
no la verdad no hago ninguna verificacion! pero en mi equipo que lo estoy probando tengo acceso total o sea un plan que ilimitado que no necesita wifi para el envio de correos y no me funciona!
Click to expand...

lo voy a implementar y te cuento, estas trabajando con la cuenta gmail o con otra propia, tipo "midominio.com"?
 
B

benji

Active Member
Licensed User
Longtime User
PHP: 
    SMTP.Initialize("smtp.gmail.com", 465, "****@gmail.com", "***",     "SMTP")
    SMTP.UseSSL = True 'Gmail requires SSL.
    SMTP.To.Add("***@hotmail.com")
    SMTP.Subject = "Prueba Contimar"
    SMTP.Body = "Probando conexion mail cierre"
    'SMTP.AddAttachment(File.DirRootExternal, "somefile")
    SMTP.Send

Acabo de usar este codigo y funciona sin problemas, por eso te preguntaba si estas probando con gmail o un correo propio, hace un par de meses tuve un problema con el envio de correo, pero era con un correo de dominio propio
 
vampirbcn

vampirbcn

Active Member
Licensed User
Longtime User
El código que os he dejado en el anterior post, funciona correctamente en cuentas gmail, o en cuentas de un dominio propio, lo único necesario es verificar el puerto que se está utilizando.

Los únicos problemas que me ha dado algun servidor es la identificación del correo como SPAM, pero siempre llegan.

Com dice benji, es importante antes del envio de correo, la comprovación de que tengas conexión con internet!!

Saludos
 
desof

desof

Well-Known Member
Licensed User
Longtime User
benji said:
lo voy a implementar y te cuento, estas trabajando con la cuenta gmail o con otra propia, tipo "midominio.com"?
Click to expand...

HOLA lo estoy implementando en una cuenta de gmail tal como se ve en el code!!
 
B

benji

Active Member
Licensed User
Longtime User
esta raro entonces, no veo errores en el codigo que posteaste, ademas es muy similar al que use en la prueba que hice...

probaste un msgbox(mail.Text) antes de

oSMTP.To.Add(mail.Text) esta linea, para saber donde esta mandando el correo?
 
desof

desof

Well-Known Member
Licensed User
Longtime User
NO HAY CASO POR QUE M..... no anda si a UDS LE ANDA?

No hay que activar algun permiso en el Maifiesto o algo asi?


B4X: 
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
 
B

benji

Active Member
Licensed User
Longtime User
benji said:
esta raro entonces, no veo errores en el codigo que posteaste, ademas es muy similar al que use en la prueba que hice...

probaste un msgbox(mail.Text) antes de

oSMTP.To.Add(mail.Text) esta linea, para saber donde esta mandando el correo?
Click to expand...

Insisto, revisaste esto?
en el post original tienes puesto mail.text, ahora en el ultimo solo mail, que seria lo pasas por parametro sino me equivoco
 
desof

desof

Well-Known Member
Licensed User
Longtime User
benji said:
esta raro entonces, no veo errores en el codigo que posteaste, ademas es muy similar al que use en la prueba que hice...

probaste un msgbox(mail.Text) antes de

oSMTP.To.Add(mail.Text) esta linea, para saber donde esta mandando el correo?
Click to expand...

HOLA!!!

AL FIN ME ANDUVO CREO QUE EL PROBLEMA ES LO QUE YO SUPONÍA UTILICE OTRA CUENTA DE GMAIL EN LA QUE NO TENGO ASIGNADO LA SEGURIDAD ADICIONAL EN 2 PASOS Y AL FIN!!!!!!
 
Gustavo

Gustavo

Member
Licensed User
Longtime User
aprovechado la oportunidad, como hago para leer un correo desde una cuenta gmail e identificar el mensaje y descargar los archivos adjuntos a la tablet.
ejemplo leer los email de xx@gmail.com y si el asunto es abmsis => descargar archivo adjunto
gracias de antemano
 
You must log in or register to reply here.
Top