Enviar mail gmail con archivos zip

147 views
Skip to first unread message

Estela María Lázaro

unread,
Jul 9, 2021, 1:13:56 PM7/9/21
to publice...@googlegroups.com
Buen día 

hace años que mis sistemas envían mail pero un cliente me pide que por cuestiones de seguridad en lugar de adjuntar archivos rar adjunte archivos zip. Pero no se envían los mails. Debo cambiar código o configurar algo más en la cuenta de gmail que envía?

Mi código (como el de muchos) es:

Parameters xcualmsg,xattach,xmanda,tlHTMLFormat,xSubject
xpude=.f.
lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
loConfig = Createobject("CDO.Configuration")
With loConfig.Fields
   .Item(lcSchema + "smtpserver") = "smtp.gmail.com"
   .Item(lcSchema + "smtpserverport") = 465 && ó 587
   .Item(lcSchema + "sendusing") = 2
   .Item(lcSchema + "smtpauthenticate") = .T.
   .Item(lcSchema + "smtpusessl") =.T.
   .Item(lcSchema + "sendusername") = "remite...@gmail.com"
   .Item(lcSchema + "sendpassword") = "passXXX"
   .Update
Endwith
loMsg = Createobject ("CDO.Message")
With loMsg
   .Configuration = loConfig
   .From = "otroremi...@gmail.com"
   .To = aquienmanda
   .Bcc = aquienmandaBcc
   .Subject =xSubject
   If tlHTMLFormat
      .HTMLBody = nom_html
      .CreateMHTMLBody(nom_html)
   Else
      .TextBody = xcualmsg
   Endif
   For lnCountAttachments = 1 To Alen(xattach)
      If File(xattach(lnCountAttachments))
         loMsg.AddAttachment(xattach(lnCountAttachments))
      Endif
   Endfor
   xpude=.T.
   _err=On('Error')
   Wait Window "Se está Generando un Mensaje. Un momento Por Favor" Nowait
   On Error Store .F. To xpude  
   .Send()
   On Error &_err
   Wait Clear
Endwith
return xpude

Saludos y gracias

D&SIP
Desarrollo y Servicios Informáticos Profesionales
Av.Independencia 2588 Piso 2 Of."C"
1225 - Capital Federal - Argentina
Teléfono 54 11 7533-7333

Libre de virus. www.avast.com

J. Enrique Ramos Menchaca

unread,
Jul 9, 2021, 2:42:50 PM7/9/21
to Comunidad de Visual Foxpro en Español
Creo que no es problema de tu programación, sino del servicio de correos de gmail que esta bloqueando el tipo de archivo adjunto.

Saludos.

Eduardo Armonti

unread,
Jul 9, 2021, 3:05:58 PM7/9/21
to publice...@googlegroups.com

Al archivo .zip que mandas por Gmail tenes que cambiarle el tipo

Por ejemplo  nombrearchivo.zip  à nombrearchivo.mzip

Y que la persona que recibe se encargue de sacarle la “m”  entonces google no te lo detecta ni te lo borra.

 

Enviado desde Correo para Windows 10

--
Visita el 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/0f89f49b-678a-439b-a37a-bbab20ad1042n%40googlegroups.com.

 

Estela María Lázaro

unread,
Jul 9, 2021, 3:32:56 PM7/9/21
to publice...@googlegroups.com
Hola

gracias por contestar

Ya planteé esa opción de cambiarle la extensión y les resulta "tediosa". Con los rar ningún inconveniente de envío pero los tienen bloqueados en su dominio por cuestiones de seguridad.

"lo que anda no se toca" decimos habitualmente. 😖

Saludos y gracias
 

Libre de virus. www.avast.com



--

Eduardo Armonti

unread,
Jul 10, 2021, 1:13:16 PM7/10/21
to publice...@googlegroups.com

Contacta a google a ver que te dicen… eso si… hay que poner la tarasca $$$$

 

 

Enviado desde Correo para Windows 10

 

   .Item(lcSchema + "smtpserver") = "smtpgmail.com"

 

Libre de virus. www.avast.com

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


 

--

 

D&SIP

Desarrollo y Servicios Informáticos Profesionales

Av.Independencia 2588 Piso 2 Of."C"

1225 - Capital Federal - Argentina

Teléfono 54 11 7533-7333

--

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

Francisco Lorente

unread,
Jul 12, 2021, 4:13:54 AM7/12/21
to Comunidad de Visual Foxpro en Español
Hola, Estela.

Prueba con 7zip, es gratuito, compatible con zip y rar y genera archivos .7z más ligeros que zip y rar, aunque no sé si "burlará" a gmail.

Saludos.
Francisco Lorente.
Murcia. España.

Jairo Cedeño

unread,
Jul 12, 2021, 4:09:29 PM7/12/21
to Comunidad de Visual Foxpro en Español
Saludos Estela, es facil que puedas enviar, puede enviarles en .rar  o .zip solo debes enviar el ardjunto con una diferencia en la extención, por citar un ejemplo:
en vez de .rar ponerle .r1r  o tal caso en el .zip  colocar .z1p esto hará que el adjunto se logre ir sin problemas, y al destinatario le podrás indicar que al descargarlo solo le ponga la extención que sea según el caso..

Saludos....

El viernes, 9 de julio de 2021 a las 12:13:56 UTC-5, estela...@gmail.com escribió:

Eduardo Armonti

unread,
Jul 14, 2021, 12:23:22 PM7/14/21
to publice...@googlegroups.com

No te gastes con tu ayuda pues es la misma que le dí yo y la rechazó. Dice que lo que funciona no se cambia, aunque no le funciona muy bien.

 

Enviado desde Correo para Windows 10

 

De: Jairo Cedeño
Enviado: lunes, 12 de julio de 2021 5:09 p. m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Enviar mail gmail con archivos zip

 

Saludos Estela, es facil que puedas enviar, puede enviarles en .rar  o .zip solo debes enviar el ardjunto con una diferencia en la extención, por citar un ejemplo:

--

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

James Suárez

unread,
Jul 14, 2021, 3:00:03 PM7/14/21
to publice...@googlegroups.com
Es que la respuesta es simple: No se puede porque los servidores de gmail lo bloquean. Sinceramente cambiar la extensión a un archivo no tiene sentido, porque el usuario final no comprenderá que debe hacer.
Lo que puede hacer es subir el archivo a un servidor de almacenamiento y adjuntar el link.   
Saludos. 


Estela María Lázaro

unread,
Jul 14, 2021, 3:09:50 PM7/14/21
to publice...@googlegroups.com
Gracias a todos!

Todavía no resuelven qué prefieren, mzip o link 🤣!

Saludos


D&SIP
Desarrollo y Servicios Informáticos Profesionales
Av.Independencia 2588 Piso 2 Of."C"
1225 - Capital Federal - Argentina
Teléfono 54 11 7533-7333

El 14 jul. 2021, a la(s) 16:00, James Suárez <jame...@gmail.com> escribió:


Reply all
Reply to author
Forward
0 new messages