Problemas con el correo con gmail

536 views
Skip to first unread message

RodoFito

unread,
Jun 5, 2022, 9:17:05 PM6/5/22
to Comunidad de Visual Foxpro en Español
Hola a Todos 
Yo uso para el envio de correo CDO (logfg=createobject("CDO.CONFIGURATION") que me funciono de diez, ahora gmail
cambio el uso de contraseñas , ahora usa otra diferente a la que usaba ,
no se puede usar la misma que entro al correo, genere la nueva con 
16 digitos y me da este error después de adjuntar el archivo

OLE IDispatch exeption code o from ? no se pudo enviar el mensaje
al servidor SMTP el codigo de error transporte fue 0x80040217
la respuesta del servidor fuet not available.


Que de debe hacer ?
Muchas gracias a todos,,,,,

HernanCano

unread,
Jun 6, 2022, 12:32:05 AM6/6/22
to Comunidad de Visual Foxpro en Español
1. Puede ser que hayas puesto mal la contraseña.
2. Puede ser que se alcanzó el límite de envíos diarios.
3. Puede ser que hayas confundido la contraseña y la estés usando en un "nombre de usuario" diferente.
4. ¿Será que ya se ha obtenido la contraseña de aplicación para ese "nombre de usuario"?

RodoFito

unread,
Jun 6, 2022, 5:44:52 AM6/6/22
to Comunidad de Visual Foxpro en Español
Muchas gracias, Hernan, pero lo verifique todo eso , y me sigue sin funcionar 

jorge cantar

unread,
Jun 6, 2022, 9:35:53 AM6/6/22
to Comunidad de Visual Foxpro en Español
Hola. 
Usaba también gmail, pero tuve que cambiar porque el problema que tenía es que el gmail cada tanto y no se porque cambiaba la configuración de permitir acceso de tercero.
Quizás venga por ahí el problema.
Saludos

circulocatoli...@gmail.com

unread,
Jun 6, 2022, 11:03:26 AM6/6/22
to Comunidad de Visual Foxpro en Español
muchas gracias 

Andrés Oscar Gimbatti

unread,
Jun 6, 2022, 4:10:35 PM6/6/22
to Comunidad de Visual Foxpro en Español
Hola,
hace tiempo que no uso CDO sino chilkat. Habilitando la verificacion en dos pasos y generando la contraseña para aplicaciones me funcionó.
No recuerdo como era en CDO, pero habilitaste la configuracion de SSL?

Saludos


alvarocastellar

unread,
Jun 6, 2022, 5:03:34 PM6/6/22
to Comunidad de Visual Foxpro en Español
En CDO funciona igual, es cambiar la contraseña vieja por la que se generó en gmail

Edwin Duran

unread,
Jun 7, 2022, 6:31:51 PM6/7/22
to Comunidad de Visual Foxpro en Español
Saludos  aogim...@gmail.com

Podrías colocar con   chilkat como lo haces

Gracias

Mapasac IT Systems

unread,
Jun 7, 2022, 7:14:06 PM6/7/22
to Comunidad de Visual Foxpro en Español
Resuelto, solo genere la contraseña de aplicación para la computadora de windows de 16 caracteres y la relacione con la cuenta de gmail en vfp y listo. el zorrito volvió a enviar email's.

Saludos, cordiales

Andrés Oscar Gimbatti

unread,
Jun 8, 2022, 7:36:40 AM6/8/22
to publice...@googlegroups.com
Te pongo una rutina estandar. Tiene bastante opciones mas.

mailman = CREATEOBJECT('Chilkat_9_5_0.MailMan')

lnSuccess = mailman.UnlockComponent("DRGMNM.CB11217_tpV47dcx90Ax")
IF (lnSuccess <> 1) THEN
    messagebox("Falló desbloqueo del componente")
      RETURN .F.
ENDIF

email = CREATEOBJECT("Chilkat_9_5_0.Email")


mailman.SmtpSsl = 1
mailman.SmtpPort = parametros.email_puerto &&587

mailman.SmtpHost = LOWER(ALLTRIM(parametros.email_smtp))
mailman.SmtpUsername = ALLTRIM(parametros.email)
mailman.SmtpPassword = ALLTRIM(parametros.email_clave)

email.FROM="'"+ALLTRIM(parametros.nombreempresa)+"' <"+ALLTRIM(parametros.email)+">"

*adjunto el comprobante
email.AddFileAttachment (lcArchivo)

*email.ADDTO("", ALLTRIM(_curemail.email))

*agrego los email del campo separados por ","
nRows = ALINES(arDestinos, STRTRAN(_curemail.email,",",CHR(13)))
email.ADDTO("", ALLTRIM(arDestinos[1]))
FOR i = 2 TO nRows
      nCant = ALINES(arDestinos2, STRTRAN(arDestinos[i],":",CHR(13)))
      lnSuccess = email.AddCC(IIF(nCant>1,arDestinos2[2],""),arDestinos2[1])
      IF lnSuccess <> 1
           THIS.LOG= email.LastErrorText
        RELEASE mailman
        RELEASE email
        RETURN .F.
    ENDIF
ENDFOR


email.subject = ALLTRIM(_curemail.asunto)
email.Body = ALLTRIM(_curemail.cuerpo)

*responder a
email.replyto = ALLTRIM(parametros.email_respuesta)

mError = mailman.SendEmail(email)

IF (mError = 0) THEN
      MESSAGEBOX("Falló el envio del correo"+CHR(13)+mailman.LastErrorText)
      STRTOFILE(mailman.LastErrorText+CHR(13)+CHR(13), "errores_email.txt",1)
ELSE
      MESSAGEBOX("Correo enviado")
ENDIF

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/NJ4Iueqg01Q/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/a6d45f5f-cbe2-4805-acc4-b0db82b711fen%40googlegroups.com.


--

Edwin Duran

unread,
Jun 8, 2022, 8:05:01 AM6/8/22
to Comunidad de Visual Foxpro en Español
Gracias, te puedo contactar por privado  vía movil o Email quiero consultarle algo

mi móvil es 829 452 7948
Saludos

roberto martinez andrade

unread,
Jun 8, 2022, 11:07:31 AM6/8/22
to publice...@googlegroups.com
Podrías indicar como.... acabo de tener un fallo en una aplicación que enviaba email en forma automática y me llego un correo de google informando que a partir del 30 de mayo las app que enviaban email aprovechando conexiones poco seguras ya no lo podrían hacer. Indica una serie de pasos alternativos pero no lo he podido lograr.

Tal vez tu forma es más sencilla y efectiva.

Saludos 
Roberto
Coyhaique - Chile

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c0bd8478-ee72-4799-ba54-309e02e01ba6n%40googlegroups.com.

HernanCano

unread,
Jun 8, 2022, 2:44:23 PM6/8/22
to Comunidad de Visual Foxpro en Español

Antonio Meza

unread,
Jun 8, 2022, 6:23:31 PM6/8/22
to Comunidad de Visual Foxpro en Español
Como que no quieren ver el video ahí explica lo que hay que hacer, pero al parecer no lo quieren ver jajajajajajaj

saludos!!

Qsoft

unread,
Jun 9, 2022, 4:24:28 AM6/9/22
to publice...@googlegroups.com
puedes probar lo descrito en este artículo:


___________________
Enrique Vasquez B.



--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Qsoft

unread,
Jun 9, 2022, 4:25:13 AM6/9/22
to publice...@googlegroups.com

Angel Dario Rodriguez

unread,
Jun 9, 2022, 10:31:12 AM6/9/22
to publice...@googlegroups.com
Estimado Hernan, he seguido todos los pasos, sistituyendo la contraseña original por el codigo de 16 digitos que genero gmail. Aun asi, no se envian los correos.

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Zarlu

unread,
Jun 9, 2022, 10:35:42 AM6/9/22
to Comunidad de Visual Foxpro en Español
Buenos días Angel!

Qué método de envío estás usando?. Para intentar probar.

zarlu
Chetumal, Quintana Roo, México

Angel Dario Rodriguez

unread,
Jun 9, 2022, 10:40:34 AM6/9/22
to publice...@googlegroups.com
Hernan, esta es la rutina que siempre he usado.

TRY
  LOCAL lcSchema, loConfig, loMsg, loError, lcErr
  lcErr = ""
  lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
  loConfig = CREATEOBJECT("CDO.Configuration")
  WITH loConfig.FIELDS
    .ITEM(lcSchema + "smtpserver") = gcEmail_serv &&"smtp.gmail.com"
    .ITEM(lcSchema + "smtpserverport") =  465 && ó 587 -- para Gmail.
    .ITEM(lcSchema + "sendusing") = 2
    .ITEM(lcSchema + "smtpauthenticate") = .T.
    .ITEM(lcSchema + "smtpusessl") = .T.
    .ITEM(lcSchema + "sendusername") = gcEmail_envi &&"angel....@gmail.com"
    .ITEM(lcSchema + "sendpassword") = gcEmail_pass &&"drag1mas"
    .UPDATE
  ENDWITH
  loMsg = CREATEOBJECT ("CDO.Message")
  WITH loMsg
    .Configuration = loConfig
    .FROM = gcEmail_envi &&"angel....@gmail.com"
    .TO = gcEmail_reci &&"angel_...@hotmail.com"
    .Subject = gcEmail_Asun &&"Prueba desde Gmail"
    .TextBody =  gcEmail_Text &&"Este es un mensaje de prueba con CDO con autenticación y cifrado SSL desde Gmail"
loMsg.AddAttachment(""+gcEmail_adju)
    .Send()
  ENDWITH
CATCH TO loError
  lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;
    [Linea: ] + STR(loError.LINENO) + CHR(13) + ;
    [Mensaje: ] + loError.MESSAGE
FINALLY
  RELEASE loConfig, loMsg
  STORE .NULL. TO loConfig, loMsg
  IF EMPTY(lcErr)
*    =MESSAGEBOX("El mensaje se envió con éxito", 64, .5)
  ELSE
    MESSAGEBOX(lcErr, 16 , "Error")
  ENDIF
ENDTRY

Zarlu

unread,
Jun 9, 2022, 11:31:45 AM6/9/22
to Comunidad de Visual Foxpro en Español
Qué tal Angel!

Tú código me funcionó cambiando el puerto a 465.
Con tú código te mandé un par de correos
Es de notar que el puerto puede variar de lugar a lugar y de proveedor a proveedor.
Alterna pruebas con 465 o 587

Suerte
zarlu
Chetumal, Quintana Roo

Angel Dario Rodriguez

unread,
Jun 9, 2022, 12:07:35 PM6/9/22
to publice...@googlegroups.com
Gracias Zarlu, probare con tu sugerencia.

hhber...@gmail.com

unread,
Jun 9, 2022, 3:38:42 PM6/9/22
to Comunidad de Visual Foxpro en Español
Buenas tardes,  grupo.

La solución al envío de correos con gmail, ahora que hubo cambios con las políticas de uso del correo, es de la siguiente forma:

1. Implementar la seguridad en 2 pasos. Esto requiere que la cuenta de correo de Gmail este vinculada con un número de teléfono celular, ya que recibirán códigos de seguridad que confirmen la identidad de quien esta solicitando el cambio.

2. Una vez estableccidad la seguridad en 2 pasos, se deberá crear una Contraseña de aplicaciones, la cual es generada por gmail.

3 La contraseña creada por Gmail, deberá sustituir a la que tienen actualmente, por ejemplo, en una pantalla de configuración o algo similar.

Todo lo anterior, se hace en la pantalla de Admministración de la cuenta.

Esto lo he hecho en diferentes oacasiones y sigue funcionando de maravilla.



Saludos.

Jairo Cedeño

unread,
Jun 9, 2022, 6:46:01 PM6/9/22
to Comunidad de Visual Foxpro en Español
Hola a todos: hace unos días hice un video para explicarles este tema...!

Yo hace algún tiempo atrás había publicado textualmente la solución, pero envista que ahora el tema es más pronunciado, me vi en la imperiosa necesidad de realizar el siguiente video, espero les sirva de mucha ayuda...

Explicación y código fuente para enviar correos por medio de GMail.

Saludos cordiales!

Carton Jeston

unread,
Jun 14, 2022, 3:08:10 AM6/14/22
to Comunidad de Visual Foxpro en Español

La solucion esta en los tres mensajes anteriores a este... zarlu, hhbernal y jairo.

Usando CStmp de Antonio y de repente dejar de ir con el corte de mayo...

-Hacer la verificacion de dos pasos si o si, usando un numero de telefono del propietario del gmail para activar.
-Crear la contraseña para la aplicacion de 16 caracteres y sustituir la que tenias en la libreria.
-Tenia el puerto 465 y tuve que poner el 587 para que funcionase. Lo curioso es que tuve que hacer la operacion inversa cuando lo instale por primera vez.

Si es una instalacion nueva que nunca has tenido tu programa, mirar firewall y demas. Al final es lo mas comodo y no tienes el problema de que a cada tiempo se te desactiva el acceso a terceros, ahora ya defenestrada :-D

Con toda la informacion que han publicado previamente aqui no deberia haber problemas.

Wagner Cevallos

unread,
Jun 14, 2022, 10:15:22 AM6/14/22
to publice...@googlegroups.com
GRACIAS JAIRO, BIEN EXPLICADO



--
Ing. Wagner Javier Cevallos  Macías
0985303564-0996496512
Portoviejo-Manabí-Ecuador

Ivan Aguirre

unread,
Feb 16, 2024, 7:14:11 PM2/16/24
to Comunidad de Visual Foxpro en Español
Dejo una consulta, abriendo este antiguo Hilo.
Hasta ahora, utilizaba un correo propio por pop3 y todo andaba bien, pero el cliente me solicitaba usar un correo de gmail.
Aunque activé la autenticación de dos pasos y todo lo demás, nunca me apareció la opción  APP GENERATOR y las opciones de generar contraseñas que he visto, se refieren a usar el celular, sea reconocimiento facial, sea dibujo, sea huella digital, pero nada de app para que una aplicación externa, pueda usar el correo de GMAIL.
No obstante las aplicaciones de mensajería si usan sin problema alguno el gmail.

¿Sigue pudiendo usarse Gmail con aplicaciones como las nuestras o requiere algo adicional.?   porque no es si se usa CDO o CHILKAT  el tema es GMAIL.

Agradeceré cualquier PISTA.
Desde ya muchas gracias.

Zarlu

unread,
Feb 17, 2024, 11:02:39 AM2/17/24
to Comunidad de Visual Foxpro en Español
Buenos días Ivan!

Suerte
Zarlu
Chetumal, Quintana Roo, México

Sin título.png

almonts ( www.ontariombd.es )

unread,
Feb 18, 2024, 5:16:54 PM2/18/24
to Comunidad de Visual Foxpro en Español
Cómo muy bien  te ha comentado Zarlu. Debes de usar "contraseña de aplicaciones".
Message has been deleted

Ivan Aguirre

unread,
Feb 19, 2024, 7:55:14 AM2/19/24
to Comunidad de Visual Foxpro en Español
Ahí pude encontrarlo. Se ve que Gmail no las ama... porque no figuran en mi menú de Seguridad. Tuve que abrir el BUSCAR y al colocar allí aparecieron pero como no listado en el menú.
Muchas gracias gente, probaré nomas.
Gracias.!!

Reply all
Reply to author
Forward
0 new messages