Envio de correos
251 views
Skip to first unread message
mescud...@gmail.com
Apr 23, 2019, 7:33:24 AM4/23/19
to Comunidad de Visual Foxpro en Español
Buenos dias:
Hace tiempo que no uso el envio de correos en VFP.
Tengo esta rutina pero a veces no me funciona con algunos dominios (ver adjunto).
Habrá algun otro metodo más seguro y actualizado?
Gracias de antemano
Saludos
HernanCano
Apr 23, 2019, 5:09:06 PM4/23/19
to Comunidad de Visual Foxpro en Español
Ese método es el preciso.
Sólo asegúrate que has "habilitado" Gmail para poder conectarte, una cosa que en Gmail se llama "Permitir aplicaciones menos seguras".
Mario Escudero
Apr 23, 2019, 5:33:10 PM4/23/19
to publice...@googlegroups.com
ok Hernan, voy a probar y te cuento.
Gracias ! 👍
Mario Escudero
Apr 24, 2019, 11:28:12 AM4/24/19
to publice...@googlegroups.com
Una consulta:
Se puede adjuntar más de un archivo o sólo uno (por ejemplo un zip con varios comprimidos)?
Gracias
El mar., 23 de abr. de 2019 a la(s) 16:09, HernanCano (jherna...@gmail.com) escribió:
Mario Escudero
Apr 24, 2019, 12:34:09 PM4/24/19
to publice...@googlegroups.com
Hola Hernan:
Se puede enviar desde cualquier dominio?
El mar., 23 de abr. de 2019 a la(s) 16:09, HernanCano (jherna...@gmail.com) escribió:
HernanCano
Apr 24, 2019, 2:09:14 PM4/24/19
to Comunidad de Visual Foxpro en Español
Por cada adjunto ejecutas .AddAttachment() .
o ¿qué error te aparece para un segundo adjunto?
HernanCano
Apr 24, 2019, 2:14:47 PM4/24/19
to Comunidad de Visual Foxpro en Español
Si con dominio te refieres a Gmail, Hotmail, Yahoo, etc, pues sí. Pero asegúrate que Gmail lo hayas "habilitado" para poder conectarte, lo de "Permitir aplicaciones menos seguras", y en otros debes leer la documentación por si tiene algún tipo de característica que debas parametrizar para poder hacer la conexión.
Si reportas por aquí el mensaje de error que te aparece al intentar conexión a otro servidor, pues te podremos ayudar mejor.
Antonio Meza
Apr 24, 2019, 2:39:43 PM4/24/19
to Comunidad de Visual Foxpro en Español
El problema de CDO es que no permite seguridad TLS que usan las cuentas de Microsoft y otros dominios, en el caso que uses el puerto 25 entonces no tenderas problemas con cuentas de Microsoft, pero si no tienes habilitado ese puerto con tu proveedor de internet entonces no podrás.
saludos
Antonio Meza
Mario Escudero
Apr 24, 2019, 4:51:17 PM4/24/19
to publice...@googlegroups.com
Hola, aun no lo he ejecutado. Lo haré en unos minutos.
Solo preguntaba para ver si usaba el Zip o enviaba dos archivos sueltos.
Te cuento.
Mario Escudero
Apr 25, 2019, 8:12:39 AM4/25/19
to publice...@googlegroups.com
Hola Hernan.
Estoy usando Gmail para enviar los correos por este método.
Anoche todo bien pero ahora ya no aparecen en Enviados....
Habrá que configurar algo por aqui????
Gracias
El mar., 23 de abr. de 2019 a la(s) 16:09, HernanCano (jherna...@gmail.com) escribió:
Mario Escudero
Apr 25, 2019, 10:30:23 AM4/25/19
to publice...@googlegroups.com
Cuando envio correos desde el mismo Gmail, lo hace normal....
HernanCano
Apr 25, 2019, 10:39:04 AM4/25/19
to Comunidad de Visual Foxpro en Español
Hola, Mario.
>> ...ya no aparecen en Enviados....
Tal vez no se enviaron y quizá "rebotaron" (como dice mucha gente), quizá por que (1) el email estaba mal escrito, o tal vez porque (2) se completó el límite de enviados en el día (normalmente sólo deja enviar como 95 en un sólo día).
Debe haber algún mensaje de "rebote", o similar, que informe del error.
Hoy ya puedes enviar normal, porque quizá la "cuota" de "hoy" no se ha cumplido....
ggcagnola gmail
Apr 25, 2019, 10:42:05 AM4/25/19
to publice...@googlegroups.com
creo que el cliente de correo se "encarga" de
hacer una copia en la carpeta enviados...
Mario Escudero
Apr 25, 2019, 10:55:32 AM4/25/19
to publice...@googlegroups.com
Hola Hernan.
Nada, solo habré mandado 10 ayer y unos 5 ahora....
Los correos han llegado perfecto ayer y de un momento a otro ya no,....
Y sin hacer ningun cambio....
Qué extraño....
Mario Escudero
Apr 25, 2019, 10:57:06 AM4/25/19
to publice...@googlegroups.com
Mira los de ayer en la bandeja de Salida....fueron los primeros, antes que falle.
EL de ahora lo he enviado directamente del Gamil y sí los manda....
Mario Escudero
Apr 25, 2019, 11:00:14 AM4/25/19
to publice...@googlegroups.com
Este es mi proceso:
En el click del boton Enviar Email pongo:
****************************************************
* Verificamos la existencia del XML y PDF
* No basta que tenga el * ya que alguien lo podría haber eliminado y habría que generarlo otra vez (reimprimiendo])
archivoxml = "d:/sfs_v1.2/sunat_archivos/sfs/firma/20514151246-" + IIF(facbol="F","01","03") + "-" + ;
facbol + LEFT(numdoc,3) + "-" + "00" + RIGHT(numdoc,6)+ ".xml"
IF !FILE("&archivoxml")
MESSAGEBOX("No existe el arvhivo XML",0+48+0,"Envío de XML")
RETURN
ENDIF
archivopdf = SYS(5) + SYS(2003) + "\PDF\" + facbol + LEFT(numdoc,4) + "00" + RIGHT(numdoc,6) + ".pdf"
IF !FILE("&archivopdf")
MESSAGEBOX("No existe el archivo PDF",0+48+0,"Envío de PDF")
RETURN
ENDIF
* Enviamos el mail con los dos archivos
oApp.vAsunto = IIF(facbol="F","FACTURA ELECTRÓNICA","BOLETA DE VENTA ELECTRÓNICA") + ;
" " + FACBOL+LEFT(NUMDOC,4)+"00"+RIGHT(NUMDOC,6) + " - " + oApp.RazonSocial
oApp.vvEmail = ALLTRIM(email)
oApp.vMensaje = "Estimado Cliente: " + CHR(13) + CHR(13) + ;
"Por el presente le adjuntamos el XML y PDF correspondiente a la " + ;
IIF(facbol="F","FACTURA ELECTRÓNICA","BOLETA DE VENTA ELECTRÓNICA") + ;
" " + FACBOL+LEFT(NUMDOC,4)+"00"+RIGHT(NUMDOC,6) + CHR(13) + CHR(13) + ;
"Muchas gracias por su preferencia." + CHR(13) + CHR(13) + ;
oApp.RazonSocial
DO FORM enviomail_xml_pdf
*********************************************
Form emviomail_xml_pdf:
En el click del boton Enviar pongo:
************************************
IF EMPTY(oApp.vvEmail)
resp = MESSAGEBOX("Debe ingresar el(los) Destinatario(s) !!!", 0+48+0, "Envío de XML y PDF")
RETURN
ENDIF
IF EMPTY(oApp.vAsunto)
resp = MESSAGEBOX("Debe ingresar el Asunto !!!", 0+48+0, "Envío de XML y PDF")
RETURN
ENDIF
resp = MESSAGEBOX("Está seguro de enviar el correo a " + CHR(13) + oApp.vvEmail + "?", 4+32+0, "Envío de XML y PDF")
oApp.email_origen = mensajes.email_orig
oApp.email_pasw = mensajes.email_pasw
IF resp = 6 && Sí
vDestino = oApp.vvEmail
vLen = LEN(vDestino)
oApp.vEmail = ""
FOR i = 1 TO vLen
IF SUBSTR(vDestino,i,1) # ","
oApp.vEmail = oApp.vEmail + SUBSTR(vDestino,i,1)
ELSE
WAIT WINDOW "Enviando a " + ALLTRIM(oApp.vEmail) TIMEOUT 1.5 && Time: para evitar el spam
DO enviomail_xml_pdf
oApp.vEmail = ""
LOOP
ENDIF
NEXT
MESSAGEBOX("El mensaje se envió correctamente", 0+64+0, "Envío de XML y PDF")
ELSE
MESSAGEBOX("No se envió ningún correo electrónico", 0+64+0, "Envío de XML y PDF")
ENDIF
thisform.Release
Mario Escudero
Apr 25, 2019, 11:01:12 AM4/25/19
to publice...@googlegroups.com
Mario Escudero
Apr 25, 2019, 11:02:22 AM4/25/19
to publice...@googlegroups.com
Hola:
No se ve ninguna copia desde ayer ne la noche que dejo de funcionar de un momento a otro.
Gracias
Mario Escudero
Apr 25, 2019, 12:18:37 PM4/25/19
to publice...@googlegroups.com
Hola con todos:
Debe agradecerles nuevamente por su tiempo y consideración y, a la vez, disculparme porque el error estaba en una "coma" dentro de uno de mis procesos.
Ya lo solucioné y los correos se envían correctamente a uno o más destinatarios, con adjuntos y todo.
Que tengan un excelente día.
Saludos
Jorge Eugenio Gonzalez Valadez
May 3, 2019, 8:16:54 AM5/3/19
to publice...@googlegroups.com
Si el dominio es de Gmail, tendrias que ceear una contraseña de applicacion, esa contraseña de aplucacion la puedes generar en la configuracion de cuenta, segurida, contraseña de aplicacion, ahi te da opciones de que tipo si vas a usar outlook, o alguna aplicacion en ambiente windowa o mac, es una contraseña de 16 caracteres
Jorge Eugenio Gonzalez Valadez
May 3, 2019, 8:24:19 AM5/3/19
to publice...@googlegroups.com
Si el dominio es de Gmail, tendrias que crear una contraseña de applicacion, esa contraseña de aplicacion la puedes generar en la configuracion de cuenta, seguridad, contraseña de aplicacion, ahi te da opciones de que tipo si vas a usar outlook, o alguna aplicacion en ambiente windows o mac, es una contraseña de 16 caracteres a mi me paso que no podian enviar correo desde un sistema de facturacion y nomas genero la contraseña y listo, dentro del sitema en lugat de pober la contraseña normal del dominio , se teclea la que se genero y problema resuelto
Reply all
Reply to author
Forward
0 new messages