Spanish Envio de Email

[desof]

Hola he estado mirando algunos ejemplos para enviar email como este :

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

    m.To.Add(mail.Text)   'email address
    m.Subject="[email protected]"
    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!!!

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?

 

[vampirbcn]

Hola desoft, he enviado cientos de emails con este código:

   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="elpassword"
   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 (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]

Hola desoft, he enviado cientos de emails con este código:

   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="elpassword"
   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 (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!!!!

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..

 

[benji]

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..

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]

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!

 

[benji]

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!

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

 

[benji]

    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]

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]

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

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

 

[benji]

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]

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?

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

 

[benji]

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?

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]

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?

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]

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 [email protected] y si el asunto es abmsis => descargar archivo adjunto
gracias de antemano